Reloj.lsp

(do ((i 1 (+ i 1)))
    (#f)
      (newline)
        (sleep 1)
	  (let ((hms (seconds->date (current-seconds))))
	        (display (date-hour hms ))
		    (display " -- ")
		        (display (date-minute hms))
			    (display " -- ")
			        (display (date-second hms))))