asdf-devel

asdf-devel@common-lisp.net

5 participants
1375 discussions

[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

[asdf-devel] ASDF 2.30 released
by Faré 02 Mar '13

02 Mar '13

Dear Lisp hackers, ASDF 2.30 is another stability release in preparation for ASDF 3. Since 2.29, in addition to specific portability fixes for CCL and CMUCL, it notably restores some backward compatible behavior for syntax tables around loading .asd files, using mutable global tables, instead of standard syntax tables. Just like 2.29, 2.28 and 2.27 before it, ASDF 2.30 is a pre-release of ASDF 3, an almost complete rewrite of ASDF, and includes a vast number of improvements since ASDF 2.26. http://lists.common-lisp.net/pipermail/asdf-announce/2013-February/000014.h… We invite all implementation vendors to update to ASDF 2.30. We also invite all implementations to make the standard *readtable* and *print-pprint-dispatch* tables immutable, with useful error messages when a modification is attempted. See how the CLHS forbids conformant programs from modifying them: http://clhs.lisp.se/Body/26_glo_s.htm#standard_readtable http://clhs.lisp.se/Body/26_glo_s.htm#standard_pprint_dispatch_table Such modification can only result in problems down the line for users, and it would be nice if at least when SAFETY isn't 0, that were checked. In some unspecified future, we'd like to revert to ASDF 2.29's behavior of binding the syntax tables to their standard values, and then we hope that most implementations will immediately catch misguided attempts by users to modify them (SBCL is the only implementation enforced immutability on both tables). Many thanks to stassats and avodonosov for their help in testing ASDF and helping make it more robust, more portable and more backward compatible. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org There is no reason ever to have the same thought twice, unless you like having that thought — David Allen, "Getting Things Done"

2 2

[asdf-devel] Is is possible to not have ASDF output build-report files and foo.bar-warnings files?
by Gary King 02 Mar '13

02 Mar '13

An admittedly quick look at the source didn't ring any bells for me. thanks, -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM * gwking on twitter

2 2

[asdf-devel] clearing output-translations for a "dumped" image
by Dave Cooper 01 Mar '13

01 Mar '13

Dear All, When "saving a world" (i.e. "dumping" an image, e.g. "dumplisp" in Allegro CL), which has asdf (and quicklisp) loaded in it, what is the proper way to clear the output-translations and any other local path residue from ending up in the saved image? That is, when a new user starts the image on a target machine, it should be forced to re-initialize the output-translations to the appropriate path for the new user (e.g. ~/.cache/common-lisp/... with respect to new user's home directory). -- 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

3 6

[asdf-devel] Test results on Mac OSX
by Robert Goldman 28 Feb '13

28 Feb '13

Just pulled from git this afternoon and reran the tests on ccl clisp sbcl ecl abcl allegro allegromodern * ECL 12.12.1 fails tests test-multiple.script test-run-program.script test-multiple: TEST ABORTED: Subprocess run with command "/bin/ln -sf /Users/rpg/lisp/asdf/test/test-multiple.asd /Users/rpg/lisp/asdf/build/test-multiple-too.asd 2>&1" exited with error code 1 No backtrace for this. TEST ABORTED: Subprocess run with command "echo ok 1" exited with error code 1 For test-run-program I see: exec: Too few arguments. TEST ABORTED: Subprocess run with command "echo ok 1" exited with error code 1 * ABCL 1.1.0.2 failed test-encodings: TEST ABORTED: These two expressions fail comparison with EQUAL: (STRING-CHAR-CODES "λ") evaluates to (338 170) (EXPECTED-CHAR-CODES (QUOTE :UTF-8)) evaluates to (955) Above backtrace due to this condition: These two expressions fail comparison with EQUAL: (ASDF-TEST::STRING-CHAR-CODES "λ") evaluates to (338 170) (ASDF-TEST::EXPECTED-CHAR-CODES (QUOTE :UTF-8)) evaluates to (955) Script failed * Allegro Modern 8.2 failed test-utilities with this error: TEST ABORTED: Package "ASDF/ACTION" not found. [file position = 3334] The problem is the defparameter for *ok-symbols*, which gives the symbol names in all caps. I am attaching a patch for this. Best, r

3 11

[asdf-devel] cl-growl and weakly-depends-on
by Faré 27 Feb '13

27 Feb '13

Dear Pat, I'd like to kill the evil that is :weakly-depends-on, and your cl-growl seems to be the only user of it in quicklisp. :weakly-depends-on is evil because it's non-deterministic, and what code you get depends on which order things were compiled or configured, and you can't fix things after the fact. Could you stop using it? Alternatives include having a separate system foo+bar that explicitly loads foo and bar before doing the connection, and/or using asdf-system-connections to automatically load foo+bar when both foo and bar have been loaded. I don't personally like this automatic loading, but at least it doesn't break determinism. As for allowing a system to run with or without another, that's what hooks are call, i.e. runtime configuration variables. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org So that there be reality, there must be an observer. "I am, therefore someone thinks." — Faré

2 2

[asdf-devel] strange interaction between ql:quickload and ASDF
by Anton Vodonosov 27 Feb '13

27 Feb '13

Hello. I have very strange behaviour of ql:quickload that I observer only on ABCL. It happens when I run (ql:quickload :modf). Precondition: the system :modf is NOT installed into quicklisp. > java -jar abcl.jar --noinit --nosystem Armed Bear Common Lisp 1.1.0 Java 1.6.0_26 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.945 seconds. Startup completed in 4.8 seconds. Type ":help" for a list of available commands. CL-USER(1): (load "C:\\Users\\anton\\quicklisp\\setup.lisp") T CL-USER(2): (ql:quickload :modf) Error loading C:/Users/anton/quicklisp/dists/quicklisp/software/closer-mop-20130128-darcs/closer-mop.asd at line 43 (offset 1649) #<THREAD "interpreter" {40773F4B}>: Debugger invoked on condition of type LOAD-SYSTEM-DEFINITION-ERROR Error while trying to load definition for system closer-mop from pathname C:/Users/anton/quicklisp/dists/quicklisp/software/closer-mop-20130128 -darcs/closer-mop.asd: Unrecognized keyword argument ("closer-mop-packages" "closer-mop-shared") Restarts: 0: REINITIALIZE-SOURCE-REGISTRY-AND-RETRY Retry finding system closer-mop after reinitializing the source-registry. 1: ABORT Give up on "modf" 2: TOP-LEVEL Return to top level. [1] ASDF0(3): As you see it is trying to load closer-mop. Why? If :modf ASDF is not available, quicklisp should not load anything other systems yet. Moreover, modf.asd has :depends-on (:alexandria #-abcl :closer-mop :iterate) So on ABCL it does not depend on closer-mop. I got backtrace using this command: [1] ASDF0(3): (with-open-file (stream "C:\\Users\\anton\\unpacked\\abcl\\abcl-bin-1.1.0\\backtrace.txt" :direction :output :if-exists :supersede :if-does-not-exist :create) (let ((*debug-io* stream)) (top-level::backtrace-command "10000"))) The resulting file is here: https://dl.dropbox.com/u/5708042/backtrace.txt. @abcl dvelopers: this backtrace seem to contain not only the current invocation stack, but also previous calls, already finished. For example the (LOAD "C:\\Users\\anton\\quicklisp\\setup.lisp") at the very bottom of the file. Do I retrieve backtrace incorrectly? Back to the ql:quickload problem. I know that if I install :modf with CCL, this problem doesn't happen anymore, and ABCL can load it. Zach, how it works? Best regards, - Anton

1 2

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

asdf-devel