; Loading
;    C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\script-support.lisp
; Fast loading
;    C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\mlisp\asdf.fasl
Warning: first-feature is defined more than once as `operator' in file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp.
Warning: implementation-type is defined more than once as `operator' in file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp.
Warning: *implementation-type* is defined more than once as `variable' in file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp.
Warning: operating-system is defined more than once as `operator' in file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp.
Warning: architecture is defined more than once as `operator' in file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp.
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-windows\\test\\"
Frob packages
; Loading
;    C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\test-stamp-propagation.script
;   Loading
;      C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\test-stamp-propagation.lisp
foo
XXX :execute :tsp
Warning: *asdf-cache*, :variable was defined in C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\asdf.lisp and is now being defined in C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\test-stamp-propagation.lisp
; Registering #<system "test-stamp-propagation">
Testing stamp propagation by defsystem :asdf
loading system
ASDF-CACHE nil
XXX :compiling :system
;;; Compiling file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\file1.lisp
XXX :compile-toplevel :file1
;;; Writing fasl file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file1-ASDF-TMP.fasl
;;; Fasl write complete
;     Fast loading
;        C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file1.fasl
XXX :load-toplevel :file1
;;; Compiling file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\file2.lisp
XXX :compile-toplevel :file2
;;; Writing fasl file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file2-ASDF-TMP.fasl
;;; Fasl write complete
;     Fast loading
;        C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file2.fasl
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
;   Autoloading for excl::gray-open:
;     Fast loading from bundle code\streamc.fasl.
;       Fast loading from bundle code\efft-1252-base.fasl.
;       Fast loading from bundle code\efft-utf8-base.fasl.
;       Fast loading from bundle code\efft-void.fasl.
;       Fast loading from bundle code\efft-latin1-base.fasl.
;   Autoloading for class echo-stream:
;     Fast loading from bundle code\streama.fasl.
ASDF-CACHE nil
XXX :compiling :system
;;; Compiling file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\file1.lisp
XXX :compile-toplevel :file1
;;; Writing fasl file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file1-ASDF-TMP.fasl
;;; Fasl write complete
;     Fast loading
;        C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file1.fasl
XXX :load-toplevel :file1
;;; Compiling file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\test\stamp-propagation\file2.lisp
XXX :compile-toplevel :file2
;;; Writing fasl file C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file2-ASDF-TMP.fasl
;;; Fasl write complete
;     Fast loading
;        C:\users\dcooper8\genworks\cl\tests\asdf\asdf-windows\build\fasls\acl-9.0m-win-x86\asdf\test\stamp-propagation\file2.fasl
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 fasl file and reloading
defsystem should reload it, recompile & reload the other
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))
 (quote ((:compiling :system) (:load-toplevel :file1) (:compile-toplevel :file2) (:load-toplevel :file2))) evaluates to ((:compiling :system) (:load-toplevel :file1) (:compile-toplevel :file2) (:load-toplevel :file2))
Evaluation stack:

 ->(tpl::zoom-command :from-read-eval-print-loop nil :count t :all t)
   (sys::..runtime-operation #21="applyn" . #1=(:unknown-args))
   (tpl:do-command

    "zoom"
    :from-read-eval-print-loop
    nil
    :count
    t
    :all
    t)
   (asdf/image:raw-print-backtrace

    :stream
    #2=#<excl:terminal-simple-stream
         [initial terminal io] fd 0/1
         @
         #x200f95b2>
    :count
    69)
   (sys::..runtime-operation #3="lisp_apply" . #1#)
   ((:internal asdf/image:print-backtrace 0))
   (asdf/stream:call-with-safe-io-syntax

    #<Closure (:internal asdf/image:print-backtrace 0) @ #x205f3b22>)
   (asdf/image:print-backtrace :stream #2# :count 69)
   (asdf/image:print-condition-backtrace

    #4=#<simple-error @ #x205f3c82>
    :stream
    #2#
    :count
    69)
   (sys::..runtime-operation #3# . #1#)
   [... excl::eval-as-progn ]
   (block

    asdf-test:acall
    (apply
     (apply
      'asdf-test:asym
      (if
       (consp asdf-test::name)
       asdf-test::name
       (list asdf-test::name)))
     asdf-test::args))
   [... excl::%eval ]
   (asdf-test:acall

    :print-condition-backtrace
    #4#
    :count
    69
    :stream
    #2#)
   (sys::..runtime-operation

    #8="_comp_to_interp"
    :print-condition-backtrace
    #4#
    :count
    69
    :stream
    #2#)
   (sys::..runtime-operation #3# . #1#)
   [... excl::eval-as-progn ]
   (let*

    . #6=(((#5=#:g293
            (cons
             (load-time-value excl::.ignore-errors-1.)
             (excl::fast excl::*handler-clusters*)))
           (excl::*handler-clusters* #5#))
          (declare (dynamic-extent #5# excl::*handler-clusters*))
          (progn
           . #7=((asdf-test:acall
                  :print-condition-backtrace
                  asdf-test::c
                  :count
                  69
                  :stream
                  *error-output*)))))
   [... excl::eval-as-progn ]
   (catch 'excl::ignore-errors-1 (let* . #6#))
   [... excl::%eval ]
   (excl::eval-as-progn

    #23=((ignore-errors . #7#)
         (asdf-test:leave-test "Script failed" 1)))
   [... excl::%eval ]
   ((:internal asdf-test::call-with-test) #4#)
   (sys::..runtime-operation #8# #4#)
   (signal #4#)
   (error

    #10="These two expressions fail comparison with ~S:~% ~
            ~S evaluates to ~S~% ~S evaluates to ~S~%"
    equal
    #11=(asdf-test::sanitize-log
         (asdf-test::reload asdf/defsystem:defsystem))
    #13=((:compiling :system))
    #12='#9=((:compiling :system)
             (:load-toplevel :file1)
             (:compile-toplevel :file2)
             (:load-toplevel :file2))
    #9#)
   (sys::..runtime-operation #3# . #1#)
   [... excl::eval-as-progn ]
   (block

    asdf-test::assert-compare-helper
    (unless
     (funcall asdf-test::op asdf-test::x asdf-test::y)
     (error
      #10#
      asdf-test::op
      asdf-test::qx
      asdf-test::x
      asdf-test::qy
      asdf-test::y)))
   [... excl::%eval ]
   (asdf-test::assert-compare-helper equal #11# #12# #13# #9#)
   (sys::..runtime-operation #8# equal #11# #12# #13# #9#)
   (sys::..runtime-operation #3# . #1#)
   [... excl::eval-as-progn ]
   (block

    asdf-test::test-defsystem
    (format
     t
     "~&Testing stamp propagation by defsystem ~S~%"
     asdf/defsystem:defsystem)
    (asdf-test::DBG "loading system")
    (asdf-test::reload asdf/defsystem:defsystem)
    (sleep 2)
    (asdf-test::DBG "touching first source file and reloading")
    (asdf-test::DBG "defsystem should recompile & reload everything")
    (asdf-test::touch-file1.lisp)
    (asdf-test:assert-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)))
    (sleep 2)
    (asdf-test::DBG "touching first fasl file and reloading")
    (asdf-test::DBG
     "defsystem should reload it, recompile & reload the other")
    (asdf-test::touch-file1.fasl asdf/defsystem:defsystem)
    (asdf-test:assert-equal #11# #12#))
   [... excl::%eval ]
   (asdf-test::test-defsystem :asdf)
   (sys::..runtime-operation #8# :asdf)
   [... excl::%eval ]
   (eval (asdf-test::test-defsystem :asdf))
   (excl::sloload

    #14=#<excl:file-simple-stream
          #15=#P"C:\\users\\dcooper8\\genworks\\cl\\tests\\asdf\\asdf-windows\\test\\stamp-propagation\\test-stamp-propagation.lisp" for input pos 4933
          @
          #x2049b65a>)
   (excl::load-from-stream-or-bundle #14# #15# nil t 4 nil nil)
   (excl::load-2

    #16=#P"C:\\users\\dcooper8\\genworks\\cl\\tests\\asdf\\asdf-windows\\test\\stamp-propagation\\test-stamp-propagation.lisp"
    t
    #17=(#P""
         #P(:type "fasl")
         #P(:type "cl")
         #P(:type "lisp")
         #P(:type "lsp"))
    :error
    nil
    nil
    nil
    nil
    nil
    nil
    nil
    :default
    nil
    nil)
   (excl::load-1

    #16#
    t
    #17#
    :error
    nil
    nil
    nil
    nil
    nil
    nil
    nil
    :default
    nil
    nil)
   (load #16#)
   [... excl::%eval ]
   (eval

    (load
     (asdf/pathname:subpathname
      asdf-test:*test-directory*
      "stamp-propagation/test-stamp-propagation.lisp")))
   (excl::sloload

    #18=#<excl:file-simple-stream
          #19=#P"C:\\users\\dcooper8\\genworks\\cl\\tests\\asdf\\asdf-windows\\test\\test-stamp-propagation.script" for input pos 86
          @
          #x2049bd0a>)
   (excl::load-from-stream-or-bundle #18# #19# nil t 2 nil nil)
   (excl::load-2

    #20="test-stamp-propagation.script"
    t
    #17#
    :error
    nil
    nil
    nil
    nil
    nil
    nil
    nil
    :default
    nil
    nil)
   (excl::load-1

    #20#
    t
    #17#
    :error
    nil
    nil
    nil
    nil
    nil
    nil
    nil
    :default
    nil
    nil)
   (load #20#)
   [... excl::%eval ]
   (nil)
   (sys::..runtime-operation #8#)
   (asdf/cache:call-with-asdf-cache

    #22=#<Interpreted Function (unnamed) @ #x2049c5fa>)
   (sys::..runtime-operation #21# . #1#)
   (funcall asdf/cache:call-with-asdf-cache #22#)
   [... excl::%eval ]
   (excl::eval-as-progn

    #27=((funcall
          (or (asdf-test:asym :call-with-asdf-cache) 'funcall)
          asdf-test::thunk)
         (asdf-test:leave-test "Script succeeded" 0)))
   (let*

    ((#24=#:g162
      (cons
       'error
       #28=(lambda
            (asdf-test::c)
            (ignore-errors
             (format
              *error-output*
              "~&TEST ABORTED: ~A~&"
              asdf-test::c))
            (asdf-test::finish-outputs*)
            (cond
             (asdf-test::*debug-asdf*
              (format t "~&It's your baby, fix it!~%")
              (break))
             (t . #23#)))))
     (#25=#:g160 (list #24#))
     (#26=#:g161 (cons #25# (excl::fast excl::*handler-clusters*)))
     (excl::*handler-clusters* #26#))
    (declare (dynamic-extent #25# #26# #24# excl::*handler-clusters*))
    . #27#)
   [... excl::eval-as-progn ]
   (catch . #29=(:asdf-test-done (handler-bind ((error #28#)) . #27#)))
   [... excl::%eval ]
   (let

    . #30=(((asdf-test::result (catch . #29#)))
           (when
            asdf-test::*quit-when-done*
            (asdf-test::exit-lisp asdf-test::result))))
   [... excl::eval-as-progn ]
   (block

    asdf-test::call-with-test
    (asdf-test::redirect-outputs)
    (let . #30#))
   [... excl::%eval ]
   (asdf-test::call-with-test #22#)
   (sys::..runtime-operation #8# #22#)
   [... excl::%eval ]
   (eval

    (asdf-test:with-test
     nil
     (load (string 'asdf-test::test-stamp-propagation.script))))
   (excl::sharp-dot

    #31=#<excl:string-input-simple-stream
          "'(#.(load(st..." pos 164
          @
          #x2031e4fa>
    #\.
    nil)
   (excl::read-dispatch-char #31# #\#)
   (excl::read-maybe-nothing #31# #\#)
   (excl::read-list #31# #\()
   (excl::read2 #31# t nil t nil nil)
   (excl::read1 #31# t nil t nil nil)
   (read #31# t nil t)
   (excl::read-quote #31# #\')
   (excl::read2 #31# t nil nil nil nil)
   (excl::read1 #31# t nil nil nil nil)
   (read #31# t nil)
   (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|))))")
   (excl::do-command-line-processing)
   (excl::start-lisp-execution t)
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) (:load-toplevel :file1) (:compile-toplevel :file2) (:load-toplevel :file2))) evaluates to ((:compiling :system) (:load-toplevel :file1) (:compile-toplevel :file2) (:load-toplevel :file2))
Script failed

<The Lisp process exited with status 1 (0x1)>
