[cmucl-imp] Please kill those notes
Why do these output a compilation note about some unused macroexpanded case? How do I muffle the notes? (defmethod print-object ((o operation) stream) (print-unreadable-object (o stream :type t :identity nil) (ignore-errors (format stream "~{~S~^ ~}" (operation-original-initargs o))))) (defmethod perform-with-restarts ((o load-op) (c cl-source-file)) (loop (restart-case (return (call-next-method)) (try-recompiling () :report (lambda (s) (format s "Recompile ~a and try loading it again" (component-name c))) (perform (find-operation o 'compile-op) c))))) —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org *EULA: By reading or responding to this message you agree that all my stated or unstated opinions are correct.* "EULA" — patent pending.
"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)? Ray
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)?
Yes, that's one way. In an asdf checkout, you can make load l=cmucl Assuming you have a script or symlink called cmucl that executes cmucl. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org "I'm going to live forever, or die trying!" — Spider Robinson
"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".
On Mon, Jan 28, 2013 at 9:59 PM, Raymond Toy <toy.raymond@gmail.com> wrote:
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?
Yes. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org "I carry a gun because a cop is too heavy." — R. Lee Wrights
Note that the compilation notes are due to code added by macroexpansion not being reachable because it is in non-taken branched and/or because I (return-from ...) before it can be reached. That's clearly a bug in the compiler and/or its support macros, though not the worst one. I believe SBCL used to have the same bug long ago, but I don't remember how they solved it. In other news, after my latest upgrade cleanup, CMUCL can once again hot-upgrade ASDF. But whereas it used to be able to upgrade from 2.015 and later, now it can only upgrade from 2.018 and later. I have no idea why. You can try the following and see some weird thing happen in the guts of PCL, either in perform or some function it calls (maybe output-files): ASDF_UPGRADE_TEST_TAGS="2.017" ASDF_UPGRADE_TEST_METHODS="'load-asdf-lisp'load-asdf-system" ./test/run-tests.sh -u cmucl —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Put your hand on a hot stove for a minute, and it seems like an hour. Sit with a pretty girl for an hour, and it seems like a minute. THAT'S relativity. — Albert Einstein
participants (2)
-
Faré -
Raymond Toy