The source (most of it, anyway):
;;; Time mark structure
(defstruct
(timemark
(:print-function
(lambda (my-timemark my-stream my-level)
(declare (ignore my-level))
(encode-timemark my-stream my-timemark))))
(year 0 :type fixnum) ; Year [0-9999]
(month 0 :type fixnum) ; Month number [1-12]
(date 0 :type fixnum) ; Day of month number [1-31]
(hour 0 :type fixnum) ; Hour of day [0-23]
(minute 0 :type fixnum) ; Minute of hour [0-59]
(second 0 :type fixnum) ; Second of minute [0-59]
(msec 0 :type fixnum)) ; Millisecond of second [0-999]
;;; Time mark routines
(defun calc-timemark-from-tm-list (my-tm-list)
"Return a new time mark calculated from a time mark list."
(make-timemark
:year (sixth my-tm-list)
:month (fifth my-tm-list)
:date (fourth my-tm-list)
:hour (third my-tm-list)
:minute (second my-tm-list)
:second (first my-tm-list)
:msec 0))
And the compiler diagnostic:
; In: DEFUN CALC-TIMEMARK-FROM-TM-LIST
; (SIXTH MY-TM-LIST)
; --> NTH CAR NTHCDR BLOCK FLET TYPECASE LET COND IF COND IF PROGN DO
BLOCK LET
; --> TAGBODY RETURN-FROM PROGN LISP::FAST-NTHCDR
; ==>
; (MOD LISP::N LISP::I)
; Note: Deleting unused function
; MOD
;
; --> NTH CAR NTHCDR BLOCK FLET TYPECASE LET COND IF COND IF PROGN DO
BLOCK LET
; --> TAGBODY RETURN-FROM PROGN LISP::FAST-NTHCDR MOD BLOCK LET
; ==>
; (REM NUMBER KERNEL::DIVISOR)
; Note: Deleting unused function
; REM
;
Weird, eh?
== Steven
