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

Re: [asdf-devel] ASDF testing [2]
by Faré 01 Mar '10

01 Mar '10

On 1 March 2010 15:08, james anderson <james.anderson(a)setf.de> wrote: > good morning, gentlemen; > > ccl does, in fact, run on ec2 if the kernel is recent enough. > martin simmons and craig norvell are both receptive and expect their > companies would be willing to provide licenses. > > so, the basic logistics are clear. > > thoughts? > Wonderful. The big question is: who's volunteering to do the hard work? Are you? I'm not. As for paying the hosting, I'm sure the question will be annoying but trivial in comparison. [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] Many people believe "in the name of the (nation, poor, god, nature...)" like "simon says" justifies or damns political opinions when said or omitted.

2 1

Re: [asdf-devel] ASDF testing
by Faré 28 Feb '10

28 Feb '10

Apparently, in script-support.lisp, the leave-lisp implementation for lispworks is broken. Can you fix it? Renaming "code" to "return" might or might not be enough. Next time you have an error, can you include a backtrace? Thanks a *lot* for your debugging help. [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] The socialist says: "From each according to his ability, to each according to his need." What it really advocates in practice: "From each according to his gullibility, to each according to his greed." On 27 February 2010 21:25, David McClain <dbm(a)refined-audiometrics.com> wrote: > Yes, (1) I am using what I downloaded yesterday after your most recent > changes. File asdf-44ae9b1f75dac2d4e62bf1c25ba85cb373737ceb.tar > And your hint about a softlink was wonderful... Instead, I just changed the > script to state LWM64 wherever LISPWORKS was mentioned... Here are the > results... > > bash-3.2$ run-tests.sh lwm64 > lwm64 is /users/dbmcclain/projects/bin/lwm64 > /users/dbmcclain/projects/bin/lwm64 -siteinit - -init - > LispWorks(R): The Common Lisp Programming Environment > Copyright (C) 1987-2009 LispWorks Ltd. All rights reserved. > Version 6.0.0 > Saved by dbmcclain as lwm64, at 27 Feb 2010 6:37 > User dbmcclain on RoadKill.local > ; Loading text file /Users/dbmcclain/Downloads/asdf/test/compile-asdf.lisp > ; Loading text file > /Users/dbmcclain/Downloads/asdf/test/script-support.lisp > ;;; Compiling file /Users/dbmcclain/Downloads/asdf/asdf.lisp ... > ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 1 > ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 > ;;; Source level debugging is on > ;;; Source file recording is on > ;;; Cross referencing is on > ; (TOP-LEVEL-FORM 0) > ; (TOP-LEVEL-FORM 1) > ; (TOP-LEVEL-FORM 3) > ; (TOP-LEVEL-FORM 4) > ; (DEFPARAMETER ASDF::*ASDF-VERSION*) > ; ASDF:ASDF-VERSION > ; (DEFVAR ASDF:*RESOLVE-SYMLINKS*) > ; (DEFVAR ASDF:*COMPILE-FILE-WARNINGS-BEHAVIOUR*) > ; (DEFVAR ASDF:*COMPILE-FILE-FAILURE-BEHAVIOUR*) > ; (DEFVAR ASDF::*VERBOSE-OUT*) > ; (DEFPARAMETER ASDF::+ASDF-METHODS+) > ; (TOP-LEVEL-FORM 12) > ; (TOP-LEVEL-FORM 12) > ; (METHOD-COMBINATION ASDF:STANDARD-ASDF-METHOD-COMBINATION) > ; (TOP-LEVEL-FORM 14) > ; (DEFGENERIC ASDF:PERFORM) > ; (DEFGENERIC ASDF:OPERATION-DONE-P) > ; (DEFGENERIC ASDF:EXPLAIN) > ; (DEFGENERIC ASDF:OUTPUT-FILES) > ; (DEFGENERIC ASDF:INPUT-FILES) > ; (DEFGENERIC ASDF:SYSTEM-SOURCE-FILE) > ; (DEFGENERIC ASDF:COMPONENT-SYSTEM) > ; (DEFGENERIC ASDF:COMPONENT-PATHNAME) > ; (DEFGENERIC ASDF:COMPONENT-RELATIVE-PATHNAME) > ; (DEFGENERIC ASDF:COMPONENT-PROPERTY) > ; (DEFGENERIC (SETF ASDF:COMPONENT-PROPERTY)) > ; (DEFGENERIC ASDF::VERSION-SATISFIES) > ; (DEFGENERIC ASDF:FIND-COMPONENT) > ; (DEFGENERIC ASDF:SOURCE-FILE-TYPE) > ; (DEFGENERIC ASDF::OPERATION-ANCESTOR) > ; (DEFGENERIC ASDF::COMPONENT-VISITED-P) > ; (DEFGENERIC ASDF::VISIT-COMPONENT) > ; (DEFGENERIC (SETF ASDF::VISITING-COMPONENT)) > ; (DEFGENERIC ASDF::COMPONENT-VISITING-P) > ; (DEFGENERIC ASDF:COMPONENT-DEPENDS-ON) > ; (DEFGENERIC ASDF::COMPONENT-SELF-DEPENDENCIES) > ; (DEFGENERIC ASDF::TRAVERSE) > ; (DEFGENERIC ASDF::OUTPUT-FILES-USING-MAPPINGS) > ; ASDF-UTILITIES:AIF > ; ASDF-UTILITIES:PATHNAME-SANS-NAME+TYPE > ; ASDF-UTILITIES:PATHNAME-DIRECTORY-PATHNAME > ; ASDF-UTILITIES:APPENDF > ; ASDF-UTILITIES:ASDF-MESSAGE > ; ASDF-UTILITIES:SPLIT > ; ASDF-UTILITIES:COMPONENT-NAME-TO-PATHNAME-COMPONENTS > ; ASDF-UTILITIES:REMOVE-KEYS > ; ASDF-UTILITIES:REMOVE-KEYWORD > ; ASDF-UTILITIES:RESOLVE-SYMLINKS > ; ASDF-UTILITIES:GETENV > ; ASDF-UTILITIES:DIRECTORY-PATHNAME-P > ; ASDF-UTILITIES:ENSURE-DIRECTORY-PATHNAME > ; ASDF-UTILITIES:ABSOLUTE-PATHNAME-P > ; ASDF-UTILITIES:LENGTH=N-P > ; ASDF-UTILITIES:ENDS-WITH > ; ASDF-UTILITIES:MAKE-COLLECTOR > ; ASDF-UTILITIES:READ-FILE-FORMS > ; ASDF-UTILITIES:GET-UID > ; ASDF-UTILITIES:TRUENAMIZE > ; (SUBFUNCTION (DEFCLASS ASDF:SYSTEM-DEFINITION-ERROR) (DEFINE-CONDITION > ASDF:SYSTEM-DEFINITION-ERROR)) > ; (DEFINE-CONDITION ASDF:SYSTEM-DEFINITION-ERROR) > ; (SUBFUNCTION (DEFCLASS ASDF::FORMATTED-SYSTEM-DEFINITION-ERROR) > (DEFINE-CONDITION ASDF::FORMATTED-SYSTEM-DEFINITION-ERROR)) > ; (DEFINE-CONDITION ASDF::FORMATTED-SYSTEM-DEFINITION-ERROR) > ; (DEFINE-CONDITION ASDF::FORMATTED-SYSTEM-DEFINITION-ERROR) > ; (SUBFUNCTION (DEFCLASS ASDF:MISSING-DEFINITION) (DEFINE-CONDITION > ASDF:MISSING-DEFINITION)) > ; (DEFINE-CONDITION ASDF:MISSING-DEFINITION) > ; (DEFINE-CONDITION ASDF:MISSING-DEFINITION) > ; (SUBFUNCTION (DEFCLASS ASDF:CIRCULAR-DEPENDENCY) (DEFINE-CONDITION > ASDF:CIRCULAR-DEPENDENCY)) > ; (DEFINE-CONDITION ASDF:CIRCULAR-DEPENDENCY) > ; (SUBFUNCTION (DEFCLASS ASDF:DUPLICATE-NAMES) (DEFINE-CONDITION > ASDF:DUPLICATE-NAMES)) > ; (DEFINE-CONDITION ASDF:DUPLICATE-NAMES) > ; (SUBFUNCTION (DEFCLASS ASDF:MISSING-COMPONENT) (DEFINE-CONDITION > ASDF:MISSING-COMPONENT)) > ; (DEFINE-CONDITION ASDF:MISSING-COMPONENT) > ; (SUBFUNCTION (DEFCLASS ASDF:MISSING-COMPONENT-OF-VERSION) > (DEFINE-CONDITION ASDF:MISSING-COMPONENT-OF-VERSION)) > ; (DEFINE-CONDITION ASDF:MISSING-COMPONENT-OF-VERSION) > ; (SUBFUNCTION (DEFCLASS ASDF:MISSING-DEPENDENCY) (DEFINE-CONDITION > ASDF:MISSING-DEPENDENCY)) > ; (DEFINE-CONDITION ASDF:MISSING-DEPENDENCY) > ; (SUBFUNCTION (DEFCLASS ASDF:MISSING-DEPENDENCY-OF-VERSION) > (DEFINE-CONDITION ASDF:MISSING-DEPENDENCY-OF-VERSION)) > ; (DEFINE-CONDITION ASDF:MISSING-DEPENDENCY-OF-VERSION) > ; (SUBFUNCTION (DEFCLASS ASDF:OPERATION-ERROR) (DEFINE-CONDITION > ASDF:OPERATION-ERROR)) > ; (DEFINE-CONDITION ASDF:OPERATION-ERROR) > ; (DEFINE-CONDITION ASDF:OPERATION-ERROR) > ; (SUBFUNCTION (DEFCLASS ASDF:COMPILE-ERROR) (DEFINE-CONDITION > ASDF:COMPILE-ERROR)) > ; (DEFINE-CONDITION ASDF:COMPILE-ERROR) > ; (SUBFUNCTION (DEFCLASS ASDF:COMPILE-FAILED) (DEFINE-CONDITION > ASDF:COMPILE-FAILED)) > ; (DEFINE-CONDITION ASDF:COMPILE-FAILED) > ; (SUBFUNCTION (DEFCLASS ASDF:COMPILE-WARNED) (DEFINE-CONDITION > ASDF:COMPILE-WARNED)) > ; (DEFINE-CONDITION ASDF:COMPILE-WARNED) > ; (DEFCLASS ASDF:COMPONENT) > ; (METHOD PRINT-OBJECT (ASDF:MISSING-DEPENDENCY T)) > ; ASDF::SYSDEF-ERROR > ; (METHOD PRINT-OBJECT (ASDF:MISSING-COMPONENT T)) > ; (METHOD PRINT-OBJECT (ASDF:MISSING-COMPONENT-OF-VERSION T)) > ; (METHOD ASDF:COMPONENT-SYSTEM (ASDF:COMPONENT)) > ; (METHOD PRINT-OBJECT (ASDF:COMPONENT T)) > ; (DEFCLASS ASDF:MODULE) > ; ASDF::COMPONENT-PARENT-PATHNAME > ; (METHOD ASDF:COMPONENT-RELATIVE-PATHNAME (ASDF:MODULE)) > ; (METHOD ASDF:COMPONENT-PATHNAME (ASDF:COMPONENT)) > ; (METHOD ASDF:COMPONENT-PROPERTY (ASDF:COMPONENT T)) > ; (METHOD (SETF ASDF:COMPONENT-PROPERTY) (T ASDF:COMPONENT T)) > ; (DEFCLASS ASDF:SYSTEM) > ; (METHOD ASDF::VERSION-SATISFIES (ASDF:COMPONENT T)) > ; (METHOD ASDF::VERSION-SATISFIES (STRING T)) > ; ASDF::MAKE-DEFINED-SYSTEMS-TABLE > ; (DEFVAR ASDF::*DEFINED-SYSTEMS*) > ; ASDF-UTILITIES:COERCE-NAME > ; ASDF-UTILITIES:SYSTEM-REGISTERED-P > ; ASDF:MAP-SYSTEMS > ; (DEFPARAMETER ASDF:*SYSTEM-DEFINITION-SEARCH-FUNCTIONS*) > ; ASDF:SYSTEM-DEFINITION-PATHNAME > ; (DEFVAR ASDF:*CENTRAL-REGISTRY*) > ; ASDF::SYSDEF-CENTRAL-REGISTRY-SEARCH > ; ASDF::MAKE-TEMPORARY-PACKAGE > ; ASDF::SAFE-FILE-WRITE-DATE > ; ASDF:FIND-SYSTEM > ; ASDF::REGISTER-SYSTEM > ; (METHOD ASDF:FIND-COMPONENT (ASDF:MODULE T)) > ; (METHOD ASDF:FIND-COMPONENT ((EQL NIL) T)) > ; (DEFCLASS ASDF:SOURCE-FILE) > ; (DEFCLASS ASDF:CL-SOURCE-FILE) > ; (DEFCLASS ASDF:C-SOURCE-FILE) > ; (DEFCLASS ASDF:JAVA-SOURCE-FILE) > ; (DEFCLASS ASDF:STATIC-FILE) > ; (DEFCLASS ASDF:DOC-FILE) > ; (DEFCLASS ASDF:HTML-FILE) > ; (METHOD ASDF:SOURCE-FILE-TYPE (ASDF:CL-SOURCE-FILE ASDF:MODULE)) > ; (METHOD ASDF:SOURCE-FILE-TYPE (ASDF:C-SOURCE-FILE ASDF:MODULE)) > ; (METHOD ASDF:SOURCE-FILE-TYPE (ASDF:JAVA-SOURCE-FILE ASDF:MODULE)) > ; (METHOD ASDF:SOURCE-FILE-TYPE (ASDF:HTML-FILE ASDF:MODULE)) > ; (METHOD ASDF:SOURCE-FILE-TYPE (ASDF:STATIC-FILE ASDF:MODULE)) > ; ASDF::MERGE-COMPONENT-RELATIVE-PATHNAME > ; (METHOD ASDF:COMPONENT-RELATIVE-PATHNAME (ASDF:SOURCE-FILE)) > ; (DEFCLASS ASDF:OPERATION) > ; (METHOD PRINT-OBJECT (ASDF:OPERATION T)) > ; (METHOD SHARED-INITIALIZE :AFTER (ASDF:OPERATION T)) > ; ASDF::NODE-FOR > ; (METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION)) > ; ASDF::MAKE-SUB-OPERATION > ; (METHOD ASDF::VISIT-COMPONENT (ASDF:OPERATION ASDF:COMPONENT T)) > ; (METHOD ASDF::COMPONENT-VISITED-P (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD (SETF ASDF::VISITING-COMPONENT) (T T T)) > ; (METHOD (SETF ASDF::VISITING-COMPONENT) (T ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF::COMPONENT-VISITING-P (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:COMPONENT-DEPENDS-ON (SYMBOL ASDF:COMPONENT)) > ; (METHOD ASDF:COMPONENT-DEPENDS-ON (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF::COMPONENT-SELF-DEPENDENCIES (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:INPUT-FILES (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:INPUT-FILES (ASDF:OPERATION ASDF:MODULE)) > ; (METHOD ASDF:OPERATION-DONE-P (ASDF:OPERATION ASDF:COMPONENT)) > ; (DEFVAR ASDF::*FORCING*) > ; (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:PERFORM (ASDF:OPERATION ASDF:SOURCE-FILE)) > ; (METHOD ASDF:PERFORM (ASDF:OPERATION ASDF:MODULE)) > ; (METHOD ASDF:EXPLAIN (ASDF:OPERATION ASDF:COMPONENT)) > ; (DEFCLASS ASDF:COMPILE-OP) > ; (METHOD ASDF:PERFORM :BEFORE (ASDF:COMPILE-OP ASDF:SOURCE-FILE)) > ; (METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:OUTPUT-FILES (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:STATIC-FILE)) > ; (METHOD ASDF:OUTPUT-FILES (ASDF:COMPILE-OP ASDF:STATIC-FILE)) > ; (METHOD ASDF:INPUT-FILES (ASDF:COMPILE-OP ASDF:STATIC-FILE)) > ; (DEFCLASS ASDF::BASIC-LOAD-OP) > ; (DEFCLASS ASDF:LOAD-OP) > ; (METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:PERFORM ASDF:AROUND (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:PERFORM ASDF:AROUND (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:STATIC-FILE)) > ; (METHOD ASDF:OPERATION-DONE-P (ASDF:LOAD-OP ASDF:STATIC-FILE)) > ; (METHOD ASDF:OUTPUT-FILES (ASDF:OPERATION ASDF:COMPONENT)) > ; (METHOD ASDF:COMPONENT-DEPENDS-ON (ASDF:LOAD-OP ASDF:COMPONENT)) > ; (DEFCLASS ASDF:LOAD-SOURCE-OP) > ; (METHOD ASDF:PERFORM (ASDF:LOAD-SOURCE-OP ASDF:CL-SOURCE-FILE)) > ; (METHOD ASDF:PERFORM (ASDF:LOAD-SOURCE-OP ASDF:STATIC-FILE)) > ; (METHOD ASDF:OUTPUT-FILES (ASDF:LOAD-SOURCE-OP ASDF:COMPONENT)) > ; (METHOD ASDF:COMPONENT-DEPENDS-ON (ASDF:LOAD-SOURCE-OP ASDF:COMPONENT)) > ; (METHOD ASDF:OPERATION-DONE-P (ASDF:LOAD-SOURCE-OP ASDF:SOURCE-FILE)) > ; (DEFCLASS ASDF:TEST-OP) > ; (METHOD ASDF:PERFORM (ASDF:TEST-OP ASDF:COMPONENT)) > ; (METHOD ASDF:OPERATION-DONE-P (ASDF:TEST-OP ASDF:SYSTEM)) > ; (METHOD ASDF:COMPONENT-DEPENDS-ON :AROUND (ASDF:TEST-OP ASDF:SYSTEM)) > ; ASDF:OPERATE > ; ASDF:OOS > ; (TOP-LEVEL-FORM 167) > ; ASDF:LOAD-SYSTEM > ; ASDF:COMPILE-SYSTEM > ; ASDF:TEST-SYSTEM > ; ASDF::DETERMINE-SYSTEM-PATHNAME > ; ASDF:DEFSYSTEM > ; ASDF::CLASS-FOR-TYPE > ; ASDF::MAYBE-ADD-TREE > ; ASDF::UNION-OF-DEPENDENCIES > ; (DEFVAR ASDF::*SERIAL-DEPENDS-ON*) > ; ASDF::SYSDEF-ERROR-COMPONENT > ; ASDF::CHECK-COMPONENT-INPUT > ; ASDF::%REMOVE-COMPONENT-INLINE-METHODS > ; ASDF::%DEFINE-COMPONENT-INLINE-METHODS > ; ASDF::%REFRESH-COMPONENT-INLINE-METHODS > ; ASDF::PARSE-COMPONENT-FORM > ; ASDF:RUN-SHELL-COMMAND > ; (METHOD ASDF:SYSTEM-SOURCE-FILE (T)) > ; ASDF::SYSTEM-SOURCE-DIRECTORY > ; ASDF::RELATIVIZE-DIRECTORY > ; ASDF::RELATIVIZE-PATHNAME-DIRECTORY > ; ASDF:SYSTEM-RELATIVE-PATHNAME > ; (DEFPARAMETER ASDF::*IMPLEMENTATION-FEATURES*) > ; (DEFPARAMETER ASDF::*OS-FEATURES*) > ; (DEFPARAMETER ASDF::*ARCHITECTURE-FEATURES*) > ; ASDF::LISP-VERSION-STRING > ; ASDF::FIRST-FEATURE > ; ASDF::IMPLEMENTATION-TYPE > ; ASDF::IMPLEMENTATION-IDENTIFIER > ; ASDF::USER-CONFIGURATION-DIRECTORY > ; ASDF::SYSTEM-CONFIGURATION-DIRECTORY > ; ASDF::CONFIGURATION-INHERITANCE-DIRECTIVE-P > ; ASDF::VALIDATE-CONFIGURATION-FORM > ; ASDF::VALIDATE-CONFIGURATION-FILE > ; ASDF::VALIDATE-CONFIGURATION-DIRECTORY > ; (DEFVAR ASDF::*OUTPUT-TRANSLATIONS*) > ; (DEFVAR ASDF::*USER-CACHE*) > ; (DEFVAR ASDF::*SYSTEM-CACHE*) > ; ASDF::OUTPUT-TRANSLATIONS > ; (SETF ASDF::OUTPUT-TRANSLATIONS) > ; ASDF::OUTPUT-TRANSLATIONS-INITIALIZED-P > ; ASDF:CLEAR-OUTPUT-TRANSLATIONS > ; (DEFPARAMETER ASDF::*WILD-PATH*) > ; ASDF::WILDEN > ; ASDF::RESOLVE-ABSOLUTE-LOCATION-COMPONENT > ; ASDF::RESOLVE-RELATIVE-LOCATION-COMPONENT > ; ASDF::RESOLVE-LOCATION > ; ASDF::LOCATION-DESIGNATOR-P > ; ASDF::VALIDATE-OUTPUT-TRANSLATIONS-DIRECTIVE > ; ASDF::VALIDATE-OUTPUT-TRANSLATIONS-FORM > ; ASDF::VALIDATE-OUTPUT-TRANSLATIONS-FILE > ; ASDF::VALIDATE-OUTPUT-TRANSLATIONS-DIRECTORY > ; ASDF::PARSE-OUTPUT-TRANSLATIONS-STRING > ; (DEFPARAMETER ASDF::*DEFAULT-OUTPUT-TRANSLATIONS*) > ; (DEFPARAMETER ASDF::*IMPLEMENTATION-OUTPUT-TRANSLATIONS*) > ; ASDF::IMPLEMENTATION-OUTPUT-TRANSLATIONS > ; (DEFPARAMETER ASDF::*OUTPUT-TRANSLATIONS-FILE*) > ; (DEFPARAMETER ASDF::*OUTPUT-TRANSLATIONS-DIRECTORY*) > ; ASDF::USER-OUTPUT-TRANSLATIONS-PATHNAME > ; ASDF::SYSTEM-OUTPUT-TRANSLATIONS-PATHNAME > ; ASDF::USER-OUTPUT-TRANSLATIONS-DIRECTORY-PATHNAME > ; ASDF::SYSTEM-OUTPUT-TRANSLATIONS-DIRECTORY-PATHNAME > ; ASDF::ENVIRONMENT-OUTPUT-TRANSLATIONS > ; (DEFGENERIC ASDF::PROCESS-OUTPUT-TRANSLATIONS) > ; (METHOD ASDF::PROCESS-OUTPUT-TRANSLATIONS (SYMBOL)) > ; (METHOD ASDF::PROCESS-OUTPUT-TRANSLATIONS (PATHNAME)) > ; (METHOD ASDF::PROCESS-OUTPUT-TRANSLATIONS (STRING)) > ; (METHOD ASDF::PROCESS-OUTPUT-TRANSLATIONS (NULL)) > ; (METHOD ASDF::PROCESS-OUTPUT-TRANSLATIONS (CONS)) > ; ASDF::INHERIT-OUTPUT-TRANSLATIONS > ; ASDF::PROCESS-OUTPUT-TRANSLATIONS-DIRECTIVE > ; ASDF:INITIALIZE-OUTPUT-TRANSLATIONS > ; ASDF:ENSURE-OUTPUT-TRANSLATIONS > ; ASDF:APPLY-OUTPUT-TRANSLATIONS > ; (METHOD ASDF:OUTPUT-FILES :AROUND (ASDF:OPERATION ASDF:COMPONENT)) > ; ASDF:COMPILE-FILE-PATHNAME* > ; (DEFPARAMETER ASDF::*LINK-INITIAL-DWORD*) > ; (DEFPARAMETER ASDF::*LINK-GUID*) > ; ASDF::READ-NULL-TERMINATED-STRING > ; ASDF::READ-LITTLE-ENDIAN > ; ASDF::PARSE-FILE-LOCATION-INFO > ; ASDF::PARSE-WINDOWS-SHORTCUT > ; (TOP-LEVEL-FORM 249) > ; (DEFVAR ASDF::*DEFAULT-EXCLUSIONS*) > ; (DEFVAR ASDF::*SOURCE-REGISTRY*) > ; ASDF::SOURCE-REGISTRY > ; (SETF ASDF::SOURCE-REGISTRY) > ; ASDF::SOURCE-REGISTRY-INITIALIZED-P > ; ASDF:CLEAR-SOURCE-REGISTRY > ; ASDF::SYSDEF-SOURCE-REGISTRY-SEARCH > ; ASDF::VALIDATE-SOURCE-REGISTRY-DIRECTIVE > ; ASDF::VALIDATE-SOURCE-REGISTRY-FORM > ; ASDF::VALIDATE-SOURCE-REGISTRY-FILE > ; ASDF::VALIDATE-SOURCE-REGISTRY-DIRECTORY > ; ASDF::PARSE-SOURCE-REGISTRY-STRING > ; ASDF::REGISTER-ASD-DIRECTORY > ; (DEFPARAMETER ASDF:*DEFAULT-SOURCE-REGISTRIES*) > ; (DEFPARAMETER ASDF::*SOURCE-REGISTRY-FILE*) > ; (DEFPARAMETER ASDF::*SOURCE-REGISTRY-DIRECTORY*) > ; ASDF::WRAPPING-SOURCE-REGISTRY > ; ASDF::DEFAULT-SOURCE-REGISTRY > ; ASDF::USER-SOURCE-REGISTRY > ; ASDF::SYSTEM-SOURCE-REGISTRY > ; ASDF::USER-SOURCE-REGISTRY-DIRECTORY > ; ASDF::SYSTEM-SOURCE-REGISTRY-DIRECTORY > ; ASDF::ENVIRONMENT-SOURCE-REGISTRY > ; (DEFGENERIC ASDF:PROCESS-SOURCE-REGISTRY) > ; (METHOD ASDF:PROCESS-SOURCE-REGISTRY (SYMBOL)) > ; (METHOD ASDF:PROCESS-SOURCE-REGISTRY (PATHNAME)) > ; (METHOD ASDF:PROCESS-SOURCE-REGISTRY (STRING)) > ; (METHOD ASDF:PROCESS-SOURCE-REGISTRY (NULL)) > ; (METHOD ASDF:PROCESS-SOURCE-REGISTRY (CONS)) > ; ASDF::INHERIT-SOURCE-REGISTRY > ; ASDF::PROCESS-SOURCE-REGISTRY-DIRECTIVE > ; ASDF:COMPUTE-SOURCE-REGISTRY > ; ASDF:INITIALIZE-SOURCE-REGISTRY > ; ASDF:ENSURE-SOURCE-REGISTRY > ; (TOP-LEVEL-FORM 285) > ; (TOP-LEVEL-FORM 286) > ; (TOP-LEVEL-FORM 287) > ;; Processing Cross Reference InformationASDF compiled cleanly > Error: The variable CODE is unbound. > 1 (continue) Try evaluating CODE again. > 2 Return the value of :CODE instead. > 3 Specify a value to use this time instead of evaluating CODE. > 4 Specify a value to set CODE to. > 5 Try loading test/compile-asdf.lisp again. > 6 Give up loading test/compile-asdf.lisp. > 7 Try loading another file instead of test/compile-asdf.lisp. > 8 (abort) Abort initialization. > 9 Continue to top-level loop. > Type :b for backtrace or :c <option number> to proceed. > Type :bug-form "<subject>" for a bug report template or :? for other > options. > CL-USER 1 : 1 > > > On Feb 27, 2010, at 19:13 PM, Faré wrote: > > Please > 1- use the latest ASDF from git > 2- have a symlink to lwm64 in your PATH named lispworks > > [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org > ] > The Slogan of "Language Independence" is often but the pride that > self-ignorant > monolinguists put in not calling "language" the collection of barkings and > grunts they invent to interact with their computers. — Faré > > > > > On 27 February 2010 21:03, David McClain <dbm(a)refined-audiometrics.com> > wrote: > > Ahh yes, of course.. However, when I try the command line: > > bash-3.2$ test/run-tests.sh lispworks > > test/run-tests.sh: line 162: type: lispworks: not found > > test/run-tests.sh: line 57: (load "test/compile-asdf.lisp"): No such file or > > directory > > bash-3.2$ > > So here is the script... what am I, or have I done incorrectly? > > > Dr. David McClain > dbm(a)refined-audiometrics.com > > >

2 1

Re: [asdf-devel] ASDF testing
by Robert Goldman 28 Feb '10

28 Feb '10

On 2/27/10 Feb 27 -8:16 AM, David McClain wrote: > Hello Robert, > > I took a look at your test shell script (run-tests.sh) and made the > adjustment for running my saved image named lwm64. > > After some tests I found that the Lisp image has its working directory > set to the same directory from which you start it, and indeed there is a > command line arg -eval to allow the evaluation of an initial form. > > However, even after several attempts at quoting the initial command > '(load "test/compile-asdf.lisp")', I cannot get it past Bash to send it > to the Lisp image. Sorry for being so lame on shell scripting -- it has > been many years since I was deep into them. No need to apologize to me. I'm an unregenerate T shell user, so my understanding of these scripts is pretty much at the Cargo Cult level. > The error I keep getting is: > > bash-3.2$ test/run-tests.sh lwm64 > > test/run-tests.sh: line 57: (load "test/compile-asdf.lisp"): No such > file or directory It looks to me as if the argument we are passing to the LW runtime is being interpreted as a file to load, not an s-expression to be evaluated. Does that sound right to you? E.g., in ACL, we start this up as something like alisp -e '(load "test/compile-asdf.lisp")' and for SBCL sbcl --eval '(load "test/compile-asdf.lisp")' Is there some equivalent to -e/--eval that works for lispworks? Their documentation seems relatively unfriendly to text-mode folks like me; seems very focused on the IDE. > > And when I quote it variously, the same message appears with my quoting > intact. > > So, since you only want to execute that simple command in Lisp, here is > the resulting output after I enter it manually: > .... > ;; Processing Cross Reference InformationASDF compiled cleanly > Error: The variable CODE is unbound. > 1 (continue) Try evaluating CODE again. > 2 Return the value of :CODE instead. > 3 Specify a value to use this time instead of evaluating CODE. > 4 Specify a value to set CODE to. > 5 Try loading test/compile-asdf.lisp again. > 6 Give up loading test/compile-asdf.lisp. > 7 Try loading another file instead of test/compile-asdf.lisp. > 8 (abort) Return to level 0. > 9 Return to top-level loop. > 10 Return from multiprocessing. > > Type :b for backtrace or :c <option number> to proceed. > Type :bug-form "<subject>" for a bug report template or :? for other > options. > It looks to me as if compile-asdf is running to completion, through the cond expression in that file (hence the "ASDF compiled cleanly"), and then something is failing. The Processing Cross Reference string there suggests that it might be something the LW IDE is doing, but I can't guess what that would be. Maybe someone else on the list can suggest something.... best, r

3 10

[asdf-devel] ASDF testing
by Robert Goldman 26 Feb '10

26 Feb '10

Any chance you could run the ASDF tests (with run-tests.sh) on Lispworks? If you'd be willing to do this, feel free to call on me for any assistance. I can't figure out how to run this with my personal edition: as far as I can tell, one needs to use save-image to create an image that can be used for script execution, and save-image is not available in the personal edition. So I don't believe I can simply run lw from the command-line (nor do I know its command-line arguments). best, r

1 0

[asdf-devel] Changes to ASDF for LW6
by David McClain 26 Feb '10

26 Feb '10

Hi, I just installed the latest available source for ASDF and had to make a few minor changes to the way the ASDF Package was being defined, for compatibility with Lispworks 6.0: (changes highlighted in red -- if you can see them) ... (ensure-shadow (package symbols) (shadow symbols package)) (ensure-package (name &key nicknames use export unintern shadow) (let* ((p (ensure-exists name nicknames))) (ensure-use p use) (ensure-unintern p unintern) (ensure-shadow p shadow) (ensure-export p export) p))) (ensure-package ':asdf-utilities :nicknames '(#:asdf-extensions) :use '(#:common-lisp) :export '(#:absolute-pathname-p #:aif #-:LISPWORKS #:appendf #:asdf-message #:coerce-name #:directory-pathname-p #:ends-with #:ensure-directory-pathname #-:LISPWORKS #:getenv #:get-uid #:length=n-p #:make-collector #:pathname-directory-pathname #:pathname-sans-name+type ;; deprecated. Use pathname-directory-pathname #:read-file-forms #:remove-keys #:remove-keyword #:resolve-symlinks #:split #:component-name-to-pathname-components #:system-registered-p #:truenamize)) (ensure-package ':asdf :use '(:common-lisp :asdf-utilities) :unintern '(#:*asdf-revision*) :shadow #+:LISPWORKS '(#:load-system #:compile-system #:defsystem) #-:LISPWORKS '() :export '(#:defsystem #:oos #:operate #:find-system #:run-shell-command #:system-definition-pathname #:find-component ; miscellaneous #:compile-system #:load-system #:test-system #:compile-op #:load-op #:load-source-op Dr. David McClain dbm(a)refined-audiometrics.com

5 26

[asdf-devel] Oh yes...
by David McClain 26 Feb '10

26 Feb '10

Hi, Oh yes, I also commented out the definitions for APPENDF and GET-ENV: #-:LISPWORKS (define-modify-macro appendf (&rest args) append "Append onto list") #-:LISPWORKS (defun getenv (x) #+sbcl (sb-ext:posix-getenv x) #+clozure (ccl::getenv x) #+clisp (ext:getenv x) #+cmu (cdr (assoc (intern x :keyword) ext:*environment-list*)) #+lispworks (lispworks:environment-variable x) #+allegro (sys:getenv x) #+gcl (system:getenv x) #+ecl (si:getenv x)) Dr. David McClain dbm(a)refined-audiometrics.com

1 0

[asdf-devel] [PATCH] add &allow-other-keys to LOAD-SYSTEM, COMPILE-SYSTEM, TEST-SYSTEM
by Tobias C. Rittweiler 24 Feb '10

24 Feb '10

Although the way to extend operations by additional initargs is somewhat cumbersome, it's possible. Unfortunately, the sugar forms LOAD-SYSTEM, COMPILE-SYSTEM, and TEST-SYSTEM do not take additional initargs. -T. diff --git a/asdf.lisp b/asdf.lisp index 92e7f6e..3f230d5 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1670,18 +1670,24 @@ created with the same initargs as the original one. (setf (documentation 'operate 'function) operate-docstring)) -(defun load-system (system &rest args &key force (verbose t) version) - "Shorthand for `(operate 'asdf:load-op system)`. See [operate][] for details." +(defun load-system (system &rest args &key force (verbose t) version + &allow-other-keys) + "Shorthand for `(operate 'asdf:load-op system)`. See [operate][] for +details." (declare (ignore force verbose version)) (apply #'operate 'load-op system args)) -(defun compile-system (system &rest args &key force (verbose t) version) - "Shorthand for `(operate 'asdf:compile-op system)`. See [operate][] for details." +(defun compile-system (system &rest args &key force (verbose t) version + &allow-other-keys) + "Shorthand for `(operate 'asdf:compile-op system)`. See [operate][] +for details." (declare (ignore force verbose version)) (apply #'operate 'compile-op system args)) -(defun test-system (system &rest args &key force (verbose t) version) - "Shorthand for `(operate 'asdf:test-op system)`. See [operate][] for details." +(defun test-system (system &rest args &key force (verbose t) version + &allow-other-keys) + "Shorthand for `(operate 'asdf:test-op system)`. See [operate][] for +details." (declare (ignore force verbose version)) (apply #'operate 'test-op system args))

3 10

[asdf-devel] upgradability with ECL
by Tobias C. Rittweiler 24 Feb '10

24 Feb '10

Current ECL HEAD comes with asdf version "1.604", but trying to load upstreams asdf.lisp won't work because of "A package with the name ASDF-EXTENSIONS already exists." Indeed, CLHS DEFPACKAGE says If one of the supplied :nicknames already refers to an existing package, an error of type package-error is signaled. In fact, using DEFPACKAGE for upgradability purposes is ill-conceived from the beginning because of: If defined-package-name already refers to an existing package, the name-to-package mapping for that name is not changed. If the new definition is at variance with the current state of that package, the consequences are undefined; ... And, e.g. the :EXPORT list changed in numerous points in past, and is not excluded from changing in the future. The portable venue would be not to use DEFPACKAGE but either to define a DEFINE-PACKAGE macro on top of the functional layer yourself, or using the functional layer directly. Mwahaha. Suckage. :-) -T.

4 4

[asdf-devel] default source registry...
by Faré 22 Feb '10

22 Feb '10

Should we base our search path on the XDG Base Directory Specification? http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html To the point of actually using getenv to get these search paths? I say we should. The default configuration files should be $XDG_CONFIG_DIRS/common-lisp/source-registry.conf $XDG_CONFIG_DIRS/common-lisp/source-registry.conf.d/ And the default search path should include $XDG_DATA_DIRS/common-lisp/systems/ $XDG_DATA_DIRS/common-lisp/source// The default cache path should be under $XDG_CACHE_HOME/common-lisp/ Unless anyone objects, I'll implement that behavior and commit something like ASDF 1.695. [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] Vision is the art of seeing what is invisible to others. — Jonathan Swift

4 4

[asdf-devel] patch for component-relative-pathname
by james anderson 22 Feb '10

22 Feb '10

good morning; if a system definition root pathname contains a logical host, component-relative-pathname fails to produce pathnames which are relative in the sense that the combination with their parent's component pathname produces the intended location. this patch corrects that failing for sbcl and ccl. (defmethod component-relative-pathname ((component source-file)) (let ((*default-pathname-defaults* (component-pathname (component-parent component)))) (merge-component-relative-pathname (slot-value component 'relative-pathname) (component-name component) (source-file-type component (component-system component))))) attached below are descriptions of the respective data which illustrate the problem. in sbcl, when the result "relative" pathname is merged with that of the parent, the physical pathname host shadows the logical host. in ccl, the defaulting logic for make-pathname asserts an absolute root directory path in the "relative" pathname. sbcl: ------- 0] (rest (asdf::system-registered-p :de.setf.amqp)) #<ASDF:SYSTEM "de.setf.amqp" {11D56469}> 0] (describe *) #<ASDF:SYSTEM "de.setf.amqp" {11D56469}> [standard-object] Slots with :INSTANCE allocation: NAME = "de.setf.amqp" VERSION = "20100214-0.3" IN-ORDER-TO = ((ASDF:LOAD-OP.. DO-FIRST = ((ASDF:COMPILE-OP.. INLINE-METHODS = NIL PARENT = NIL RELATIVE-PATHNAME = #P"AMQP:" OPERATION-TIMES = #<HASH-TABLE :TEST EQL :COUNT 0 {11D9C791}> PROPERTIES = ((ASDF:SYSTEM-NICKNAMES :SETF.AMQP).. COMPONENTS = (#<ASDF:CL-SOURCE-FILE "package" {11DC6E11}>.. IF-COMPONENT-DEP-FAILS = :FAIL DEFAULT-COMPONENT-CLASS = NIL DESCRIPTION = "An AMQP client library" LONG-DESCRIPTION = "`de.setf.amqp` implements a native Common Lisp client library for the.. AUTHOR = #<unbound slot> MAINTAINER = #<unbound slot> LICENCE = #<unbound slot> SOURCE-FILE = #P"/Development/Source/dev/Library/de/ setf/amqp/amqp.asd" 0] (rest (asdf::system-registered-p :de.setf.utility)) #<ASDF:SYSTEM "de.setf.utility" {11D9C2B9}> 0] (describe *) #<ASDF:SYSTEM "de.setf.utility" {11D9C2B9}> [standard-object] Slots with :INSTANCE allocation: NAME = "de.setf.utility" VERSION = "20100214-1.0" IN-ORDER-TO = NIL DO-FIRST = ((ASDF:COMPILE-OP (ASDF:LOAD-OP))) INLINE-METHODS = NIL PARENT = NIL RELATIVE-PATHNAME = #P"LIBRARY:DE;SETF;UTILITY;" OPERATION-TIMES = #<HASH-TABLE :TEST EQL :COUNT 0 {11DEACB9}> PROPERTIES = ((ASDF:SYSTEM-NICKNAMES "de.setf.utility")) COMPONENTS = (#<ASDF:CL-SOURCE-FILE "package" {11D9C8D9}>.. IF-COMPONENT-DEP-FAILS = :FAIL DEFAULT-COMPONENT-CLASS = NIL DESCRIPTION = #<unbound slot> LONG-DESCRIPTION = #<unbound slot> AUTHOR = #<unbound slot> MAINTAINER = #<unbound slot> LICENCE = #<unbound slot> SOURCE-FILE = #P"/Development/Source/dev/Library/de/ setf/utility/utility.asd" 0] (first (asdf::module-components (rest (asdf::system-registered- p :de.setf.utility)))) #<ASDF:CL-SOURCE-FILE "package" {11D9C8D9}> 0] (describe *) #<ASDF:CL-SOURCE-FILE "package" {11D9C8D9}> [standard-object] Slots with :INSTANCE allocation: NAME = "package" VERSION = #<unbound slot> IN-ORDER-TO = NIL DO-FIRST = ((ASDF:COMPILE-OP (ASDF:LOAD-OP))) INLINE-METHODS = NIL PARENT = #<ASDF:SYSTEM "de.setf.utility" {11D9C2B9}> RELATIVE-PATHNAME = NIL OPERATION-TIMES = #<HASH-TABLE :TEST EQL :COUNT 0 {11DEC591}> PROPERTIES = NIL 0] (describe (asdf::component-relative-pathname (first (asdf::module- components (rest (asdf::system-registered-p :de.setf.utility)))))) #P"package.lisp" [structure-object] Slots with :INSTANCE allocation: HOST = #<SB-IMPL::UNIX-HOST {102CE661}> DEVICE = NIL DIRECTORY = (:RELATIVE) NAME = "package" TYPE = "lisp" VERSION = :NEWEST 0] (type-of (asdf::component-relative-pathname (first (asdf::module- components (rest (asdf::system-registered-p :de.setf.utility)))))) PATHNAME 0] ; ------- ccl: ------ > Error: File #P"LIBRARY:package.lisp.newest" not found > While executing: CCL::FCOMP-FIND-FILE, in process listener(1). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Skip evaluation of (asdf:operate 'asdf:load- op :de.setf.amqp.amqp-1-1-0-8-0) > Type :? for other options. 1 > (describe (rest (asdf::system-registered-p :de.setf.utility))) #<SYSTEM "de.setf.utility" #x878732E> Class: #<STANDARD-CLASS ASDF:SYSTEM> Wrapper: #<CCL::CLASS-WRAPPER ASDF:SYSTEM #x86085FE> Instance slots ASDF::NAME: "de.setf.utility" ASDF:VERSION: "20100214-1.0" ASDF::IN-ORDER-TO: NIL ASDF::DO-FIRST: ((ASDF:COMPILE-OP (ASDF:LOAD-OP))) ASDF::INLINE-METHODS: NIL ASDF::PARENT: NIL ASDF::RELATIVE-PATHNAME: #P"LIBRARY:de;setf;utility;" ASDF::OPERATION-TIMES: #<HASH-TABLE :TEST EQL size 0/60 #x878702E> ASDF::PROPERTIES: ((ASDF:SYSTEM-NICKNAMES "de.setf.utility")) ASDF::COMPONENTS: (#<CL-SOURCE-FILE "package" #x8786E86> #<CL-SOURCE-FILE "pathnames" #x8786B1E> #<CL-SOURCE-FILE "modpackage" #x878675E> #<MODULE "documentation" #x878637E> #<CL-SOURCE-FILE "string" #x87857FE> #<CL-SOURCE-FILE "conditions" #x87853F6> #<MODULE "clos" #x8784FCE> #<MODULE "test" #x87847EE> #<CL-SOURCE-FILE "date" #x8783C56> #<CL-SOURCE-FILE "list" #x87837EE>) ASDF::IF-COMPONENT-DEP-FAILS: :FAIL ASDF::DEFAULT-COMPONENT-CLASS: NIL ASDF::DESCRIPTION: #<Unbound> ASDF::LONG-DESCRIPTION: #<Unbound> ASDF::AUTHOR: #<Unbound> ASDF::MAINTAINER: #<Unbound> ASDF::LICENCE: #<Unbound> ASDF:SOURCE-FILE: #P"/Development/Source/dev/Library/de/setf/utility/ utility.asd" 1 > (describe (first (asdf::module-components (rest (asdf::system- registered-p :de.setf.utility))))) #<CL-SOURCE-FILE "package" #x8786E86> Class: #<STANDARD-CLASS ASDF:CL-SOURCE-FILE> Wrapper: #<CCL::CLASS-WRAPPER ASDF:CL-SOURCE-FILE #x8643A8E> Instance slots ASDF::NAME: "package" ASDF:VERSION: #<Unbound> ASDF::IN-ORDER-TO: NIL ASDF::DO-FIRST: ((ASDF:COMPILE-OP (ASDF:LOAD-OP))) ASDF::INLINE-METHODS: NIL ASDF::PARENT: #<SYSTEM "de.setf.utility" #x878732E> ASDF::RELATIVE-PATHNAME: NIL ASDF::OPERATION-TIMES: #<HASH-TABLE :TEST EQL size 0/60 #x8786B86> ASDF::PROPERTIES: NIL 1 > (describe (asdf::component-relative-pathname (first (asdf::module- components (rest (asdf::system-registered-p :de.setf.utility)))))) #P"LIBRARY:package.lisp.newest" Type: LOGICAL-PATHNAME Class: #<BUILT-IN-CLASS LOGICAL-PATHNAME> TYPE: (LOGICAL-PATHNAME . #<CCL::CLASS-WRAPPER LOGICAL-PATHNAME #x809E75E>) 1: (:ABSOLUTE) 2: "package" 3: "lisp" %LOGICAL-PATHNAME-HOST: "LIBRARY" %LOGICAL-PATHNAME-VERSION: :NEWEST 1 > (in-package :asdf) #<Package "ASDF"> 1 > (defmethod component-relative-pathname ((component source-file)) (let ((*default-pathname-defaults* (make-pathname :name nil :type nil :directory nil :host nil :defaults (component-pathname (component- parent component))))) (merge-component-relative-pathname (slot-value component 'relative-pathname) (component-name component) (source-file-type component (component-system component))))) #<STANDARD-METHOD COMPONENT-RELATIVE-PATHNAME (SOURCE-FILE)> 1 > (describe (asdf::component-relative-pathname (first (asdf::module- components (rest (asdf::system-registered-p :de.setf.utility)))))) #P"package.lisp" Type: PATHNAME Class: #<BUILT-IN-CLASS PATHNAME> TYPE: (PATHNAME . #<CCL::CLASS-WRAPPER PATHNAME #x80A0F16>) %PATHNAME-DIRECTORY: (:RELATIVE) %PATHNAME-NAME: "package" %PATHNAME-TYPE: "lisp" %PHYSICAL-PATHNAME-VERSION: :NEWEST %PHYSICAL-PATHNAME-DEVICE: NIL 1 >

3 21