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