Compiler Message?

[Bill.Chiles@CHILES.SLISP.CS.CMU.EDU]

The following function has a warning:
   (defun function-end-starter-hook (fun-end-bpt debug-fun)
     (declare (type breakpoint fun-end-bpt)
	      (type compiled-debug-function debug-fun))
     #'(lambda (frame breakpoint)
	 (declare (ignore breakpoint)
		  (type frame frame))
	 (let ((lra-sc-offset
		(c::compiled-debug-function-return-pc
		 (compiled-debug-function-compiler-debug-fun debug-fun))))
	   (multiple-value-bind (lra component offset)
				(vm:make-bogus-lra
				 (get-context-value frame vm::lra-save-offset
						    lra-sc-offset))
	     (setf (get-context-value frame vm::lra-save-offset lra-sc-offset)
		   lra)
	     (let ((data (breakpoint-data component offset)))
	       (setf (breakpoint-status fun-end-bpt) :active)
	       (push fun-end-bpt (breakpoint-data-breakpoints data))
	       (setf (breakpoint-internal-data fun-end-bpt) data))))))

The warning is:
   Compiling DEFUN FUNCTION-END-STARTER-HOOK: 

   File: /afs/cs.cmu.edu/project/clisp/hackers/chiles/code/debug-int.lisp

   In: DEFUN FUNCTION-END-STARTER-HOOK
     (SETF (GET-CONTEXT-VALUE FRAME MIPS::LRA-SAVE-OFFSET LRA-SC-OFFSET)
	   LRA)
   --> LET* FUNCALL C::%FUNCALL 
   ==>
     #:G5
   Warning: Result is a COMPILED-FRAME, not a UNSIGNED-BYTE.
   [Last message occurs 2 times]

I don't get it.

Bill