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

[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

[asdf-devel] Mistake (?) in grammar of defsystem
by Robert P. Goldman 08 Apr '15

08 Apr '15

I see that the grammar of dependencies in the manual specifies that :version appears as a keyword symbol, but feature appears as *not* a keyword symbol. Is this a documentation bug? I think so, but you know the actual execution semantics better. If it is a doc bug, I'll fix it right away. thx, r

4 7

[asdf-devel] Cannot use latest git ECL (asdf/quicklisp are involved)
by Didier Verna 08 Apr '15

08 Apr '15

Yothere, I upgraded ECL this morning to the latest repo version and I cannot use it anymore with my usual setup (-norc works). My local versions of Quicklisp and ASDF are also the lastest. I have this in my init file: ;; Do ASDF first (when a compiler provides it directly, I think it is better ;; to use its version than mine). (require :asdf #-(or sbcl cmu ccl ecl mkcl xcl allegro (and lispworks (not lispworks-personal-edition))) '(#p"/usr/local/share/common-lisp/source/asdf/build/asdf.lisp")) #-quicklisp (let ((quicklisp-init "/usr/local/share/common-lisp/source/quicklisp/setup.lisp")) (when (probe-file quicklisp-init) (load quicklisp-init))) With this configuration, running ECL on the command-line gives me this: didier(pts/4)% ecl Err 1 11:27 06/24/13 ;;; Loading #P"/home/didier/.clrc" ;;; Loading #P"/usr/local/lib/ecl-12.7.1/asdf.fas" ;;; Loading #P"/usr/local/lib/ecl-12.7.1/cmp.fas" ;;; Loading "/usr/local/share/common-lisp/source/quicklisp/setup.lisp" ASDF could not load sockets because Error while trying to load definition for system sockets from pathname /usr/local/lib/ecl-12.7.1/sockets.asd: No applicable method for SOURCE-FILE-TYPE with arguments of types COMPILED-FILE PREBUILT-SYSTEM. ;;; Error: ;;; in file impl.lisp, position 7644 ;;; at (DEFINE-IMPLEMENTATION-PACKAGE ECL ...) ;;; * The form (REQUIRE 'SOCKETS) was not evaluated successfully. ;;; Error detected: ;;; Error while trying to load definition for system sockets from pathname /usr/local/lib/ecl-12.7.1/sockets.asd: No applicable method for ASDF:SOURCE-FILE-TYPE with arguments of types ;;; COMPILED-FILE ;;; PREBUILT-SYSTEMAn error occurred during initialization: Error while invoking #<compile-op (:VERBOSE NIL) 0b0e79a8> on #<cl-source-file "quicklisp" "impl">. zsh: exit 1 ecl I see that ELC's version of ASDF is old, so I tried to load ASDF 3 by removing 'ecl from the #-() form above. Now I get this instead: didier(pts/4)% ecl Err 1 11:27 06/24/13 ;;; Loading #P"/home/didier/.clrc" ;;; Loading "/usr/local/share/common-lisp/source/asdf/build/asdf.lisp" An error occurred during initialization: Cannot delete the directory #P"/home/didier/.cache/common-lisp/ecl-12.7.1-52ca46e0-linux-x86/usr/local/share/common-lisp/source/asdf/build/asdf.fas". C library explanation: No such file or directory.. zsh: exit 1 ecl Any advice ? Thanks. -- Resistance is futile. You will be jazzimilated. Lisp, Jazz, Aïkido: http://www.didierverna.info

2 1

[asdf-devel] Tiny patch for cmucl print-herald
by Raymond Toy 08 Apr '15

08 Apr '15

Not sure how useful this would be, but it would be nice if images that contained asdf could display the asdf version on startup on cmucl. Anyway, here is the necessary change to allow cmucl to print out the adsf version when the startup banner is printed. Ray (setf (getf ext:*herald-items* :asdf) `(,#'(lambda (stream) (write-string " ASDF " stream) (write-string asdf::*asdf-version*))))

2 9

[asdf-devel] Anyone having trouble with working copies of doc/index.html?
by Robert Goldman 08 Apr '15

08 Apr '15

I am getting repeated pull failures with this error: error: unable to unlink old 'doc/index.html' (Permission denied) Anyone else seeing that? I'm just wondering because the obvious fixes (cf. StackOverflow) don't work for me. Even rebooted to make sure there wasn't anything holding the file open. No joy. Also, every failure to pull leaves me with spurious uncommitted changes in my working copy. If this is just my problem, I'll work it out, but I was wondering if the repo was somehow messed up. Cheers, r -- Robert P. Goldman Principal Scientist Smart Information Flow Technologies (d/b/a SIFT, LLC) 211 N. First St., Suite 300 Minneapolis, MN 55401 Voice: (612) 326-3934 Email: rpgoldman(a)SIFT.net

2 1

[asdf-devel] optimization settings
by Robert Brown 08 Apr '15

08 Apr '15

Does ASDF set compiler optimization settings before compiling each file when building? I'm concerned that changing the optimization setting inside one source file could cause the change to stick and be used for other files. I don't think the CL standard mandates that "(declaim (optimize ... ))" applies only to the current file. The issue is similar to that of readtables ... Bob

4 6

[asdf-devel] ASDF 3.0.3 released
by Robert Goldman 08 Apr '15

08 Apr '15

Dear Lisp hackers, I am pleased to announce the release of ASDF 2.26. Since previous release 2.25, the changes are as follows: * Run-program much improved, with a slight backward incompatibility. See the new documentation about it. * Portability enhanced, with more robust Windows support, plus patches for CCL, CLISP, LispWorks, XCL. * UIOP improved, with a README, more docstrings, a few new functions (println, writeln, stripln, ensure-gethash, vomit-output-stream), and bugfixes (to ensure-function, with-temporary-file, split-string). * Debian installations that don't export XDG_DATA_DIRS will benefit from the fix to split-string, as the bug was basically disabling the default source-registry entry for /usr/share/common-lisp/source// Closes: #723977 * Minor tweaks to the defsystem, mostly to print more information in some situations, less in other situations, but also to better handle systems with secondary names like foo/bar, a fix for user functions in output-translation, and to :version (:read-file-...) * Documentation somewhat updated. This is a very substantial bug fix release, notably on Windows, but has a stable API wrt the previous version. For this reason, CL implementations are strongly encouraged to replace previous bundled versions with 3.0.3. As always, thanks to Faré for what seems like a countless number of fixes. Thanks to Dave Cooper for many hours of testing on Windows, without whom the improvements on that platform would have been impossible. Work will soon begin on the 3.1.0 series, with some additional API features, so please make sure to pull a copy of 3.0.3 instead of the bleeding edge when you are bundling. Best, Robert

4 3

[asdf-devel] Re: software failures (with asdf 3?)
by Faré 08 Apr '15

08 Apr '15

On Sun, Jul 7, 2013 at 8:12 AM, Zach Beane <xach(a)xach.com> wrote: > I upgraded my dist construction system to asdf 3.0 and get these > failures: > > - exscribe: Don't know how to normalize (:FEATURE :EXSCRIBE-TYPESET > :CL-TYPESETTING). More info at > http://report.quicklisp.org/exscribe/2013-07-07/failtail.txt > Exscribe is working well for me. The :FEATURE feature is an ASDF feature that was simultaneously broken and undocumented in late ASDF1, has been fixed but cerror'ed during the ASDF 2 days, and fixed and tested to work before ASDF3 (test in place since 2.31.2). Your backtrace suggests that the error happens in a package called DEPCHECK, that doesn't know about this feature. I suppose you wrote that package and need to teach it about :FEATURE. That's where I realize that the :FEATURE feature is quite misdocumented in the asdf.texinfo in the grammar production "dependency-def" (as opposed to the very different, documented but deprecated feature in "requirement"). Oh well. Not my problem anymore. Robert, you might want to look into this: * in dependency-def, it should be (:feature @var{feature-expression} @var{dependency-def}) * the required-op production is redundant, since it's better covered by the second branch of requirement. * have a quick look at find-component.lisp to make sure the grammar is properly documented; maybe document the new extensible protocol for naming components. > - cl-launch: Could not load ASDF 2.27. More info at > http://report.quicklisp.org/cl-launch/2013-07-07/failtail.txt > Looks like you're using cl-launch 3.21.3 or earlier. Please upgrade to the latest 3.22, available since last May (actually same as 3.21.7 from February). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org There is never a better measure of what a person is than what he does when he's absolutely free to choose." — William M. Bulger

2 3

[asdf-devel] Re: Bug#723977: missing symlink in /usr/share/common-lisp/systems
by Faré 08 Apr '15

08 Apr '15

(Adding asdf-devel to the recipients — the problem is wrong (asdf::default-source-registry) when XDG_DATA_DIRS is empty.) Well, ASDF ought to have worked even in absence of XDG_DATA_DIRS, and you discovered a genuine bug in ASDF. It turns out, split-string was not designed to return correct results when passed either NIL or "", and this caused ASDF to fail to treat the default properly for XDG_DATA_DIRS. I've pushed a fix as ASDF 3.0.2.9, but that's a pretty bad bug you've discovered, which defeats the default configuration. Robert: when do you instead to release 3.0.3 ? Otherwise, I could do a Debian package for 3.0.2.9. (PS: I took the liberty of also committing my load-systems* patch). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org A competent and self-confident person is incapable of jealousy in anything. Jealousy is invariably a symptom of neurotic insecurity. — Robert Heinlein, "Time Enough For Love" On Mon, Sep 23, 2013 at 1:05 AM, Diogo F. S. Ramos <diogofsr(a)gmail.com> wrote: >> 1- what does env return? > > I think the problem lies here. > > My environment does not export XDG_DATA_DIRS. If I try it inside gnome, > which exports it, everything works nicely. > > According to the XDG Base Directory Specification[1], if XDG_DATA_DIRS is > empty or not set, the defaults should be used. More specifically: > > $XDG_DATA_DIRS defines the preference-ordered set of base directories > to search for data files in addition to the $XDG_DATA_HOME base > directory. The directories in $XDG_DATA_DIRS should be seperated with > a colon ':'. > > If $XDG_DATA_DIRS is either not set or empty, a value equal to > /usr/local/share/:/usr/share/ should be used. > > Maybe something in the stack is not implementing this characteristic of > XDG. > > [1] http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html >

3 3