Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun vr-objectivo? (estado)
- (let ((tempo-actual (get-internal-run-time)))
- (let ((diferenca-tempo (- tempo-actual tempo-inicio)))
- (progn
- (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)
- (values (>= diferenca-tempo 300000))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement