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

[asdf-devel] New OPERATION subclasses in ASDF 3
by Robert P. Goldman 08 Apr '15

08 Apr '15

Recent experience shows that changes leading to ASDF 3 have changed the way one must specify new operation classes, in a way that is not backward-compatible. Thanks to Faré for helping me diagnose problems in one such system. I will be looking into this, and hope to add at least one new test to ensure that we are probing this important aspect of ASDF going forward. Related to this, does anyone have a good sense of which quicklisp systems might contain new operation and component classes? thanks, R

3 3

[asdf-devel] Detecting non-defsystem dependencies
by Zach Beane 08 Apr '15

08 Apr '15

Some system files look like this: ;;;; myproject.asd (asdf:load-system "some-prerequisite") (defsystem "myproject" ...) Can you recommend a good way to detect that system "myproject" depends on system "some-prerequisite"? Are there any hooks or other features of ASDF that might make it straightforward? Zach

4 11

Re: [asdf-devel] BUNDLE-OP now working on abcl-1.3.0-dev
by Mark Evenson 08 Apr '15

08 Apr '15

On Feb 12, 2014, at 16:57, Robert Goldman <rpgoldman(a)sift.net> wrote: > > Thank you very much, Mark -- I will get a micro-patch for this installed into ASDF for the new release. ASDF 3.1.0.65 works with ABCL trunk, which has just been committed as [r14626][]. Sorry that it is taking me so long to close out the ABCL issues. Next up: pathname translation (wrt. case). [r14626]: http://abcl.org/trac/changeset/14626 -- "A screaming comes across the sky. It has happened before but there is nothing to compare to it now."

1 0

[asdf-devel] Release notes
by Robert P. Goldman 08 Apr '15

08 Apr '15

Stelian Ionescu wrote: > [...] >> > Every release comes with release notes that mention changes to the API. >> > I haven't announced changes with every commit, because that would be verbose, >> > and people who're interested can already read the git log. > > Where are the release notes ? asdf-3.0.3.tar.gz(a tar bomb) contains no > such thing, nor the git repository. That's a good point. There is a pretty comprehensive changelog, but it's buried in the debian/ subdirectory. There's always been a release announcement emailed out, but that isn't included in the tarball. I'll try to improve our practice here. Proposal: before releasing I will put release notes into the top ASDF directory. These will be the same as what goes in the email message. I'll also make sure there's a copy of the changelog at the top level, with a cross-reference. Subscribers to ASDF-devel will be urged to review these and suggest improvements, before the release is made official. Does this sound like a reasonable process? cheers, r

3 2

[asdf-devel] SOURCE-FILE-TYPE
by Robert P. Goldman 08 Apr '15

08 Apr '15

I have a note from you requesting that I mark SOURCE-FILE-TYPE as deprecated in code and documentation. I'm not sure I fully understand. The code in component.lisp still uses this, and it's not obvious how to remove it (nor what it means that it can return :DIRECTORY). I *believe* that what you mean is that SOURCE-FILE-TYPE will stay, but that outsiders should no longer make methods on it: instead they should use the :FILE-TYPE slot on FILE-COMPONENT. But maybe not; see my point 3 below. Some follow up: 1. This comment: " ;; SOURCE-FILE-TYPE below is strictly for backward-compatibility with ASDF1. ;; We ought to be able to extract this from the component alone with COMPONENT-TYPE. That's out of date, right? Should refer to extract this from FILE-COMPONENTs along with FILE-TYPE, correct? 2. Why is FILE-TYPE an ACCESSOR instead of a READER? Should anyone be setting this, except as an INITARG? 3. What is the return type of SOURCE-FILE-TYPE, and in particular why does it not return an error when applied to a PARENT-COMPONENT? I think it's because it's not being used only as a FILE type, but is being used as a TYPE argument for ASDF's pathname functions, which have a more expansive notion of :type. I suppose maybe this means that SOURCE-FILE-type is a misnomer, and that's one of the reasons it should die. I'm working my way through the ASDF manual, end-to-end. I will probably commit a marked up PDF to the repo pretty soon, so anyone who is interested can see where I'm going. Thanks, r

2 1

Re: [asdf-devel] (asdf:build 'foo)
by Faré 08 Apr '15

08 Apr '15

On Wed, Mar 12, 2014 at 2:02 PM, Cyrus Harmon <ch-lisp(a)bobobeach.com> wrote: > I would suggest asdf:build-system (or renaming load-system, etc… to load, etc…). Let’s be consistent here. > There is already a build-system. One of the points was to make it short, since it's going to be used a lot at the command-line, hence build. Or maybe bs? Or b? Also, since ASDF3, you don't have to build a *system*, for ASDF will do the right thing if you (asdf:operate 'load-op '("some-system" "some-module" "some-file")), the -system is misleading. Maybe having the class name also be a function name would be right? (asdf:load-op 'foo) (asdf:build-op 'bar) —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Plug and Pray!

1 0

[asdf-devel] How to specify to ASDF to load system from current directory?
by Mirko Vukovic 08 Apr '15

08 Apr '15

Hello, this is on recently upgraded SBCL1.1.13 and ASDF 3.0.2 I have a system sitting in ~/quicklisp/local-dists and a development version sitting in ~/.../lisp-development/ I would like ASDF to open the latter one. I use asdf:load-system. I cd to the development directory and start slime there. (asdf:load-system ...) still tries to fetch the version in the quicklisp directory. I tried setting the (:directory :here) entry in source-registry.conf but that led to an error in asdf/configuration:resolve-absolute-location: NIL fell through ETYPECASE expression. Wanted one of ((EQL :USER-CACHE) (EQL :HERE) (EQL :HOME) (EQL :ROOT) CONS STRING PATHNAME). I could fix that error by setting the *here-directory* to *default-pathname-defaults*: (progn (asdf/configuration:clear-configuration) (let ((asdf/configuration:*here-directory* *default-pathname-defaults*)) (print asdf/configuration:*here-directory*) (asdf/configuration:resolve-absolute-location :here) (asdf:load-system :my-utils :verbose t))) Now resolve-absolute-location returns the correct directory, asdf:system-source-directory still returns the version in the quicklisp directory. I did trace a bit deeper, but I am not sure that I am on the correct path. These are the contents of my configuration file: (:source-registry (:directory :here) :inherit-configuration) Without the last directive, I get an error: Unable to display error condition: unbound condition slot: UIOP/CONFIGURATION::FORM [Condition of type INVALID-SOURCE-REGISTRY] ... Backtrace: 0: (REPORT-INVALID-FORM INVALID-SOURCE-REGISTRY :ARGUMENTS ("~@<One and only one of ~S or ~S is required.~@:>" :INHERIT-CONFIGURATION :IGNORE-INHERITED-CONFIGURATION)) 1: (VALIDATE-CONFIGURATION-FORM (:SOURCE-REGISTRY (:DIRECTORY :HERE) (:TREE "/home/977315/projects/chamber-matching/experimental-data/data-analysis-software/")) :SOURCE-REGISTRY VALIDATE-SOURCE-REGISTRY-.. 2: ((:METHOD PROCESS-SOURCE-REGISTRY (PATHNAME)) #P"/home/mv/.config/common-lisp/source-registry.conf" :INHERIT (USER-SOURCE-REGISTRY-DIRECTORY SYSTEM-SOURCE-REGISTRY SYSTEM-SOURCE-REGISTRY-DIRECTORY DEF.. 3: (ASDF/SOURCE-REGISTRY::PROCESS-SOURCE-REGISTRY-DIRECTIVE :INHERIT-CONFIGURATION :INHERIT (NIL ENVIRONMENT-SOURCE-REGISTRY USER-SOURCE-REGISTRY USER-SOURCE-REGISTRY-DIRECTORY SYSTEM-SOURCE-REGISTRY SYS.. 4: ((:METHOD PROCESS-SOURCE-REGISTRY (CONS)) (:SOURCE-REGISTRY (:TREE #P"/usr/local/lib/sbcl/") :INHERIT-CONFIGURATION) :INHERIT (NIL ENVIRONMENT-SOURCE-REGISTRY USER-SOURCE-REGISTRY USER-SOURCE-REGISTRY.. 5: (FLATTEN-SOURCE-REGISTRY NIL) Thanks, Mirko

6 10

[asdf-devel] Latest version has multiple test failures
by Robert P. Goldman 08 Apr '15

08 Apr '15

* ECL fails test-stamp-propagation: TEST ABORTED: These two expressions fail comparison with EQUAL: (FILE-WRITE-DATE FILE) evaluates to 3590769832 STAMP evaluates to 3590766232 Backtrace: Above backtrace due to this condition: These two expressions fail comparison with EQUAL: (FILE-WRITE-DATE ASDF-TEST::FILE) evaluates to 3590769832 ASDF-TEST::STAMP evaluates to 3590766232 * Allegro "modern" mlisp fails fourteen tests: failing test(s): test-asdf.script test-builtin-source-file-type.script test-bundle.script test-concatenate-source.script test-deferred-warnings.script test-force.script test-inline-methods.script test-module-depend.script test-module-excessive-depend.script test-module-pathnames.script test-multiple.script test-redundant-recompile.script test-system-pathnames.script test-xach-update-bug.script In the past this has been due to simple typos assuming use of upcased names. Interestingly, on Linux, I get only 7 failures in mlisp: failing test(s): test1.script test2.script test-concatenate-source.script test-deferred-warnings.script test-module-pathnames.script test-system-pathnames.script test-xach-update-bug.script I have no idea yet what accounts for the deviation. * lispworks fails test-stamp-propagation on both linux and Mac OS X. Unfortunately, I am under multiple deadlines, and will have little time to investigate these in the next week. But clearly we cannot release 3.0.3 under these circumstances. Best, Robert

2 1

[asdf-devel] is there a built in way to prevent ASDF from trying to upgrade itself?
by Gary King 08 Apr '15

08 Apr '15

thanks, -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM * gwking on twitter

1 0

[asdf-devel] New failures on CCL Windows
by Dave Cooper 08 Apr '15

08 Apr '15

With latest pull on 3.0.2.22, we have CCL failures (I forget if these were happening before the very recent changes or not). Anyway we are down to 2 failures on CCL Windows (just copying the text from the failures, separated by some spaces below): Testing awkward legacy output capture via run-shell-command TEST ABORTED: These two expressions fail comparison with EQUAL: "ok 1" evaluates to "ok 1" (DEWINDOWIZE (RUN-PROGRAM '("echo" "ok 1") :OUTPUT :LINE)) evaluates to "ok \" 1" (22878D10) : 1 (RAW-PRINT-BACKTRACE :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> :COUNT 69) 181 (&KEY :STREAM :COUNT) STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> COUNT: 69 *DEBUG-IO*: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> (22878D58) : 2 (FUNCALL (FUNCTION #<(:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE)>)) 581 NIL *PACKAGE*: #<Package "COMMON-LISP"> *PRINT-READABLY*: NIL *PRINT-CIRCLE*: T *PRINT-MISER-WIDTH*: 75 *PRINT-LENGTH*: NIL *PRINT-LEVEL*: NIL *PRINT-PRETTY*: T #:G8715: (ERROR) CCL::%HANDLERS%: ((ERROR) (ERROR) (CCL:PROCESS-RESET)) UIOP/IMAGE::KEYS: (:STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> :COUNT 69) (22878E70) : 3 (CALL-WITH-SAFE-IO-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE) #x210079C2FF> :PACKAGE :CL) 1533 (UIOP/STREAM::THUNK &KEY :PACKAGE) UIOP/STREAM::THUNK: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE) #x210079C2FF> PACKAGE: :CL *PACKAGE*: #<Package "COMMON-LISP-USER"> *PRINT-ARRAY*: T *PRINT-BASE*: 10 *PRINT-CASE*: :UPCASE *PRINT-CIRCLE*: NIL *PRINT-ESCAPE*: T *PRINT-GENSYM*: T *PRINT-LENGTH*: NIL *PRINT-LEVEL*: NIL *PRINT-LINES*: NIL *PRINT-MISER-WIDTH*: NIL *PRINT-PPRINT-DISPATCH*: #<PPRINT-DISPATCH-TABLE #x210033925D> *PRINT-PRETTY*: NIL *PRINT-RADIX*: NIL *PRINT-READABLY*: T *PRINT-RIGHT-MARGIN*: NIL *READ-BASE*: 10 *READ-DEFAULT-FLOAT-FORMAT*: SINGLE-FLOAT *READ-EVAL*: T *READ-SUPPRESS*: NIL *READTABLE*: #<READTABLE #x21000C710D> CCL:*PRINT-ABBREVIATE-QUOTE*: NIL CCL:*PRINT-STRUCTURE*: T CCL:*PRINT-SIMPLE-VECTOR*: NIL CCL:*PRINT-SIMPLE-BIT-VECTOR*: NIL CCL:*PRINT-STRING-LENGTH*: NIL *PACKAGE*: #<Package "COMMON-LISP"> *READ-DEFAULT-FLOAT-FORMAT*: DOUBLE-FLOAT *PRINT-READABLY*: NIL *READ-EVAL*: NIL (22879260) : 4 (PRINT-BACKTRACE :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> :COUNT 69) 253 (&REST UIOP/IMAGE::KEYS &KEY :STREAM :COUNT) UIOP/IMAGE::KEYS: (:STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> :COUNT 69) STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> COUNT: 69 (228792A0) : 5 (PRINT-CONDITION-BACKTRACE #<SIMPLE-ERROR #x210079CADD> :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> :COUNT 69) 157 (CONDITION &KEY :STREAM :COUNT) CONDITION: #<SIMPLE-ERROR #x210079CADD> STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> COUNT: 69 (228792D8) : 6 (ACALL :PRINT-CONDITION-BACKTRACE #<SIMPLE-ERROR #x210079CADD> :COUNT 69 :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D>) 261 (ASDF-TEST::NAME &REST ASDF-TEST::ARGS) ASDF-TEST::NAME: :PRINT-CONDITION-BACKTRACE ASDF-TEST::ARGS: (#<SIMPLE-ERROR #x210079CADD> :COUNT 69 :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D>) (22879308) : 7 (FUNCALL (FUNCTION #<(:INTERNAL ASDF-TEST::CALL-WITH-TEST)>) #<SIMPLE-ERROR #x210079CADD>) 797 (ASDF-TEST::C) ASDF-TEST::C: #<SIMPLE-ERROR #x210079CADD> #:G265: (ERROR) CCL::%HANDLERS%: ((ERROR) (CCL:PROCESS-RESET)) (22879340) : 8 (SIGNAL #<SIMPLE-ERROR #x210079CADD>) 973 (CONDITION &REST CCL::ARGS) CONDITION: #<SIMPLE-ERROR #x210079CADD> CCL::ARGS: NIL CCL::%HANDLERS%: ((CCL:PROCESS-RESET)) CCL::TAG: (ERROR #<Compiled-function # (Non-Global) #x21004574CF>) CCL::HANDLERS: (ERROR #<Compiled-function # (Non-Global) #x21004574CF>) CCL::FN: #<Compiled-function (:INTERNAL ASDF-TEST::CALL-WITH-TEST) (Non-Global) #x21004574CF> (22879398) : 9 (%ERROR #<SIMPLE-ERROR #x210079CADD> (EQUAL "ok 1" "ok 1" (ASDF-TEST::DEWINDOWIZE #) "ok \" 1") 72413816) 117 (CONDITION CCL::ARGS CCL::ERROR-POINTER) CONDITION: #<SIMPLE-ERROR #x210079CADD> CCL::ARGS: (EQUAL "ok 1" "ok 1" (ASDF-TEST::DEWINDOWIZE #) "ok \" 1") CCL::ERROR-POINTER: 72413816 (228793C0) : 10 (ASSERT-COMPARE-HELPER EQUAL "ok 1" (ASDF-TEST::DEWINDOWIZE (UIOP/RUN-PROGRAM:RUN-PROGRAM '# :OUTPUT :LINE)) "ok 1" "ok \" 1") 133 (ASDF-TEST::OP ASDF-TEST::QX ASDF-TEST::QY ASDF-TEST::X ASDF-TEST::Y) ASDF-TEST::OP: EQUAL ASDF-TEST::QX: "ok 1" ASDF-TEST::QY: (ASDF-TEST::DEWINDOWIZE (UIOP/RUN-PROGRAM:RUN-PROGRAM '# :OUTPUT :LINE)) ASDF-TEST::X: "ok 1" ASDF-TEST::Y: "ok \" 1" (228793F8) : 11 (CALL-CHECK-REGS ASDF-TEST::ASSERT-COMPARE-HELPER EQUAL "ok 1" (ASDF-TEST::DEWINDOWIZE (UIOP/RUN-PROGRAM:RUN-PROGRAM '# :OUTPUT :LINE)) "ok 1" "ok \" 1") 221 (CCL::FN &REST CCL::ARGS) CCL::FN: ASDF-TEST::ASSERT-COMPARE-HELPER CCL::ARGS: (EQUAL "ok 1" (ASDF-TEST::DEWINDOWIZE #) "ok 1" "ok \" 1") CCL::OLD-REGS: (NIL (NIL) CCL:*SAVE-SOURCE-LOCATIONS* 810710) (22879430) : 12 (FUNCALL (FUNCTION #<(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)>)) 757 NIL CCL::ENV: #<CCL::LEXICAL-ENVIRONMENT #x2100786AFD> CCL::*NX-SOURCE-NOTE-MAP*: #<HASH-TABLE :TEST EQ size 168/192 #x2100786A7D> CCL::*LOADING-TOPLEVEL-LOCATION*: #<SOURCE-NOTE "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script":3346-3428 "(assert-equal \"ok 1\" (dewindowize (run-program '(\"echo\" \"ok 1\") :output :line)))"> PRINT: NIL CCL::VAL: (ASDF-TEST:ASSERT-EQUAL "ok 1" (ASDF-TEST::DEWINDOWIZE #)) CCL::EOF-VAL: (NIL) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script"/1172 UTF-8) #x210078757D> (228794B8) : 13 (CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x1F70DEF> :OVERRIDE NIL) 197 (CCL::THUNK &KEY :OVERRIDE) CCL::THUNK: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x1F70DEF> CCL::OVERRIDE: NIL CCL::*OUTSTANDING-DEFERRED-WARNINGS*: #<CCL::DEFERRED-WARNINGS #x2100786BDD> (22879500) : 14 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script"/1172 UTF-8) #x210078757D> NIL) 357 (STREAM PRINT) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script"/1172 UTF-8) #x210078757D> PRINT: NIL CCL::EOF-VAL: (NIL) CCL::VAL: (ASDF-TEST:ASSERT-EQUAL "ok 1" (ASDF-TEST::DEWINDOWIZE #)) #:WITH-COMPILATION-UNIT-BODY: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x1F70DEF> (22879540) : 15 (%LOAD #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script" T NIL :ERROR :DEFAULT NIL) 5037 (CCL::FILE-NAME CCL::VERBOSE PRINT CCL::IF-DOES-NOT-EXIST CCL:EXTERNAL-FORMAT CCL::PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL CCL::SOURCE-FILE: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script" *LOAD-PATHNAME*: #P"test-run-program.script" *LOAD-TRUENAME*: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script" *PACKAGE*: #<Package "ASDF-TEST"> *READTABLE*: #<READTABLE #x21002FDB5D> CCL::*LOADING-FILES*: (#P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script") CCL:*LOADING-FILE-SOURCE-FILE*: "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script" CCL::*LOADING-TOPLEVEL-LOCATION*: NIL #:G134914: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script"/1172 UTF-8) #x210078757D> #:G134915: NIL STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-run-program.script"/1172 UTF-8) #x210078757D> (22879698) : 16 (LOAD "test-run-program.script" :VERBOSE T :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT :PRESERVE-OPTIMIZATION-SETTINGS NIL) 1029 (CCL::FILE-NAME &KEY :VERBOSE :PRINT :IF-DOES-NOT-EXIST :EXTERNAL-FORMAT :PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: "test-run-program.script" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL #:LOAD-OTHER: #<RESTART CCL::LOAD-OTHER #x1F7111D> #:SKIP-LOAD: #<RESTART CCL::SKIP-LOAD #x1F710CD> #:RETRY-LOAD: #<RESTART CCL::RETRY-LOAD #x1F7107D> #:G134855: (#<RESTART CCL::RETRY-LOAD #x1F7107D> #<RESTART CCL::SKIP-LOAD #x1F710CD> #<RESTART CCL::LOAD-OTHER #x1F7111D>) CCL::%RESTARTS%: ((#<RESTART CCL::RETRY-LOAD #x1F7107D> #<RESTART CCL::SKIP-LOAD #x1F710CD> #<RESTART CCL::LOAD-OTHER #x1F7111D>) (#<RESTART CONTINUE #x1F714ED>) (#<RESTART ABORT #x1F715FD>) (#<RESTART CCL:ABORT-BREAK #x1F7181D> #<RESTART ABORT #x1F7186D>)) (22879748) : 17 (FUNCALL (FUNCTION #<Anonymous Function #x210077FF4F>)) 85 NIL (22879760) : 18 (CALL-WITH-ASDF-CACHE #<Anonymous Function #x210077FF4F> :OVERRIDE NIL) 301 (ASDF/CACHE::THUNK &KEY :OVERRIDE) ASDF/CACHE::THUNK: #<Anonymous Function #x210077FF4F> ASDF/CACHE::OVERRIDE: NIL ASDF/CACHE:*ASDF-CACHE*: #<HASH-TABLE :TEST EQUAL size 0/60 #x210077F93D> (228797A8) : 19 (CALL-WITH-TEST #<Anonymous Function #x210077FF4F>) 325 (ASDF-TEST::THUNK) ASDF-TEST::THUNK: #<Anonymous Function #x210077FF4F> #:G261: (ERROR #<Compiled-function # (Non-Global) #x21004574CF>) CCL::%HANDLERS%: ((ERROR #) (CCL:PROCESS-RESET)) (228797E8) : 20 (CALL-CHECK-REGS ASDF-TEST::CALL-WITH-TEST #<Anonymous Function #x210077FF4F>) 221 (CCL::FN &REST CCL::ARGS) CCL::FN: ASDF-TEST::CALL-WITH-TEST CCL::ARGS: (#<Anonymous Function #x210077FF4F>) CCL::OLD-REGS: (#\. #<Compiled-function CCL::READ-EVAL #x1004FEC6F> # 810710) (22879820) : 21 (CHEAP-EVAL (ASDF-TEST:WITH-TEST NIL (LOAD #))) 101 (CCL::FORM) CCL::FORM: (ASDF-TEST:WITH-TEST NIL (LOAD #)) CCL::*NX-SOURCE-NOTE-MAP*: NIL (22879858) : 22 (READ-DISPATCH #<STRING-INPUT-STREAM #x21004383ED> #\#) 757 (STREAM CHAR) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CHAR: #\# CCL::INFO: (#<Compiled-function CCL::READ-DISPATCH #x1004EFF1F> # # # # ...) CCL::TB: #("" 0 0 16 NIL) CCL::SUBCHAR: #\. CCL::NUMARG: NIL CCL::DISPFUN: #<Compiled-function CCL::READ-EVAL #x1004FEC6F> (228798E0) : 23 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383ED> #\# (NIL)) 597 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::FIRSTCHAR: #\# CCL::DOT-OK: (NIL) READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 9 CCL::START-POS: 93 CCL::DEF: (#<Compiled-function CCL::READ-DISPATCH #x1004EFF1F> # # # # ...) (22879948) : 24 (%READ-LIST-EXPRESSION #<STRING-INPUT-STREAM #x21004383ED> (NIL) #\)) 229 (STREAM CCL::DOT-OK &OPTIONAL CCL::TERMCH) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::DOT-OK: (NIL) CCL::TERMCH: #\) CCL::FIRSTCH: #\# (22879998) : 25 (READ-LIST #<STRING-INPUT-STREAM #x21004383ED> NIL #\)) 613 (STREAM &OPTIONAL CCL::NODOTS CCL::TERMCH) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::NODOTS: NIL CCL::TERMCH: #\) CCL::DOT-OK: (NIL) CCL::HEAD: (NIL #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/script-support.lisp" T T) CCL::TAIL: (T) CCL::SOURCE-NOTE-LIST: NIL CCL::FIRSTFORM: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/script-support.lisp" CCL::FIRSTFORM-P: T CCL::FIRSTFORM-SOURCE-NOTE: NIL (22879A18) : 26 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383ED> #\( NIL) 469 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::FIRSTCHAR: #\( CCL::DOT-OK: NIL READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 8 CCL::START-POS: 2 CCL::DEF: #<Anonymous Function #x1004E6A6F> (22879A78) : 27 (%READ-FORM #<STRING-INPUT-STREAM #x21004383ED> 0 NIL) 573 (STREAM CCL::ARG CCL::EOF-VAL) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::ARG: 0 CCL::EOF-VAL: NIL CCL::CH: #\( (22879AB8) : 28 (FUNCALL (FUNCTION #<CCL::|'-reader|>) #<STRING-INPUT-STREAM #x21004383ED> #\') 77 (STREAM IGNORE) STREAM: #<STRING-INPUT-STREAM #x21004383ED> IGNORE: #\' (22879AE0) : 29 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383ED> #\' NIL) 469 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::FIRSTCHAR: #\' CCL::DOT-OK: NIL READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 8 CCL::START-POS: 1 CCL::DEF: #<Compiled-function CCL::|'-reader| (Non-Global) #x1004E66BF> (22879B40) : 30 (%READ-FORM #<STRING-INPUT-STREAM #x21004383ED> 0 NIL) 573 (STREAM CCL::ARG CCL::EOF-VAL) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::ARG: 0 CCL::EOF-VAL: NIL CCL::CH: #\' (22879B80) : 31 (READ-INTERNAL #<STRING-INPUT-STREAM #x21004383ED> T NIL NIL) 253 (STREAM CCL::EOF-ERROR-P CCL::EOF-VALUE CCL::RECURSIVE-P) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::RECURSIVE-P: NIL CCL::%READ-OBJECTS%: NIL CCL::%KEEP-WHITESPACE%: NIL (22879C00) : 32 (READ #<STRING-INPUT-STREAM #x21004383ED> T NIL NIL) 157 (&OPTIONAL STREAM CCL::EOF-ERROR-P CCL::EOF-VALUE CCL::RECURSIVE-P) STREAM: #<STRING-INPUT-STREAM #x21004383ED> CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::RECURSIVE-P: NIL (22879C50) : 33 (READ-FROM-STRING "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))" T NIL :START 0 :END NIL :PRESERVE-WHITESPACE NIL) 413 (STRING &OPTIONAL CCL::EOF-ERROR-P CCL::EOF-VALUE &KEY :START :END :PRESERVE-WHITESPACE) STRING: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))" CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::START: 0 CCL::END: NIL CCL::PRESERVE-WHITESPACE: NIL CCL::IDX: NIL STREAM: #<STRING-INPUT-STREAM #x21004383ED> (22879CF8) : 34 (FUNCALL (FUNCTION #<(:INTERNAL CCL::EVAL-STRING CCL::STARTUP-CCL)>) "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))") 445 (CCL::S) CCL::S: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))" #:CONTINUE: #<RESTART CONTINUE #x1F714ED> #:G140482: (#<RESTART CONTINUE #x1F714ED>) CCL::%RESTARTS%: ((#<RESTART CONTINUE #x1F714ED>) (#<RESTART ABORT #x1F715FD>) (#<RESTART CCL:ABORT-BREAK #x1F7181D> #<RESTART ABORT #x1F7186D>)) (22879D40) : 35 (STARTUP-CCL NIL) 1533 (&OPTIONAL CCL::INIT-FILE) CCL::INIT-FILE: NIL #:ABORT: #<RESTART ABORT #x1F715FD> #:G140470: (#<RESTART ABORT #x1F715FD>) CCL::%RESTARTS%: ((#<RESTART ABORT #x1F715FD>) (#<RESTART CCL:ABORT-BREAK #x1F7181D> #<RESTART ABORT #x1F7186D>)) #:G140475: ((:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))")) CCL::P: (:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))") CCL::PARAM: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-run-program.script|))))" #:G140478: :EVAL (22879DA8) : 36 (FUNCALL (FUNCTION #<(:INTERNAL (CCL:TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>)) 61 NIL CCL::F: CCL::LISTENER-FUNCTION CCL::INIT-FILE: "home:ccl-init" (22879DC8) : 37 (FUNCALL (FUNCTION #<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>)) 645 NIL *TERMINAL-IO*: #<ECHOING-TWO-WAY-STREAM input #<BASIC-CHARACTER-INPUT-STREAM UTF-8 (PIPE/436) #x2100433B3D>, output #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> #x21004388CD> CCL::CLOSE-STREAMS: NIL CCL::CLEANUP-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x21004317DF> CCL::INITIAL-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x210043178F> CCL::AUTO-FLUSH: T CCL:OUTPUT-STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043363D> CCL:INPUT-STREAM: #<BASIC-CHARACTER-INPUT-STREAM UTF-8 (PIPE/436) #x2100433B3D> CCL::ECHOING: T (22879E60) : 38 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x21004312DD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>)) 669 (CCL:PROCESS CCL::INITIAL-FORM) CCL:PROCESS: #<TTY-LISTENER listener(1) [Active] #x21004312DD> CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>) CCL::EXITED: NIL #:G142760: (CCL:PROCESS-RESET) CCL::%HANDLERS%: ((CCL:PROCESS-RESET)) #:ABORT: #<RESTART ABORT #x1F7186D> #:ABORT-BREAK: #<RESTART CCL:ABORT-BREAK #x1F7181D> #:G142761: (#<RESTART CCL:ABORT-BREAK #x1F7181D> #<RESTART ABORT #x1F7186D>) CCL::%RESTARTS%: ((#<RESTART CCL:ABORT-BREAK #x1F7181D> #<RESTART ABORT #x1F7186D>)) (22879EF0) : 39 (FUNCALL (FUNCTION #<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS)))>) #<TTY-LISTENER listener(1) [Active] #x21004312DD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>)) 573 (CCL:PROCESS CCL::INITIAL-FORM) CCL:PROCESS: #<TTY-LISTENER listener(1) [Active] #x21004312DD> CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>) CCL:*CURRENT-PROCESS*: #<TTY-LISTENER listener(1) [Active] #x21004312DD> #:G142746: (*PRINT-PPRINT-DISPATCH* CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*LOGICAL-BLOCK-XP* CCL::*FORMAT-TOP-LEVEL* ...) #:G142747: (#<PPRINT-DISPATCH-TABLE #x21004390BD> NIL NIL NIL NIL ...) CCL::*INTERRUPT-LEVEL*: 0 #:G142748: ("Active") #:G142749: "Reset" (22879F98) : 40 (FUNCALL (FUNCTION #<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>)) 277 NIL CCL::*CURRENT-LISP-THREAD*: #<LISP-THREAD listener [tcr @ #x62F6B0] #x2100430EED> CCL::INITIAL-FUNCTION: (#<Compiled-function # (Non-Global) #x10048AD7F> #<TTY-LISTENER listener(1) [Active] #x21004312DD> #) CCL::TCR: 810710 CCL::THREAD: #<LISP-THREAD listener [tcr @ #x62F6B0] #x2100430EED> Above backtrace due to this condition: These two expressions fail comparison with EQUAL: "ok 1" evaluates to "ok 1" (ASDF-TEST::DEWINDOWIZE (UIOP/RUN-PROGRAM:RUN-PROGRAM (QUOTE ("echo" "ok 1")) :OUTPUT :LINE)) evaluates to "ok \" 1" Script failed Using f:/cl-engines/ccl-win-1.10-dev/wx86cl64.exe, test-run-program.script failed you can retry compilation with: ./test/run-tests.sh ccl test-run-program.script or more interactively (and maybe with rlwrap or in emacs), start with: (cd test ; f:/cl-engines/ccl-win-1.10-dev/wx86cl64.exe --no-init --quiet ) then copy/paste: '(#.(load "script-support.lisp") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load "test-run-program.script")) Testing: test-stamp-propagation.script f:/cl-engines/ccl-win-1.10-dev/wx86cl64.exe --no-init --quiet --batch --eval "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))" ;Loading #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/build/fasls/ccl/asdf.wx64fsl"...Configuring ASDF Enabling debugging Being a bit verbose Comparing directories ASDF-TEST:*TEST-DIRECTORY* and ASDF-TEST::X both evaluate to same path: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/" Frob packages ;Loading #P"test-stamp-propagation.script"... ;Loading #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"... FOO XXX :EXECUTE :TSP ; Registering #<SYSTEM "test-stamp-propagation"> Testing stamp propagation by defsystem :ASDF loading system ASDF-CACHE NIL XXX :COMPILING :SYSTEM ;Compiling "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/file1.lisp"... XXX :COMPILE-TOPLEVEL :FILE1 ;Loading #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/build/fasls/ccl-1.10-f96-win-x64/asdf/test/stamp-propagation/file1.wx64fsl"... XXX :LOAD-TOPLEVEL :FILE1 ;Compiling "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/file2.lisp"... XXX :COMPILE-TOPLEVEL :FILE2 ;Loading #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/build/fasls/ccl-1.10-f96-win-x64/asdf/test/stamp-propagation/file2.wx64fsl"... XXX :LOAD-TOPLEVEL :FILE2 XXX :LOADING :SYSTEM EVAL-NOTES ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2) (:LOADING :SYSTEM)) touching first source file and reloading defsystem should recompile & reload everything ASDF-CACHE NIL XXX :COMPILING :SYSTEM XXX :LOADING :SYSTEM EVAL-NOTES ((:COMPILING :SYSTEM) (:LOADING :SYSTEM)) TEST ABORTED: These two expressions fail comparison with EQUAL: (SANITIZE-LOG (RELOAD DEFSYSTEM)) evaluates to ((:COMPILING :SYSTEM)) '((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) evaluates to ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) (227F89A0) : 1 (RAW-PRINT-BACKTRACE :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> :COUNT 69) 181 (&KEY :STREAM :COUNT) STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> COUNT: 69 *DEBUG-IO*: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> (227F89E8) : 2 (FUNCALL (FUNCTION #<(:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE)>)) 581 NIL *PACKAGE*: #<Package "COMMON-LISP"> *PRINT-READABLY*: NIL *PRINT-CIRCLE*: T *PRINT-MISER-WIDTH*: 75 *PRINT-LENGTH*: NIL *PRINT-LEVEL*: NIL *PRINT-PRETTY*: T #:G8715: (ERROR) CCL::%HANDLERS%: ((ERROR) (ERROR) (CCL:PROCESS-RESET)) UIOP/IMAGE::KEYS: (:STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> :COUNT 69) (227F8B00) : 3 (CALL-WITH-SAFE-IO-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE) #x21007C5F0F> :PACKAGE :CL) 1533 (UIOP/STREAM::THUNK &KEY :PACKAGE) UIOP/STREAM::THUNK: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/IMAGE:PRINT-BACKTRACE) #x21007C5F0F> PACKAGE: :CL *PACKAGE*: #<Package "COMMON-LISP-USER"> *PRINT-ARRAY*: T *PRINT-BASE*: 10 *PRINT-CASE*: :UPCASE *PRINT-CIRCLE*: NIL *PRINT-ESCAPE*: T *PRINT-GENSYM*: T *PRINT-LENGTH*: NIL *PRINT-LEVEL*: NIL *PRINT-LINES*: NIL *PRINT-MISER-WIDTH*: NIL *PRINT-PPRINT-DISPATCH*: #<PPRINT-DISPATCH-TABLE #x210033925D> *PRINT-PRETTY*: NIL *PRINT-RADIX*: NIL *PRINT-READABLY*: T *PRINT-RIGHT-MARGIN*: NIL *READ-BASE*: 10 *READ-DEFAULT-FLOAT-FORMAT*: SINGLE-FLOAT *READ-EVAL*: T *READ-SUPPRESS*: NIL *READTABLE*: #<READTABLE #x21000C710D> CCL:*PRINT-ABBREVIATE-QUOTE*: NIL CCL:*PRINT-STRUCTURE*: T CCL:*PRINT-SIMPLE-VECTOR*: NIL CCL:*PRINT-SIMPLE-BIT-VECTOR*: NIL CCL:*PRINT-STRING-LENGTH*: NIL *PACKAGE*: #<Package "COMMON-LISP"> *READ-DEFAULT-FLOAT-FORMAT*: DOUBLE-FLOAT *PRINT-READABLY*: NIL *READ-EVAL*: NIL (227F8EF0) : 4 (PRINT-BACKTRACE :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> :COUNT 69) 253 (&REST UIOP/IMAGE::KEYS &KEY :STREAM :COUNT) UIOP/IMAGE::KEYS: (:STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> :COUNT 69) STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> COUNT: 69 (227F8F30) : 5 (PRINT-CONDITION-BACKTRACE #<SIMPLE-ERROR #x21007C666D> :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> :COUNT 69) 157 (CONDITION &KEY :STREAM :COUNT) CONDITION: #<SIMPLE-ERROR #x21007C666D> STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> COUNT: 69 (227F8F68) : 6 (ACALL :PRINT-CONDITION-BACKTRACE #<SIMPLE-ERROR #x21007C666D> :COUNT 69 :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D>) 261 (ASDF-TEST::NAME &REST ASDF-TEST::ARGS) ASDF-TEST::NAME: :PRINT-CONDITION-BACKTRACE ASDF-TEST::ARGS: (#<SIMPLE-ERROR #x21007C666D> :COUNT 69 :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D>) (227F8F98) : 7 (FUNCALL (FUNCTION #<(:INTERNAL ASDF-TEST::CALL-WITH-TEST)>) #<SIMPLE-ERROR #x21007C666D>) 797 (ASDF-TEST::C) ASDF-TEST::C: #<SIMPLE-ERROR #x21007C666D> #:G265: (ERROR) CCL::%HANDLERS%: ((ERROR) (CCL:PROCESS-RESET)) (227F8FD0) : 8 (SIGNAL #<SIMPLE-ERROR #x21007C666D>) 973 (CONDITION &REST CCL::ARGS) CONDITION: #<SIMPLE-ERROR #x21007C666D> CCL::ARGS: NIL CCL::%HANDLERS%: ((CCL:PROCESS-RESET)) CCL::TAG: (ERROR #<Compiled-function # (Non-Global) #x21004574DF>) CCL::HANDLERS: (ERROR #<Compiled-function # (Non-Global) #x21004574DF>) CCL::FN: #<Compiled-function (:INTERNAL ASDF-TEST::CALL-WITH-TEST) (Non-Global) #x21004574DF> (227F9028) : 9 (%ERROR #<SIMPLE-ERROR #x21007C666D> (EQUAL (ASDF-TEST::SANITIZE-LOG #) (#) '(# # # # #) ...) 72348170) 117 (CONDITION CCL::ARGS CCL::ERROR-POINTER) CONDITION: #<SIMPLE-ERROR #x21007C666D> CCL::ARGS: (EQUAL (ASDF-TEST::SANITIZE-LOG #) (#) '(# # # # #) ...) CCL::ERROR-POINTER: 72348170 (227F9050) : 10 (ASSERT-COMPARE-HELPER EQUAL (ASDF-TEST::SANITIZE-LOG (ASDF-TEST::RELOAD ASDF/DEFSYSTEM:DEFSYSTEM)) '((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) ((:COMPILING :SYSTEM)) ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2))) 133 (ASDF-TEST::OP ASDF-TEST::QX ASDF-TEST::QY ASDF-TEST::X ASDF-TEST::Y) ASDF-TEST::OP: EQUAL ASDF-TEST::QX: (ASDF-TEST::SANITIZE-LOG (ASDF-TEST::RELOAD ASDF/DEFSYSTEM:DEFSYSTEM)) ASDF-TEST::QY: '((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) ASDF-TEST::X: ((:COMPILING :SYSTEM)) ASDF-TEST::Y: ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) (227F9088) : 11 (TEST-DEFSYSTEM :ASDF) 493 (&OPTIONAL ASDF/DEFSYSTEM:DEFSYSTEM) ASDF/DEFSYSTEM:DEFSYSTEM: :ASDF (227F90A8) : 12 (CALL-CHECK-REGS ASDF-TEST::TEST-DEFSYSTEM :ASDF) 221 (CCL::FN &REST CCL::ARGS) CCL::FN: ASDF-TEST::TEST-DEFSYSTEM CCL::ARGS: (:ASDF) CCL::OLD-REGS: (NIL (NIL) CCL:*SAVE-SOURCE-LOCATIONS* 966364) (227F90E0) : 13 (FUNCALL (FUNCTION #<(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)>)) 757 NIL CCL::ENV: #<CCL::LEXICAL-ENVIRONMENT #x210078855D> CCL::*NX-SOURCE-NOTE-MAP*: #<HASH-TABLE :TEST EQ size 242/347 #x21007884DD> CCL::*LOADING-TOPLEVEL-LOCATION*: #<SOURCE-NOTE "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp":4757-4779 "(test-defsystem :asdf)"> PRINT: NIL CCL::VAL: (ASDF-TEST::TEST-DEFSYSTEM :ASDF) CCL::EOF-VAL: (NIL) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"/976 UTF-8) #x210078903D> (227F9168) : 14 (CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x229209FF> :OVERRIDE NIL) 197 (CCL::THUNK &KEY :OVERRIDE) CCL::THUNK: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x229209FF> CCL::OVERRIDE: NIL CCL::*OUTSTANDING-DEFERRED-WARNINGS*: #<CCL::DEFERRED-WARNINGS #x210078863D> (227F91B0) : 15 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"/976 UTF-8) #x210078903D> NIL) 357 (STREAM PRINT) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"/976 UTF-8) #x210078903D> PRINT: NIL CCL::EOF-VAL: (NIL) CCL::VAL: (ASDF-TEST::TEST-DEFSYSTEM :ASDF) #:WITH-COMPILATION-UNIT-BODY: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x229209FF> (227F91F0) : 16 (%LOAD #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" T NIL :ERROR :DEFAULT NIL) 5037 (CCL::FILE-NAME CCL::VERBOSE PRINT CCL::IF-DOES-NOT-EXIST CCL:EXTERNAL-FORMAT CCL::PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL CCL::SOURCE-FILE: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" *LOAD-PATHNAME*: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" *LOAD-TRUENAME*: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" *PACKAGE*: #<Package "ASDF-TEST"> *READTABLE*: #<READTABLE #x21002FDB5D> CCL::*LOADING-FILES*: (#P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script") CCL:*LOADING-FILE-SOURCE-FILE*: "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" CCL::*LOADING-TOPLEVEL-LOCATION*: NIL #:G134914: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"/976 UTF-8) #x210078903D> #:G134915: NIL STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp"/976 UTF-8) #x210078903D> (227F9348) : 17 (LOAD #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" :VERBOSE T :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT :PRESERVE-OPTIMIZATION-SETTINGS NIL) 1029 (CCL::FILE-NAME &KEY :VERBOSE :PRINT :IF-DOES-NOT-EXIST :EXTERNAL-FORMAT :PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL #:LOAD-OTHER: #<RESTART CCL::LOAD-OTHER #x22920D2D> #:SKIP-LOAD: #<RESTART CCL::SKIP-LOAD #x22920CDD> #:RETRY-LOAD: #<RESTART CCL::RETRY-LOAD #x22920C8D> #:G134855: (#<RESTART CCL::RETRY-LOAD #x22920C8D> #<RESTART CCL::SKIP-LOAD #x22920CDD> #<RESTART CCL::LOAD-OTHER #x22920D2D>) CCL::%RESTARTS%: ((#<RESTART CCL::RETRY-LOAD #x22920C8D> #<RESTART CCL::SKIP-LOAD #x22920CDD> #<RESTART CCL::LOAD-OTHER #x22920D2D>) (#<RESTART CCL::RETRY-LOAD #x2292107D> #<RESTART CCL::SKIP-LOAD #x229210CD> #<RESTART CCL::LOAD-OTHER #x2292111D>) (#<RESTART CONTINUE #x229214ED>) (#<RESTART ABORT #x229215FD>) (#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>)) (227F93F8) : 18 (CALL-CHECK-REGS LOAD #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp") 221 (CCL::FN &REST CCL::ARGS) CCL::FN: LOAD CCL::ARGS: (#P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/stamp-propagation/test-stamp-propagation.lisp") CCL::OLD-REGS: (NIL (NIL) CCL:*SAVE-SOURCE-LOCATIONS* 966364) (227F9430) : 19 (FUNCALL (FUNCTION #<(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)>)) 757 NIL CCL::ENV: #<CCL::LEXICAL-ENVIRONMENT #x210078A0FD> CCL::*NX-SOURCE-NOTE-MAP*: #<HASH-TABLE :TEST EQ size 6/60 #x2100789B8D> CCL::*LOADING-TOPLEVEL-LOCATION*: #<SOURCE-NOTE "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script":0-85 "(load (subpathname *test-directory* \"stamp-propagation/test-stamp-propagation.lisp\"))"> PRINT: NIL CCL::VAL: (LOAD (UIOP/PATHNAME:SUBPATHNAME ASDF-TEST:*TEST-DIRECTORY* "stamp-propagation/test-stamp-propagation.lisp")) CCL::EOF-VAL: (NIL) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script"/1184 UTF-8) #x210078AB9D> (227F94B8) : 20 (CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x22920DEF> :OVERRIDE NIL) 197 (CCL::THUNK &KEY :OVERRIDE) CCL::THUNK: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x22920DEF> CCL::OVERRIDE: NIL CCL::*OUTSTANDING-DEFERRED-WARNINGS*: #<CCL::DEFERRED-WARNINGS #x210078A1DD> (227F9500) : 21 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script"/1184 UTF-8) #x210078AB9D> NIL) 357 (STREAM PRINT) STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script"/1184 UTF-8) #x210078AB9D> PRINT: NIL CCL::EOF-VAL: (NIL) CCL::VAL: (LOAD (UIOP/PATHNAME:SUBPATHNAME ASDF-TEST:*TEST-DIRECTORY* "stamp-propagation/test-stamp-propagation.lisp")) #:WITH-COMPILATION-UNIT-BODY: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x22920DEF> (227F9540) : 22 (%LOAD #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script" T NIL :ERROR :DEFAULT NIL) 5037 (CCL::FILE-NAME CCL::VERBOSE PRINT CCL::IF-DOES-NOT-EXIST CCL:EXTERNAL-FORMAT CCL::PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL CCL::SOURCE-FILE: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script" *LOAD-PATHNAME*: #P"test-stamp-propagation.script" *LOAD-TRUENAME*: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script" *PACKAGE*: #<Package "ASDF-TEST"> *READTABLE*: #<READTABLE #x21002FDB5D> CCL::*LOADING-FILES*: (#P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script") CCL:*LOADING-FILE-SOURCE-FILE*: "C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script" CCL::*LOADING-TOPLEVEL-LOCATION*: NIL #:G134914: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script"/1184 UTF-8) #x210078AB9D> #:G134915: NIL STREAM: #<BASIC-FILE-CHARACTER-INPUT-STREAM ("C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/test-stamp-propagation.script"/1184 UTF-8) #x210078AB9D> (227F9698) : 23 (LOAD "test-stamp-propagation.script" :VERBOSE T :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT :PRESERVE-OPTIMIZATION-SETTINGS NIL) 1029 (CCL::FILE-NAME &KEY :VERBOSE :PRINT :IF-DOES-NOT-EXIST :EXTERNAL-FORMAT :PRESERVE-OPTIMIZATION-SETTINGS) CCL::FILE-NAME: "test-stamp-propagation.script" CCL::VERBOSE: T PRINT: NIL CCL::IF-DOES-NOT-EXIST: :ERROR CCL:EXTERNAL-FORMAT: :DEFAULT CCL::PRESERVE-OPTIMIZATION-SETTINGS: NIL #:LOAD-OTHER: #<RESTART CCL::LOAD-OTHER #x2292111D> #:SKIP-LOAD: #<RESTART CCL::SKIP-LOAD #x229210CD> #:RETRY-LOAD: #<RESTART CCL::RETRY-LOAD #x2292107D> #:G134855: (#<RESTART CCL::RETRY-LOAD #x2292107D> #<RESTART CCL::SKIP-LOAD #x229210CD> #<RESTART CCL::LOAD-OTHER #x2292111D>) CCL::%RESTARTS%: ((#<RESTART CCL::RETRY-LOAD #x2292107D> #<RESTART CCL::SKIP-LOAD #x229210CD> #<RESTART CCL::LOAD-OTHER #x2292111D>) (#<RESTART CONTINUE #x229214ED>) (#<RESTART ABORT #x229215FD>) (#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>)) (227F9748) : 24 (FUNCALL (FUNCTION #<Anonymous Function #x2100780B6F>)) 85 NIL (227F9760) : 25 (CALL-WITH-ASDF-CACHE #<Anonymous Function #x2100780B6F> :OVERRIDE NIL) 301 (ASDF/CACHE::THUNK &KEY :OVERRIDE) ASDF/CACHE::THUNK: #<Anonymous Function #x2100780B6F> ASDF/CACHE::OVERRIDE: NIL ASDF/CACHE:*ASDF-CACHE*: NIL (227F97A8) : 26 (CALL-WITH-TEST #<Anonymous Function #x2100780B6F>) 325 (ASDF-TEST::THUNK) ASDF-TEST::THUNK: #<Anonymous Function #x2100780B6F> #:G261: (ERROR #<Compiled-function # (Non-Global) #x21004574DF>) CCL::%HANDLERS%: ((ERROR #) (CCL:PROCESS-RESET)) (227F97E8) : 27 (CALL-CHECK-REGS ASDF-TEST::CALL-WITH-TEST #<Anonymous Function #x2100780B6F>) 221 (CCL::FN &REST CCL::ARGS) CCL::FN: ASDF-TEST::CALL-WITH-TEST CCL::ARGS: (#<Anonymous Function #x2100780B6F>) CCL::OLD-REGS: (#\. #<Compiled-function CCL::READ-EVAL #x1004FEC6F> # 966364) (227F9820) : 28 (CHEAP-EVAL (ASDF-TEST:WITH-TEST NIL (LOAD #))) 101 (CCL::FORM) CCL::FORM: (ASDF-TEST:WITH-TEST NIL (LOAD #)) CCL::*NX-SOURCE-NOTE-MAP*: NIL (227F9858) : 29 (READ-DISPATCH #<STRING-INPUT-STREAM #x21004383FD> #\#) 757 (STREAM CHAR) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CHAR: #\# CCL::INFO: (#<Compiled-function CCL::READ-DISPATCH #x1004EFF1F> # # # # ...) CCL::TB: #("" 0 0 16 NIL) CCL::SUBCHAR: #\. CCL::NUMARG: NIL CCL::DISPFUN: #<Compiled-function CCL::READ-EVAL #x1004FEC6F> (227F98E0) : 30 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383FD> #\# (NIL)) 597 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::FIRSTCHAR: #\# CCL::DOT-OK: (NIL) READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 9 CCL::START-POS: 93 CCL::DEF: (#<Compiled-function CCL::READ-DISPATCH #x1004EFF1F> # # # # ...) (227F9948) : 31 (%READ-LIST-EXPRESSION #<STRING-INPUT-STREAM #x21004383FD> (NIL) #\)) 229 (STREAM CCL::DOT-OK &OPTIONAL CCL::TERMCH) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::DOT-OK: (NIL) CCL::TERMCH: #\) CCL::FIRSTCH: #\# (227F9998) : 32 (READ-LIST #<STRING-INPUT-STREAM #x21004383FD> NIL #\)) 613 (STREAM &OPTIONAL CCL::NODOTS CCL::TERMCH) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::NODOTS: NIL CCL::TERMCH: #\) CCL::DOT-OK: (NIL) CCL::HEAD: (NIL #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/script-support.lisp" T T) CCL::TAIL: (T) CCL::SOURCE-NOTE-LIST: NIL CCL::FIRSTFORM: #P"C:/users/dcooper8/genworks/cl/tests/asdf/asdf/test/script-support.lisp" CCL::FIRSTFORM-P: T CCL::FIRSTFORM-SOURCE-NOTE: NIL (227F9A18) : 33 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383FD> #\( NIL) 469 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::FIRSTCHAR: #\( CCL::DOT-OK: NIL READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 8 CCL::START-POS: 2 CCL::DEF: #<Anonymous Function #x1004E6A6F> (227F9A78) : 34 (%READ-FORM #<STRING-INPUT-STREAM #x21004383FD> 0 NIL) 573 (STREAM CCL::ARG CCL::EOF-VAL) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::ARG: 0 CCL::EOF-VAL: NIL CCL::CH: #\( (227F9AB8) : 35 (FUNCALL (FUNCTION #<CCL::|'-reader|>) #<STRING-INPUT-STREAM #x21004383FD> #\') 77 (STREAM IGNORE) STREAM: #<STRING-INPUT-STREAM #x21004383FD> IGNORE: #\' (227F9AE0) : 36 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM #x21004383FD> #\' NIL) 469 (STREAM CCL::FIRSTCHAR CCL::DOT-OK) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::FIRSTCHAR: #\' CCL::DOT-OK: NIL READTABLE: #<READTABLE #x21002FDB5D> CCL::ATTRTAB: #<SPARSE-VECTOR 1114112 (UNSIGNED-BYTE 8) #x21002FDB8D> CCL::ATTR: 8 CCL::START-POS: 1 CCL::DEF: #<Compiled-function CCL::|'-reader| (Non-Global) #x1004E66BF> (227F9B40) : 37 (%READ-FORM #<STRING-INPUT-STREAM #x21004383FD> 0 NIL) 573 (STREAM CCL::ARG CCL::EOF-VAL) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::ARG: 0 CCL::EOF-VAL: NIL CCL::CH: #\' (227F9B80) : 38 (READ-INTERNAL #<STRING-INPUT-STREAM #x21004383FD> T NIL NIL) 253 (STREAM CCL::EOF-ERROR-P CCL::EOF-VALUE CCL::RECURSIVE-P) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::RECURSIVE-P: NIL CCL::%READ-OBJECTS%: NIL CCL::%KEEP-WHITESPACE%: NIL (227F9C00) : 39 (READ #<STRING-INPUT-STREAM #x21004383FD> T NIL NIL) 157 (&OPTIONAL STREAM CCL::EOF-ERROR-P CCL::EOF-VALUE CCL::RECURSIVE-P) STREAM: #<STRING-INPUT-STREAM #x21004383FD> CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::RECURSIVE-P: NIL (227F9C50) : 40 (READ-FROM-STRING "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))" T NIL :START 0 :END NIL :PRESERVE-WHITESPACE NIL) 413 (STRING &OPTIONAL CCL::EOF-ERROR-P CCL::EOF-VALUE &KEY :START :END :PRESERVE-WHITESPACE) STRING: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))" CCL::EOF-ERROR-P: T CCL::EOF-VALUE: NIL CCL::START: 0 CCL::END: NIL CCL::PRESERVE-WHITESPACE: NIL CCL::IDX: NIL STREAM: #<STRING-INPUT-STREAM #x21004383FD> (227F9CF8) : 41 (FUNCALL (FUNCTION #<(:INTERNAL CCL::EVAL-STRING CCL::STARTUP-CCL)>) "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))") 445 (CCL::S) CCL::S: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))" #:CONTINUE: #<RESTART CONTINUE #x229214ED> #:G140482: (#<RESTART CONTINUE #x229214ED>) CCL::%RESTARTS%: ((#<RESTART CONTINUE #x229214ED>) (#<RESTART ABORT #x229215FD>) (#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>)) (227F9D40) : 42 (STARTUP-CCL NIL) 1533 (&OPTIONAL CCL::INIT-FILE) CCL::INIT-FILE: NIL #:ABORT: #<RESTART ABORT #x229215FD> #:G140470: (#<RESTART ABORT #x229215FD>) CCL::%RESTARTS%: ((#<RESTART ABORT #x229215FD>) (#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>)) #:G140475: ((:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))")) CCL::P: (:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))") CCL::PARAM: "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-stamp-propagation.script|))))" #:G140478: :EVAL (227F9DA8) : 43 (FUNCALL (FUNCTION #<(:INTERNAL (CCL:TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>)) 61 NIL CCL::F: CCL::LISTENER-FUNCTION CCL::INIT-FILE: "home:ccl-init" (227F9DC8) : 44 (FUNCALL (FUNCTION #<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>)) 645 NIL *TERMINAL-IO*: #<ECHOING-TWO-WAY-STREAM input #<BASIC-CHARACTER-INPUT-STREAM UTF-8 (PIPE/436) #x2100433B4D>, output #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> #x21004388DD> CCL::CLOSE-STREAMS: NIL CCL::CLEANUP-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x21004317DF> CCL::INITIAL-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x210043178F> CCL::AUTO-FLUSH: T CCL:OUTPUT-STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/624) #x210043364D> CCL:INPUT-STREAM: #<BASIC-CHARACTER-INPUT-STREAM UTF-8 (PIPE/436) #x2100433B4D> CCL::ECHOING: T (227F9E60) : 45 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x21004312DD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>)) 669 (CCL:PROCESS CCL::INITIAL-FORM) CCL:PROCESS: #<TTY-LISTENER listener(1) [Active] #x21004312DD> CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>) CCL::EXITED: NIL #:G142760: (CCL:PROCESS-RESET) CCL::%HANDLERS%: ((CCL:PROCESS-RESET)) #:ABORT: #<RESTART ABORT #x2292186D> #:ABORT-BREAK: #<RESTART CCL:ABORT-BREAK #x2292181D> #:G142761: (#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>) CCL::%RESTARTS%: ((#<RESTART CCL:ABORT-BREAK #x2292181D> #<RESTART ABORT #x2292186D>)) (227F9EF0) : 46 (FUNCALL (FUNCTION #<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS)))>) #<TTY-LISTENER listener(1) [Active] #x21004312DD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>)) 573 (CCL:PROCESS CCL::INITIAL-FORM) CCL:PROCESS: #<TTY-LISTENER listener(1) [Active] #x21004312DD> CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE # #x2100430E0F>) CCL:*CURRENT-PROCESS*: #<TTY-LISTENER listener(1) [Active] #x21004312DD> #:G142746: (*PRINT-PPRINT-DISPATCH* CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*LOGICAL-BLOCK-XP* CCL::*FORMAT-TOP-LEVEL* ...) #:G142747: (#<PPRINT-DISPATCH-TABLE #x21004390CD> NIL NIL NIL NIL ...) CCL::*INTERRUPT-LEVEL*: 0 #:G142748: ("Active") #:G142749: "Reset" (227F9F98) : 47 (FUNCALL (FUNCTION #<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>)) 277 NIL CCL::*CURRENT-LISP-THREAD*: #<LISP-THREAD listener [tcr @ #x75F6E0] #x2100430EED> CCL::INITIAL-FUNCTION: (#<Compiled-function # (Non-Global) #x10048AD7F> #<TTY-LISTENER listener(1) [Active] #x21004312DD> #) CCL::TCR: 966364 CCL::THREAD: #<LISP-THREAD listener [tcr @ #x75F6E0] #x2100430EED> Above backtrace due to this condition: These two expressions fail comparison with EQUAL: (ASDF-TEST::SANITIZE-LOG (ASDF-TEST::RELOAD ASDF/DEFSYSTEM:DEFSYSTEM)) evaluates to ((:COMPILING :SYSTEM)) (QUOTE ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2))) evaluates to ((:COMPILING :SYSTEM) (:COMPILE-TOPLEVEL :FILE1) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2)) Script failed Using f:/cl-engines/ccl-win-1.10-dev/wx86cl64.exe, test-stamp-propagation.script failed you can retry compilation with: ./test/run-tests.sh ccl test-stamp-propagation.script or more interactively (and maybe with rlwrap or in emacs), start with: (cd test ; f:/cl-engines/ccl-win-1.10-dev/wx86cl64.exe --no-init --quiet ) then copy/paste: '(#.(load "script-support.lisp") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load "test-stamp-propagation.script"))

1 0