Another stumper compilation diagnostic

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