March 2013 - asdf-devel - mailman3.common-lisp.net

[asdf-devel] ECL upgrade failed
by Robert Goldman 13 Mar '13

13 Mar '13

Ran the tests again today, and got this new error: Configuring ASDF Being a bit verbose Frob packages TEST ABORTED: Cannot use #<"UIOP/DRIVER" package> from #<"ASDF-TEST" package>, because UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME and PATHNAME-DIRECTORY-PATHNAME will cause a name conflict. Script failed upgrade FAILED for ecl from 2.21 using method 'load-asdf-lisp-and-test-uiop'load-asdf-fasl This is ECL 12.12.1, Mac OS X Lion. Best, R

2 1

Re: [asdf-devel] testing ASDF with cl-test-grid
by Anton Vodonosov 13 Mar '13

13 Mar '13

Performed tests with ABCL and ACL (express edition, and on Windows, as my linux system turns out to be too old to run ACL 9.0 and the ACL 8.0 Express license has expired). http://common-lisp.net/project/cl-test-grid/asdf/asdf-diff-20.html ACL shows new problem with portableaserve and via it with all genworks-gdl systems. The error: No defined method for ASDF/ACTION:PERFORM oncompiling #<ORIGINAL-ASERVE "aserve" "dummy"> Aside from that all the failures are (upstream) library errors we saw already on other lisps. All the CRASH results are to be ignored. They are caused by heap size limitation of the ACL Express edition. ABCL shows no new problems. All the failures are upstream library errors we saw already on other lisps and com.informatimago.common-lisp TIMEOUT due to http://trac.common-lisp.net/armedbear/ticket/274. Best regards, - Anton

6 23

[asdf-devel] uiop 2.32.4's uiop.asd has nonexistent (:static-file "contrib/debug.lisp")
by Dave Cooper 09 Mar '13

09 Mar '13

As mentioned in subject: uiop 2.32.4's uiop.asd has nonexistent (:static-file "contrib/debug.lisp") This is causing (ql:quickload :uiop) to warn and consequently force a rebuild of it and all dependent systems. I see there is asdf/contrib/debug.lisp but no such file in uiop/ - is something supposed to be moved around? -- My Best, Dave Cooper, Genworks Support david.cooper(a)genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-248-330-2979(mobile) UK: 0191 645 1699

2 1

[asdf-devel] unnecessary recompilation of source files
by Yuan Luo 09 Mar '13

09 Mar '13

Hi, I am using asdf 2.25 with Allegro CL 9.0, running on clusters with nfs. I noticed some processes would unnecessarily recompile source files, causing other processes reporting no .fasl files error. Is this a known issue? How can I prevent asdf from such unnecessary recompilation? Thanks, Yuan

2 1

[asdf-devel] ASDF 2.32 released
by Faré 06 Mar '13

06 Mar '13

Dear Lisp hackers, ASDF 2.32 was released in time for inclusion in the upcoming CCL 1.9. Once again, we invite all implementation vendors and distributors to upgrade the version of ASDF included in their releases. Yes, I know, that's a lot of releases in a bit more than a month. But it was also a lot of development, and a lot of adjustment to reality after that development was first released. We will keep fixing bugs and improve ASDF based on our growing internal test suite and results from Anton Vodonosov's cl-test-grid. This is still a pre-release for ASDF3. Here are the changes, since previous release 2.31, and since previous public announcement for 2.30. >From 2.31 to 2.32: * deferred-warning checks are now disabled by default, to enhance backward compatibility with ASDF 2.26 and earlier. In the future, we will enable them by default, but not until we implement a smoother transition plan. Also, CCL-specific fixes to deferred-warning support. * UIOP is the new official name for ASDF-DRIVER. "Utilities for Implementation- and OS- Portability". Old names remain as package and system nicknames: ASDF/DRIVER ASDF-DRIVER ASDF-UTILS * require-system so systems may depend on implementation-provided modules. * auto-upgrade attempt in operate *before* the implicit find-system. * class specification for components can now be a string to be read as a symbol. * feature conditional dependencies are now debugged and tested: :depends-on ("some-system" (:feature :foo "other-system)) we only recommend them for dependencies between systems; within systems, we recommend you use feature-conditional components with :if-feature :foo and we only provide limited support for the deprecated legacy way of using feature-conditionals with a module having :if-component-dep-fails :ignore while its components specify things like: :in-order-to ((compile-op (feature :foo))) * read-from-file for :version specification is made more useful by using the ASDF-USER package rather than CL (into which interning is forbidden) to read the files. Changes from 2.30 to 2.31: * *default-encoding* is now UTF-8. As tested with cl-test-grid, This is a boon for most programs, that will compile in a more predictable way in a wider range of settings. A handful of unmaintained outliers still need to be fixed. * Downgrade is now explicitly avoided. ASDF will issue a warning if your system is misconfigured in a way that specifies downgrade, but will then ignore the specified ASDF downgrade. * version specifications, when invalid, will lead only to a warning for now; a future ASDF3 may restore the behavior of ASDF 2.27, that raises an errors when there is a bad :version specification, but for now, backward compatibility prevails. * ECL support received several bug fixes. * precompiled-system support was notably fixed, enabling single-fasl deployment of SBCL contribs. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org If normative judgments cannot be rational, then science is actually useless. — François Guillaumat

1 0

Re: [asdf-devel] Still having problems on upgrade tests
by Robert Goldman 04 Mar '13

04 Mar '13

On 3/3/13 Mar 3 -8:56 PM, Dave Cooper wrote: > > > Hi Robert, > > If you can outline for me the steps to do it, I can try this on ACL 8.2 > and 9.0 on Windows and Linux, if you like... I am just doing the following: setting ASDF_TEST_LISPS to a list of the lisps I have installed (this would be at least "allegro allegromodern" for you, and perhaps some others. Then I can do make test-all and the scripts will run both static and upgrade tests for all the lisps in ASDF_TEST_LISPS. I also have 8.2 and 9.0. Unfortunately, the make scripts right now aren't that friendly to testing both -- what I do is test each one separately by pushing its install directory onto the shell PATH. > > By the way, out of curiosity, why is it necessary to upgrade asdf for > Allegro? Do you have an image with asdf built in? Franz ships > code/asdf.fasl then updates with code/asdf.xyz - right now (for 9.0 at > least) they are on asdf.002 which just came down last week and is 2.31.1 > I believe. So normally the Allegro will just load the latest asdf fasl > on demand. One nuisance I have noticed is that they have updated the fasls in 8.2 without updating src/asdf.lisp, which means that the asdf you have loaded has drifted from the one for which you have source.... Probably what we most care about is upgrading from the current bundled version to the head and released versions in git. > > Is the test just to make sure that an upgrade works properly for people > who might have saved images and want to update their asdf in that same > image? I will leave these to Faré to answer... cheers, r > > Regards, > > Dave > > > > > On Sun, Mar 3, 2013 at 8:46 PM, Robert Goldman <rpgoldman(a)sift.info > <mailto:rpgoldman@sift.info>> wrote: > > On 3/3/13 Mar 3 -5:38 PM, Faré wrote: > > On Sun, Mar 3, 2013 at 5:41 PM, Robert Goldman > <rpgoldman(a)sift.info <mailto:rpgoldman@sift.info>> wrote: > >> The upgrade test for ACL from 1.85 fails reliably with this error: > >> > >> Warning: COMPILE-FILE warned while performing #<compile-op > on > >> #<cl-source-file "asdf" "build" "asdf">. > >> Warning: COMPILE-FILE failed while performing #<compile-op > on > >> #<cl-source-file "asdf" "build" "asdf">. > >> TEST ABORTED: > >> > #P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" > >> does not exist, cannot load > > [...] > >> Script failed > >> upgrade FAILED for allegromodern from 1.85 using method > >> 'load-asdf-lisp'load-asdf-system > >> > >> Interestingly, when I paste the replication string into bash: > >> > >> ASDF_UPGRADE_TEST_TAGS="1.85" > >> ASDF_UPGRADE_TEST_METHODS="'load-asdf-lisp'load-asdf-system" > >> ./test/run-tests.sh -u allegromodern > >> > >> this works fine. > >> > >> So this only fails for me when running in the context of make.... > >> > > Works for me, at least with Allegro 9.0: > > > > make u l=allegro ASDF_UPGRADE_TEST_TAGS=1.85 > > make u l=allegromodern ASDF_UPGRADE_TEST_TAGS=1.85 > > I'm stumped. It fails for me on Allegro 9.0 just as with 8.2 > > Note that this happens for me in the context of 'make test-all' > > > make u l=allegromodern ASDF_UPGRADE_TEST_TAGS=1.85 > > also fails... > > Somehow the build is not working: > > rpg% ls > /Users/rpg/lisp/asdf/build/fasls/acl-9.0m-macosx-x64/asdf/build/asdf.fasl > ls: cannot access > /Users/rpg/lisp/asdf/build/fasls/acl-9.0m-macosx-x64/asdf/build/asdf.fasl: > No such file or directory > > For some reason, I have no asdf.fasl there, but I *do* have an > asdf.lisp... > > I see this, which indicates that the fasl is being written in the wrong > location: > > ; Registering #<system "asdf"> > ;;; Writing fasl file /Users/rpg/lisp/asdf/build/asdf.fasl > ;;; Fasl write complete > Warning: COMPILE-FILE warned while performing #<compile-op > on > #<cl-source-file "asdf" "build" "asdf">. > Warning: COMPILE-FILE failed while performing #<compile-op > on > #<cl-source-file "asdf" "build" "asdf">. > > And that's the file, alright: > > pg% head build/asdf.fasl > ?z??#<<AcL>> /Users/rpg/lisp/asdf/build/asdf.lisp by rpg on > rpgoldman-3.local at 2013-03-03T19:40:46+06\ > using 9.0 [64-bit Mac OS X (Intel)] (Feb 26, 2013 9:53)\ > fasl version = 63\ > runtime version = 33\ > for non-smp lisps; #+8-bit-specific code; #+16-bit-specific code\ > Optimization settings at wfasl time:\ > ((safety 3) (space 1) (speed 2) (compilation-speed 1) (debug 2))\ > > So is there something going awry in the build process? > > Best, > r > > > > > > I can't try allegro 8.2, because my license has expired, and Franz > > only offers one until January 31st 2013, and I don't feel like > > cheating on the system date: > > http://www.franz.com/products/express/ > > > > Is it a case of confusion whereby we changed the way the > > implementation identifier is computed, and asdf creates the fasl in > > one directory but somehow looks for it in another? > > > > What is the command that makes it fail, already? > > > > —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• > http://fare.tunes.org > > The kingly office is entitled to no respect. It was originally > procured by the > > highwayman's methods; it remains a perpetuated crime, can never be > anything but > > the symbol of a crime. It is no more entitled to respect than is > the flag of > > a pirate. — Mark Twain > > > > > _______________________________________________ > asdf-devel mailing list > asdf-devel(a)common-lisp.net <mailto:asdf-devel@common-lisp.net> > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel > > > > > -- > My Best, > > Dave Cooper, Genworks Support > david.cooper(a)genworks.com <mailto:david.cooper@genworks.com>, > dave.genworks.com <http://dave.genworks.com>(skype) > USA: 248-327-3253(o), 1-248-330-2979(mobile) > UK: 0191 645 1699

2 1

[asdf-devel] Still having problems on upgrade tests
by Robert Goldman 04 Mar '13

04 Mar '13

The upgrade test for ACL from 1.85 fails reliably with this error: Warning: COMPILE-FILE warned while performing #<compile-op > on #<cl-source-file "asdf" "build" "asdf">. Warning: COMPILE-FILE failed while performing #<compile-op > on #<cl-source-file "asdf" "build" "asdf">. TEST ABORTED: #P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" does not exist, cannot load Evaluation stack: ; Autoloading for make-broadcast-stream: ; Fast loading /usr/local/acl/acl82.64/code/streamc.003 ;;; Installing streamc patch, version 3. ; Fast loading from bundle code/efft-utf8-base.fasl. ; Fast loading from bundle code/efft-void.fasl. ; Fast loading from bundle code/efft-latin1-base.fasl. ->(sys::..runtime-operation #11="applyn" . #1=(:unknown-args)) (tpl:do-command #2="zoom" . #<non-lisp object @ #x7>) (sys::..runtime-operation #5="lisp_apply" . #1#) [... excl::eval-as-progn ] (let . #3=(((*terminal-io* stream) (*standard-output* stream) (tpl:*zoom-print-circle* *print-circle*) (tpl:*zoom-print-level* *print-level*) (tpl:*zoom-print-length* *print-length*)) (tpl:do-command #2# :from-read-eval-print-loop nil :count t :all t))) [... excl::eval-as-progn ] (block asdf/image:raw-print-backtrace (let . #3#)) [... excl::%eval ] (asdf/image:raw-print-backtrace :stream #4=#<excl:terminal-simple-stream [initial terminal io] fd 0/1 @ #x1000251122> :count 69) (sys::..runtime-operation #10="comp_to_interp" :stream #4# :count 69) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let* . #7=(((#6=#:g822995 . #19=((cons (load-time-value excl::.ignore-errors-1.) (excl::fast excl::*handler-clusters*)))) (excl::*handler-clusters* #6#)) (declare (dynamic-extent #6# . #21=(excl::*handler-clusters*))) (progn . #8=((apply 'asdf/image:raw-print-backtrace asdf/image::keys))))) [... excl::eval-as-progn ] (catch #22='excl::ignore-errors-1 (let* . #7#)) [... excl::eval-as-progn ] (let . #9=(((*print-readably* nil) (*print-circle* t) (*print-miser-width* 75) (*print-length* nil) (*print-level* nil) (*print-pretty* t)) (ignore-errors . #8#))) [... excl::eval-as-progn ] (let ((*package* (find-package :cl))) . #16=((let . #9#))) [... excl::%eval ] ((:internal asdf/image:print-backtrace)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall #15=#<Interpreted Closure (:internal asdf/image:print-backtrace) @ #x10026adba2> . #32=#<Function funcall>) [... excl::eval-as-progn ] (let . #12=(((*package* (find-package package)) (*read-default-float-format* 'double-float) (*print-readably* nil) (*read-eval* nil)) (funcall asdf/stream::thunk))) [... excl::eval-as-progn ] (let nil . #13=((let . #12#))) [... excl::eval-as-progn ] (let . #14=(((*print-case* (excl:if* excl::*forced-readtable-case-raw* #87=then :downcase #89=else :upcase)) (*readtable* excl::std-lisp-readtable)) (locally . #13#))) [... excl::eval-as-progn ] (progv excl::with-standard-io-syntax-vars excl::with-standard-io-syntax-vals (let . #14#)) [... excl::eval-as-progn ] (block asdf/stream:call-with-safe-io-syntax (with-standard-io-syntax . #13#)) [... excl::%eval ] (asdf/stream:call-with-safe-io-syntax #15#) (sys::..runtime-operation #10# #15#) [... excl::eval-as-progn ] (block asdf/image:print-backtrace (asdf/stream:with-safe-io-syntax (:package :cl) . #16#)) [... excl::%eval ] (asdf/image:print-backtrace :stream #4# :count 69) (sys::..runtime-operation #10# :stream #4# :count 69) (sys::..runtime-operation #5# . #1#) [... excl::%eval ] (excl::eval-as-progn #17=((asdf/image:print-backtrace :stream stream :count count) (when condition (asdf/stream:safe-format! stream "~&Above backtrace due to this condition:~%~A~&" condition)))) (block asdf/image:print-condition-backtrace . #17#) [... excl::%eval ] (asdf/image:print-condition-backtrace #18=#<excl:file-does-not-exist-error @ #x100269bc42> :count 69 :stream #4#) (sys::..runtime-operation #10# #18# :count 69 :stream #4#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (block asdf-test:acall (apply (apply 'asdf-test:asym (if (consp asdf-test::name) asdf-test::name (list asdf-test::name))) asdf-test::args)) [... excl::%eval ] (asdf-test:acall :print-condition-backtrace #18# :count 69 :stream #4#) (sys::..runtime-operation #10# :print-condition-backtrace #18# :count 69 :stream #4#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let* . #23=(((#20=#:g822994 . #19#) (excl::*handler-clusters* #20#)) (declare (dynamic-extent #20# . #21#)) (progn . #24=((asdf-test:acall :print-condition-backtrace asdf-test::c :count 69 :stream *error-output*))))) [... excl::eval-as-progn ] (catch #22# (let* . #23#)) [... excl::%eval ] (excl::eval-as-progn #94=((ignore-errors . #24#) (asdf-test:leave-test "Script failed" 1))) [... excl::%eval ] ((:internal asdf-test::call-with-test) #18#) (sys::..runtime-operation #10# #18#) (signal #18#) (error excl:file-does-not-exist-error :pathname #25=#P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" :format-control "~s does not exist, cannot load" :format-arguments (#25#)) (excl::load-2 #25# t #26=(#P"" #P(:type "fasl") #P(:type "cl") #P(:type "lisp")) :error nil nil nil nil nil nil nil :default nil nil) (excl::load-1 #25# t #26# :error nil nil nil nil nil nil nil :default nil nil) (load #25#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let ((#27=#:g822982 asdf/lisp-build::x)) (typecase #27# #30=(#28=(or pathname string) (apply 'load asdf/lisp-build::x asdf/lisp-build::keys)) #31=(stream (let ((*package* *package*) (*readtable* *readtable*) (*load-pathname* nil) (*load-truename* nil)) (asdf/stream:eval-input asdf/lisp-build::x))) (otherwise (excl::.case-failure 'etypecase #27# '(or . #29=(#28# stream)) '#29#)))) [... excl::eval-as-progn ] (block asdf/lisp-build:load* (etypecase asdf/lisp-build::x #30# #31#)) [... excl::%eval ] (asdf/lisp-build:load* #25#) (sys::..runtime-operation #10# #25#) [... excl::%eval ] ((:internal asdf/lisp-action:perform-lisp-load-fasl)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall #38=#<Interpreted Closure (:internal asdf/lisp-action:perform-lisp-load-fasl) @ #x1002697c42> . #32#) [... excl::eval-as-progn ] (let* ((#33=#:g822981 (cons 't #36=#'(lambda (asdf/utility::c) (when (asdf/utility:match-any-condition-p asdf/utility::c asdf/utility::conditions) (muffle-warning asdf/utility::c))))) (#34=#:g822979 (list #33#)) (#35=#:g822980 (cons #34# . #80=((excl::fast excl::*handler-clusters*)))) (excl::*handler-clusters* #35#)) (declare (dynamic-extent #34# #35# #33# . #82=(excl::*handler-clusters*))) . #37=((funcall asdf/utility::thunk))) [... excl::eval-as-progn ] (block asdf/utility:call-with-muffled-conditions (handler-bind ((t #36#)) . #37#)) [... excl::%eval ] (asdf/utility:call-with-muffled-conditions #38# #39=("No generic function ~S present when encountering macroexpansion of defmethod. Assuming it will be an instance of standard-generic-function." "Overwriting already existing readtable ~S." #(#:finalizers-off-warning :asdf-finalizers))) (sys::..runtime-operation #10# #38# #39#) [... excl::eval-as-progn ] (block asdf/lisp-build:call-with-muffled-loader-conditions (asdf/utility:call-with-muffled-conditions asdf/lisp-build::thunk (append asdf/lisp-build:*uninteresting-compiler-conditions* asdf/lisp-build:*uninteresting-loader-conditions*))) [... excl::%eval ] (asdf/lisp-build:call-with-muffled-loader-conditions #38#) (sys::..runtime-operation #10# #38#) [... excl::eval-as-progn ] (let (#40=(asdf/lisp-action::fasl (first (asdf-action:input-files asdf/lisp-action::o asdf/lisp-action::c)))) (if (and asdf/lisp-action::fasl) #41=(asdf/lisp-build:with-muffled-loader-conditions nil (asdf/lisp-build:load* asdf/lisp-action::fasl)) nil)) [... excl::eval-as-progn ] (block asdf/lisp-action:perform-lisp-load-fasl (asdf/utility:if-let #40# #41#)) [... excl::%eval ] (asdf/lisp-action:perform-lisp-load-fasl #42=#<asdf/lisp-action:load-op > #43=#<asdf/lisp-action:cl-source-file "asdf" "build" "asdf">) (sys::..runtime-operation #10# #42# #43#) [... excl::eval-as-progn ] (block asdf-action:perform (asdf/lisp-action:perform-lisp-load-fasl asdf/lisp-action::o asdf/lisp-action::c)) [... excl::%eval ] ((method asdf-action:perform (asdf/lisp-action:load-op asdf/lisp-action:cl-source-file)) #42# #43#) (sys::..runtime-operation #10# #42# #43#) ((:internal (:effective-method 2 nil nil nil nil) 0) #42# #43#) (sys::..runtime-operation #5# . #1#) (excl::caching-miss #<standard-generic-function asdf-action:perform> (#42# #43#) #(0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)) [... excl::%eval ] (progn . #44=((asdf-action:perform asdf::op asdf/component:component) (return))) [... excl::%eval ] (return-from . #53=(#61=#:Tag415 #65=(progn . #44#))) [... excl::eval-as-progn ] (let* ((#49=#:g822528 (excl::make-restart :name 'asdf/find-component:retry :function #54=#'(lambda #45=(&rest excl::temp) (setq #46=#:g822520 . #47=(excl::temp)) (go #60=#:g822524)) :class #48=(and excl::.restart-condition. (list excl::.restart-condition.)) . #55=(:report-function #'#66=(lambda (asdf::s) (format asdf::s "~@<Retry performing ~S on ~S.~@:>" asdf::op asdf/component:component))))) (#50=#:g822529 (excl::make-restart :name 'asdf-action:accept :function #56=#'(lambda #45# (setq #46# . #47#) (go #62=#:g822525)) :class #48# . #57=(:report-function #'#67=(lambda (asdf::s) (format asdf::s "~@<Continue, treating ~S on ~S as ~ having been successful.~@:>" asdf::op asdf/component:component))))) (#51=#:g822526 (list #49# #50#)) (#52=#:g822527 (cons (and t #51#) (excl::fast excl::*restart-clusters*))) (excl::*restart-clusters* #52#)) (declare (dynamic-extent #51# #52# #49# #50# excl::*restart-clusters*)) . #58=((return-from . #53#))) [... excl::eval-as-progn ] (let* . #59=(nil (excl::restart-bind-if t ((asdf/find-component:retry #54# . #55#) (asdf-action:accept #56# . #57#)) . #58#))) [... excl::%eval ] (excl::evaluate-a-tagbody #63=((let* . #59#) #60# (return-from #61# (apply #'(lambda nil) #46#)) #62# (return-from #61# (apply #'(lambda nil . #68=((setf (gethash (type-of asdf::op) (asdf/component:component-operation-times asdf/component:component)) (get-universal-time)) (return))) #46#)))) [... excl::eval-as-progn ] (let . #64=(((#46# nil)) (tagbody. #63#))) [... excl::eval-as-progn ] (block #61# (let . #64#)) [... excl::%eval ] (excl::evaluate-a-tagbody #70=(#69=#:g822519 (progn . #72=((restart-case #65# (asdf/find-component:retry nil :report #66#) (asdf-action:accept nil :report #67# . #68#)))) (go #69#))) [... excl::eval-as-progn ] (block nil (tagbody. #70#)) [... excl::%eval ] (excl::evaluate-a-tagbody #73=(excl::next-loop (when (endp #71=#:loop-list-427) (go excl::end-loop)) (excl::loop-really-desetq #75=(asdf::op . asdf/component:component) (car #71#)) (excl::loop-really-desetq #71# (cdr #71#)) #76=(loop . #72#) (go excl::next-loop) excl::end-loop)) [... excl::eval-as-progn ] (let . #74=(((asdf::op nil) (asdf/component:component nil) (#71# asdf::steps)) (declare (type list #71#)) (tagbody. #73#))) [... excl::eval-as-progn ] (block nil (let . #74#)) [... excl::eval-as-progn ] (block excl::continuation . #90=((loop asdf::for #75# asdf::in asdf::steps do #76#))) [... excl::%eval ] ((flet asdf/operate:operate excl::continuation)) (sys::..runtime-operation #10#) [... excl::%eval ] (multiple-value-prog1 . #83=((excl::continuation) (excl::with-compilation-unit-cleanups))) [... excl::eval-as-progn ] (let* ((#77=#:g425 (cons 'excl::compiler-note #84=#'excl::tally-compilation-warnings)) (#78=#:g426 (cons 'warning #85=#'excl::tally-compilation-warnings)) (#79=#:g423 (list #77# #78#)) (#81=#:g424 (cons #79# . #80#)) (excl::*handler-clusters* #81#)) (declare (dynamic-extent #79# #81# #77# #78# . #82#)) . #86=((multiple-value-prog1 . #83#))) [... excl::eval-as-progn ] (progv . #88=((mapcar #'car excl::.with-compilation-unit-bindings.) (excl::with-compilation-unit-values) (handler-bind ((excl::compiler-note #84#) (warning #85#)) . #86#))) [... excl::eval-as-progn ] (let nil . #91=((excl:if* (or nil (null excl::.with-compilation-unit.)) #87# (progv . #88#) #89# (excl::continuation)))) [... excl::%eval ] (flet ((excl::continuation nil . #90#)) . #91#) [... excl::eval-as-progn ] (let* . #92=(((asdf::op (apply #'make-instance asdf::operation-class :original-initargs asdf::args asdf::args)) (asdf/upgrade:*verbose-out* (if (getf asdf::args :verbose t) *trace-output* (make-broadcast-stream))) (asdf/system:system (if (typep asdf/system:system 'asdf/component:component) asdf/system:system (asdf/system:find-system asdf/system:system))) (asdf::steps (asdf/plan:traverse asdf::op asdf/system:system))) (with-compilation-unit nil . #90#))) [... excl::eval-as-progn ] (block asdf/operate:operate (let* . #92#)) [... excl::%eval ] (asdf/operate:operate asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #10# asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (block asdf/operate:oos (apply #'asdf/operate:operate asdf::args)) [... excl::%eval ] (asdf/operate:oos asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #10# asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #5# . #1#) (sys::..runtime-operation #5# . #1#) [... excl::%eval ] ((:internal asdf-test:load-asdf-system)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall #93=#<Interpreted Closure (:internal asdf-test:load-asdf-system) @ #x10006ac4e2> . #32#) [... excl::eval-as-progn ] (block asdf-test::call-quietly (handler-bind () (funcall asdf-test::thunk))) [... excl::%eval ] (asdf-test::call-quietly #93#) (sys::..runtime-operation #10# #93#) [... excl::eval-as-progn ] (block asdf-test:load-asdf-system (asdf-test:quietly (asdf-test:register-directory asdf-test:*asdf-directory*) (apply (asdf-test:asym :oos) (asdf-test:asym :load-op) :asdf asdf-test::keys))) [... excl::%eval ] (asdf-test:load-asdf-system) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall asdf-test:load-asdf-system . #32#) [... excl::%eval ] ((:internal asdf-test::test-upgrade)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall #102=#<Interpreted Closure (:internal asdf-test::test-upgrade) @ #x100068c422> . #<Interpreted Function asym>) (sys::..runtime-operation #11# . #1#) (funcall funcall . #32#) [... excl::%eval ] (excl::eval-as-progn #98=((funcall (or (asdf-test:asym :call-with-asdf-cache) 'funcall) asdf-test::thunk) (asdf-test:leave-test "Script succeeded" 0))) (let* ((#95=#:g138 (cons 'error #99=(lambda (asdf-test::c) (ignore-errors (format *error-output* "~&TEST ABORTED: ~A~&" asdf-test::c)) (asdf-test::finish-outputs*) (cond (asdf-test::*debug-asdf* (format t "~&It's your baby, fix it!~%") (break)) (t . #94#))))) (#96=#:g136 (list #95#)) (#97=#:g137 (cons #96# . #80#)) (excl::*handler-clusters* #97#)) (declare (dynamic-extent #96# #97# #95# . #82#)) . #98#) [... excl::eval-as-progn ] (catch . #100=(:asdf-test-done (handler-bind ((error #99#)) . #98#))) [... excl::%eval ] (let . #101=(((asdf-test::result (catch . #100#))) (when asdf-test::*quit-when-done* (asdf-test::exit-lisp asdf-test::result)))) [... excl::eval-as-progn ] (block asdf-test::call-with-test (asdf-test::redirect-outputs) (let . #101#)) [... excl::%eval ] (asdf-test::call-with-test #102#) (sys::..runtime-operation #10# #102#) [... excl::eval-as-progn ] (block asdf-test::test-upgrade (asdf-test:with-test nil (asdf-test::verbose t nil) (when asdf-test::old-method (cond ((string-equal asdf-test::tag "REQUIRE") (format t "Requiring some previous ASDF ~A~%" asdf-test::tag) (ignore-errors (funcall 'require "asdf")) (if (member "ASDF" *modules* :test 'equalp) (format t "Your Lisp implementation provided ASDF ~A~%" (asdf-test::get-asdf-version)) (asdf-test:leave-test "Your Lisp implementation does not provide ASDF. Skipping test.~%" 0))) (t (format t "Loading old asdf ~A via ~A~%" asdf-test::tag asdf-test::old-method) (funcall asdf-test::old-method asdf-test::tag)))) (when (find-package :asdf) (asdf-test::configure-asdf)) (format t "Now loading new asdf via method ~A~%" asdf-test::new-method) (funcall asdf-test::new-method) (format t "Testing it~%") (asdf-test:register-directory asdf-test:*test-directory*) (asdf-test:load-test-system :test-asdf/all) (assert (asdf-test:asymval '#:*file1* :test-package)) (assert (asdf-test:asymval '#:*file3* :test-package)))) [... excl::%eval ] (asdf-test::test-upgrade asdf-test:load-asdf-lisp asdf-test:load-asdf-system #103="1.85") (sys::..runtime-operation #10# asdf-test:load-asdf-lisp asdf-test:load-asdf-system #103#) [... excl::%eval ] (eval (asdf-test::test-upgrade 'asdf-test:load-asdf-lisp 'asdf-test:load-asdf-system #103#)) (excl::sharp-dot #104=#<excl:string-input-simple-stream "'(#.(load\"te..." pos 117 @ #x1000643ca2> #\. nil) (excl::read-dispatch-char #104# #\#) [... sys::funcall-check ] (excl::read-maybe-nothing #104# #\#) (excl::read-list #104# #\() [... sys::funcall-check ] (excl::read2 #104# t nil t nil nil) (excl::read1 #104# t nil t nil nil) (read #104# t nil t) (excl::read-quote #104# #\') [... sys::funcall-check ] (excl::read2 #104# t nil nil nil nil) (excl::read1 #104# t nil nil nil nil) (read #104# t nil) (read-from-string "'(#.(load\"test/script-support.lisp\")#.(in-package :asdf-test)#.(test-upgrade 'load-asdf-lisp'load-asdf-system \"1.85\"))") (excl::do-command-line-processing) (excl::start-lisp-execution t) Above backtrace due to this condition: #P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" does not exist, cannot load Script failed upgrade FAILED for allegromodern from 1.85 using method 'load-asdf-lisp'load-asdf-system Interestingly, when I paste the replication string into bash: ASDF_UPGRADE_TEST_TAGS="1.85" ASDF_UPGRADE_TEST_METHODS="'load-asdf-lisp'load-asdf-system" ./test/run-tests.sh -u allegromodern this works fine. So this only fails for me when running in the context of make.... r

2 5

[asdf-devel] wert?
by Faré 03 Mar '13

03 Mar '13

Hans Hübner suggests that asdf-driver is too clumsy a name, and suggested we rename it to something in the line of asdf and poiu. What do you think of wert - wispy environment run-time? The existing aliases asdf-driver, asdf/driver, asdf-utils would remain for a while. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The party of the first part shall be known in this contract as the party of the first part. — Groucho Marx

3 4

[asdf-devel] An upgrade path for checking deferred-warnings
by Faré 03 Mar '13

03 Mar '13

Summary: I'm considering a "whitelist" approach for allowing old software to be compiled without checking deferred warnings while they remain enabled by default for all new software. But implementation is prolematic. Over a week after I contacted every maintainer of a Quicklisp system with a known issue with ASDF3, half replied only (26 out of 51), most of them (19) by fixing the new found bug in their code, a few of them (3) by declaring their package unmaintained (lisp-on-lines cambl-test xmls-tools), a few of them (4) working on it. There may be more problematic systems not found by Anton's cl-test-grid yet, because they depend on a system that breaks the build earlier. Therefore, it seems unreasonable to expect all these systems to be updated in a timely manner (or maybe ever at all). Since the entire idea of ASDF2, as told in rpgoldman's and my 2010 paper "Evolving ASDF: More Cooperation, Less Coordination" is that upgrading should require less rather than more coordination between hackers, it is time that I declare this simultaneous change towards checking deferred warnings as a failure. The question then being, what next? Is there any way that ASDF can ever enforce new code restriction to help developers without breaking things for users of existing software? My proposal is that ASDF should have a new configuration mechanism that lets users override some settings in other systems without modifying the .asd file, and have default values for this mechanism that disable the checking of warnings on old enough copies of a system. ASDF would come with builtin such configuration (ignorable as usual with :ignore-inherited-configuration) to handle all the known systems that fail. The detection of what system is "old enough" is itself a challenge. Unhappily, git doesn't preserve timestamps by default (there are scripts floating around to touch each file with the date of its latest modifying commit, but that's not the default behaviour), and neither does darcs. We therefore can't assume the filesystem timestamp of the .asd file was preserved from the original source archive. We could then use the asdf :version as the basis for such overrides, but that would force the authors of any such system to adopt the ASDF versioning system when they previously weren't. What do you think? —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Designing a computer programming system that doesn't address transactional persistence means that you're proud of having no data worth keeping.

4 6

[asdf-devel] printing the symbol asdf:defsystem for .asd file
by Dave Cooper 03 Mar '13

03 Mar '13

So I am using ASDF 2.31 which puts the symbol "defsystem" into asdf/defsystem package instead of plain asdf package (Franz already includes ASDF 2.31 in their patches for Allegro CL). I have a little utility which emits the .asd files for me, with a form like: `(asdf:defsystem ,(something-to-make-my-system-name) :description "blah" … ) and now the asdf:defsystem symbol is coming out as asdf/defsystem:defsystem instead, which makes the .asd file non backwards-compatible with slightly older asdf versions, because (symbol-package 'asdf:defsystem) --> #<The asdf/defsystem package> So the Question is, what is the best way to get asdf:defsystem to print as asdf:defsystem, when its home package is :asdf/defsystem and apparently it is now just re-exported from :asdf. Or should this symbol now be officially printed as asdf/defsystem:defsystem ? Or should I put some (in-package ...) statement at the top of the .asd file, and use plain defsystem with no package prefix? Of course I think for the time being the .asd file should be compatible with all ASDF versions from recent history... -- My Best, Dave Cooper, Genworks Support david.cooper(a)genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-248-330-2979(mobile) UK: 0191 645 1699

4 11