[cmucl-imp] Please kill those notes

[Raymond Toy]

>>>>> "Fare" == Far  <Far> writes:

    Fare> Why do these output a compilation note about some unused macroexpanded case?
    Fare> How do I muffle the notes?
    >> 
    >> How do I reproduce this?  Do I load the latest asdf and compile the
    >> code (possibly putting an (in-package :asdf) at the top)?
    >> 
    Fare> Yes, that's one way.

    Fare> In an asdf checkout, you can

    Fare> make load l=cmucl

I did a git pull to update asdf and ran make load l=cmucl
CMUCL=cmulisp.  I get the following output given below.

Are you complaining about the notes from operation.lisp and
lisp-action.lisp?

Ray


make l=cmucl CMUCL=cmulisp load
./test/run-tests.sh -t cmucl header.lisp package.lisp common-lisp.lisp utility.lisp os.lisp pathname.lisp filesystem.lisp stream.lisp image.lisp run-program.lisp lisp-build.lisp configuration.lisp backward-driver.lisp driver.lisp upgrade.lisp component.lisp system.lisp cache.lisp find-system.lisp find-component.lisp operation.lisp action.lisp lisp-action.lisp plan.lisp operate.lisp output-translations.lisp source-registry.lisp backward-internals.lisp defsystem.lisp bundle.lisp concatenate-source.lisp backward-interface.lisp interface.lisp user.lisp footer.lisp
; Loading #P"/Volumes/share2/src/clnet/asdf/test/script-support.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/header.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/package.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/common-lisp.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/utility.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/os.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/pathname.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/filesystem.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/stream.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/image.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/run-program.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/lisp-build.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/configuration.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/backward-driver.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/driver.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/upgrade.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/component.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/system.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/cache.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/find-system.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/find-component.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/operation.lisp".

; In: LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. O STREAM)

;   (MULTIPLE-VALUE-PROG1
;       (PROGN
;         #))
; Note: Deleting unreachable code.
; 

; Compilation unit finished.
;   1 note

; Loading #P"/Volumes/share2/src/clnet/asdf/action.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/lisp-action.lisp".

; In: LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. O C)

;   (RETURN-FROM #:G3110 (RETURN #))
; Note: Deleting unreachable code.
; 

; Compilation unit finished.
;   1 note

; Loading #P"/Volumes/share2/src/clnet/asdf/plan.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/operate.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/output-translations.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/source-registry.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/backward-internals.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/defsystem.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/bundle.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/concatenate-source.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/backward-interface.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/interface.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/user.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/footer.lisp".
; Loading #P"/Volumes/share2/src/clnet/asdf/contrib/debug.lisp".