Handle a signal: Difference between revisions

(ql:quickload :cffi)

 

 

(defmacro set-signal-handler (signo &body body)

(defvar *initial* (get-internal-real-time))

 

(format t "Ran for ~a seconds~&" (/ (- (get-internal-real-time) *initial*) internal-time-units-per-second))

(quit))

(loop do

(format t "~a~&" (incf i))

 

</lang>