[asdf-devel] New failures on CCL Windows

8 Apr 2015


      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"))

Dave Cooper

tags

participants (1)