Clean up some compiler notes
Here are some compiler notes that we should clean up:
- srctran.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/srctran.lisp
; In: DEFUN ROUND-DERIVE-TYPE-QUOT
; (LET* (# # #)
; (LET #
; #))
; Note: Variable REM-TYPE defined but never used.
;
; Converted ROUND-DERIVE-TYPE-REM.
; Compiling DEFUN ROUND-DERIVE-TYPE-REM:
;
;
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/srctran.lisp
; In: DEFUN ROUND-DERIVE-TYPE-REM
; (LET* (# # #)
; (MULTIPLE-VALUE-BIND #
; #
; #))
; Note: Variable NUMBER-INTERVAL defined but never used.
;
; Note: Variable DIVISOR-INTERVAL defined but never used.
- insts.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/insts.lisp
; In: DEFUN PRINT-IMM-DATA
; (LET (#)
; (DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE UNSIGNED-OFFSET STREAM DSTATE))
; Note: Deleting unreachable code.
; ; [Last message occurs 2 times]
; (DISASSEM::NOTE-CODE-CONSTANT-ABSOLUTE OFFSET DSTATE)
; Note: Deleting unreachable code.
- float-sse2.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp
; In: MACROLET ((GENERATE # #) (FROB # `#))
; (LOCATION= Y R)
; Note: Deleting unreachable code.
;
; Byte Compiling Top-Level Form:
; Compiling MACROLET ((GENERATE # #) (FROB # #)):
;
;
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp
; In: MACROLET ((GENERATE # #) (FROB # `#))
; (LOCATION= Y R)
; Note: Deleting unreachable code.
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp
; In: MACROLET ((GENERATE # #) (FROB # `#))
; (LOCATION= Y R)
; Note: Deleting unreachable code.
;
; Byte Compiling Top-Level Form:
; Compiling MACROLET ((GENERATE # #) (FROB # #)):
;
;
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp
; In: MACROLET ((GENERATE # #) (FROB # `#))
; (LOCATION= Y R)
; Note: Deleting unreachable code.
- call.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/call.lisp
; In: DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
; (DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
; (STANDARD)
; (DECLARE #)
; (MAKE-WIRED-TN #
; SAP-STACK-SC-NUMBER
; RETURN-PC-SAVE-OFFSET))
; --> BLOCK
; ==>
; (MACROLET (#)
; (DECLARE #)
; (MAKE-WIRED-TN # SAP-STACK-SC-NUMBER RETURN-PC-SAVE-OFFSET))
; Note: Ignoring free ignore declaration for STANDARD.
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/call.lisp
; In: DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
; (DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
; (STANDARD)
; (DECLARE #)
; (MAKE-WIRED-TN #
; SAP-STACK-SC-NUMBER
; RETURN-PC-SAVE-OFFSET))
; Note: Variable STANDARD defined but never used.
; In: DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION
; (DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION
; (STANDARD)
; (DECLARE #)
; (MAKE-WIRED-TN *FIXNUM-PRIMITIVE-TYPE*
; CONTROL-STACK-SC-NUMBER
; OCFP-SAVE-OFFSET))
; --> BLOCK
; ==>
; (MACROLET (#)
; (DECLARE #)
; (MAKE-WIRED-TN *FIXNUM-PRIMITIVE-TYPE*
; CONTROL-STACK-SC-NUMBER
; OCFP-SAVE-OFFSET))
; Note: Ignoring free ignore declaration for STANDARD.