REPL Output

;;; ASDF-INSTALL: Downloading 6990 bytes from http://www.xach.com/lisp/timer/timer-0.4.0.tar.gz to /Users/gwking/temporary/asdf-test/TIMER.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/TIMER.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
timer-0.4.0/
timer-0.4.0/doc/
timer-0.4.0/doc/index.html
timer-0.4.0/COPYING
timer-0.4.0/ChangeLog
timer-0.4.0/VERSION
timer-0.4.0/package.lisp
timer-0.4.0/queue.lisp
timer-0.4.0/scheduler.lisp
timer-0.4.0/time.lisp
timer-0.4.0/timer.asd
timer-0.4.0/timers.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/package.lisp" (written 09 NOV 2003 12:06:23 PM):
; compiling (DEFPACKAGE #:TIMER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/time.lisp" (written 14 NOV 2003 03:48:33 PM):
; compiling (IN-PACKAGE #:TIMER)
; compiling (DEFUN GET-PRECISE-TIME ...); in: LAMBDA NIL
;     (/ (GET-INTERNAL-REAL-TIME) 1000.0d0)
; --> / FLOAT 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).

;     (SB-INT:NAMED-LAMBDA TIMER::GET-PRECISE-TIME
;                        NIL
;                        (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
;                        (BLOCK TIMER::GET-PRECISE-TIME
;                          (/ (GET-INTERNAL-REAL-TIME) 1000.0d0)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA TIMER::GET-PRECISE-TIME
;                          NIL
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
;                          (BLOCK TIMER::GET-PRECISE-TIME
;                            (/ (GET-INTERNAL-REAL-TIME) 1000.0d0)))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/time.lisp
; in: DEFUN GET-PRECISE-TIME
;     (/ (GET-INTERNAL-REAL-TIME) 1000.0d0)
; --> / FLOAT 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).

;     (DEFUN TIMER::GET-PRECISE-TIME ()
;     (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
;     "Return a double-float value representing the current time in
; seconds. The absolute value is meaningless, but it is useful for
; relative comparision between two precise times."
;     (/ (GET-INTERNAL-REAL-TIME) 1000.0d0))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TIMER::GET-PRECISE-TIME
;                          NIL
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
;                          (BLOCK TIMER::GET-PRECISE-TIME
;                            (/ (GET-INTERNAL-REAL-TIME) 1000.0d0)))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFCONSTANT +UNIVERSAL-TIME-OFFSET+ ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-PRECISE-TIME ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/time.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining GET-PRECISE-TIME in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/timers.lisp" (written 19 NOV 2003 12:21:54 PM):
; compiling (IN-PACKAGE #:TIMER)
; compiling (DEFSTRUCT (TIMER # ...) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-TIMER ...)
; compiling (DEFUN TIMER-NAME ...)
; compiling (DEFUN TIMER-EXPIRED-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/timers.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/queue.lisp" (written 19 NOV 2003 12:22:58 PM):
; compiling (IN-PACKAGE #:TIMER)
; compiling (DEFUN HEAP-PARENT ...)
; compiling (DEFUN HEAP-LEFT ...)
; compiling (DEFUN HEAP-RIGHT ...)
; compiling (DEFUN HEAP-SIZE ...)
; compiling (DEFUN HEAPIFY ...)
; compiling (DEFUN HEAP-INSERT ...)
; compiling (DEFUN HEAP-MAXIMUM ...)
; compiling (DEFUN HEAP-EXTRACT ...)
; compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...)
; compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...)
; compiling (DEFUN MAKE-PRIORITY-QUEUE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...)
; compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...)
; compiling (DEFUN PRIORITY-QUEUE-INSERT ...)
; compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...)
; compiling (DEFUN PRIORITY-QUEUE-REMOVE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/queue.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/scheduler.lisp" (written 19 NOV 2003 12:21:39 PM):
; compiling (IN-PACKAGE #:TIMER)
; compiling (DEFUN MAKE-CONTROL-MESSAGE ...)
; compiling (DEFUN CONTROL-MESSAGE-COMMAND ...)
; compiling (DEFUN CONTROL-MESSAGE-TIMER ...)
; compiling (DEFVAR *CONTROL-STACK* ...)
; compiling (DEFVAR *CONTROL-STACK-LOCK* ...)
; compiling (DEFVAR *CONTROL-STACK-WAITQUEUE* ...)
; compiling (DEFMACRO WITH-CONTROL-STACK-LOCK ...)
; compiling (DEFUN NEXT-CONTROL-MESSAGE ...)
; compiling (DEFUN ADD-CONTROL-MESSAGE ...)
; compiling (DEFUN SCHEDULE-TIMER ...)
; compiling (DEFUN SCHEDULE-TIMER-RELATIVE ...)
; compiling (DEFUN UNSCHEDULE-TIMER ...)
; compiling (DEFUN RESCHEDULE-TIMER ...)
; compiling (DEFUN EXPIRE-TIMER ...)
; compiling (DEFUN EXPIRE-PENDING-TIMERS ...)
; compiling (DEFVAR *SCHEDULE* ...)
; compiling (DEFUN PEEK-SCHEDULE ...)
; compiling (DEFUN PROCESS-CONTROL-MESSAGE ...)
; compiling (DEFUN TIME-TO-NEXT-TIMER ...)
; compiling (DEFMACRO WITH-OPTIONAL-TIMEOUT ...)
; compiling (DEFUN SCHEDULER ...)
; compiling (DEFVAR *TIMERS-ENABLED-P* ...)
; compiling (DEFVAR *TIMERS-ENABLED-MUTEX* ...)
; compiling (DEFUN ENABLE-TIMERS ...)
; compiling (DEFUN TIMERS-ENABLED-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/scheduler.fasl written
; compilation finished in 0:00:00

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/timer-0.4.0/scheduler.lisp
; in: DEFUN TIMER::EXPIRE-PENDING-TIMERS
;     (TIMER::PRIORITY-QUEUE-EXTRACT-MAXIMUM TIMER::*SCHEDULE*)
; 
; caught WARNING:
;   undefined variable: TIMER::*SCHEDULE*

; 
; caught WARNING:
;   This variable is undefined:
;     TIMER::*SCHEDULE*
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   printed 4 notes