Advertisement
Guest User

Untitled

a guest
Nov 30th, 2015
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. (defun vr-objectivo? (estado)
  2. (let ((tempo-actual (get-internal-run-time)))
  3. (let ((diferenca-tempo (- tempo-actual tempo-inicio)))
  4. (progn
  5. (format t "vr-objectivo? | pontuacao: ~D | tempo-inicio: ~D | tempo-actual: ~D | diferenca-tempo: ~D ~%" (vr-estado-pontuacao estado) tempo-inicio tempo-actual diferenca-tempo)
  6. (values (>= diferenca-tempo 300000))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement