OLDPWD=/home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf
ASDF_TEST_LISPS=allegromodern
PWD=/home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test
/home/dcooper8/genworks/cl-engines/acl90-linux-x86/mlisp8 -q -batch -e "(or #.(load(string\`|test/script-support.lisp|))#.(asdf-test::compile-asdf-script))"
; Loading
;    /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test/script-support.lisp
; Fast loading
;    /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/build/fasls/mlisp/asdf.fasl
Reusing previously-compiled ASDF
Compiled OK
Testing: test-utilities.script
/home/dcooper8/genworks/cl-engines/acl90-linux-x86/mlisp8 -q -batch -e "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|test-utilities.script|))))"
; Loading
;    /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test/script-support.lisp
; Fast loading
;    /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/build/fasls/mlisp/asdf.fasl
Configuring ASDF
Enabling debugging
Being a bit verbose
Comparing directories
asdf-test:*test-directory* and asdf-test::x both evaluate to same path:
  #P"/home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test/"
Frob packages
; Loading
;    /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test/test-utilities.script
Warning: These two expressions yield pathname-equal yet not equal path
the first expression (nth 0 (split-native-pathnames-string (join-namestrings (quote ("foo" "bar"))))) yields this:
  #P"foo"
  (:host nil :device :unspecific :directory nil :name "foo" :type :unspecific :version :unspecific)

        the other expression (nth 0 (quote (#P"foo" #P"bar"))) yields that:
  #P"foo"
  (:host nil :device :unspecific :directory nil :name "foo" :type nil :version :unspecific)

Warning: These two expressions yield pathname-equal yet not equal path
the first expression (nth 1 (split-native-pathnames-string (join-namestrings (quote ("foo" "bar"))))) yields this:
  #P"bar"
  (:host nil :device :unspecific :directory nil :name "bar" :type :unspecific :version :unspecific)

        the other expression (nth 1 (quote (#P"foo" #P"bar"))) yields that:
  #P"bar"
  (:host nil :device :unspecific :directory nil :name "bar" :type nil :version :unspecific)

(nth 0 (split-native-pathnames-string (join-namestrings (quote ("foo" "bar"))) :ensure-directory t)) and (nth 0 (quote (#P"foo/" #P"bar/"))) both evaluate to same path:
  #P"foo/"
(nth 1 (split-native-pathnames-string (join-namestrings (quote ("foo" "bar"))) :ensure-directory t)) and (nth 1 (quote (#P"foo/" #P"bar/"))) both evaluate to same path:
  #P"bar/"
Warning: These two expressions yield pathname-equal yet not equal path
the first expression (nth 0 (split-native-pathnames-string (join-namestrings (quote ("/foo" "/bar"))) :want-absolute t)) yields this:
  #P"/foo"
  (:host nil :device :unspecific :directory (:absolute) :name "foo" :type :unspecific :version :unspecific)

        the other expression (nth 0 (quote (#P"/foo" #P"/bar"))) yields that:
  #P"/foo"
  (:host nil :device :unspecific :directory (:absolute) :name "foo" :type nil :version :unspecific)

Warning: These two expressions yield pathname-equal yet not equal path
the first expression (nth 1 (split-native-pathnames-string (join-namestrings (quote ("/foo" "/bar"))) :want-absolute t)) yields this:
  #P"/bar"
  (:host nil :device :unspecific :directory (:absolute) :name "bar" :type :unspecific :version :unspecific)

        the other expression (nth 1 (quote (#P"/foo" #P"/bar"))) yields that:
  #P"/bar"
  (:host nil :device :unspecific :directory (:absolute) :name "bar" :type nil :version :unspecific)

(nth 0 (split-native-pathnames-string (join-namestrings (quote ("/foo" "/bar"))) :want-absolute t :ensure-directory t)) and (nth 0 (quote (#P"/foo/" #P"/bar/"))) both evaluate to same path:
  #P"/foo/"
(nth 1 (split-native-pathnames-string (join-namestrings (quote ("/foo" "/bar"))) :want-absolute t :ensure-directory t)) and (nth 1 (quote (#P"/foo/" #P"/bar/"))) both evaluate to same path:
  #P"/bar/"
; Autoloading for excl::gray-open:
;   Fast loading from bundle code/streamc.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.
; Loading system definition for uiop from /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/uiop/uiop.asd
;   Loading
;      /home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/uiop/uiop.asd
; Registering #<system "uiop">
; Autoloading for package "excl.osi":
;   Fast loading
;      /home/dcooper8/genworks/Dropbox/genworks/cl-engines/acl90-linux-x86/code/osi.fasl
;     Fast loading from bundle code/fileutil.fasl.
;; Autoloading locale from #P"/home/dcooper8/genworks/Dropbox/genworks/cl-engines/acl90-linux-x86/locales/en_US"
;   Autoloading for load-localedef:
;     Fast loading from bundle code/locale.fasl.
;   Autoloading for package "regexp":
;     Fast loading
;        /home/dcooper8/genworks/Dropbox/genworks/cl-engines/acl90-linux-x86/code/regexp2-s.001
;;; Installing regexp2-s patch, version 1.
;   Autoloading for regexp::make-vm-closure:
;     Fast loading
;        /home/dcooper8/genworks/Dropbox/genworks/cl-engines/acl90-linux-x86/code/regexp2.002
;;; Installing regexp2 patch, version 2.
;       Fast loading
;          /home/dcooper8/genworks/Dropbox/genworks/cl-engines/acl90-linux-x86/code/yacc.fasl
TEST ABORTED: the assertion (typep (code-char (1- char-code-limit)) (quote base-char)) failed.
Evaluation stack:
Warning: while extracting symbols from /lib/i386-linux-gnu/librt.so.1: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libm.so.6: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libdl.so.2: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libc.so.6: couldn't find .symtab section
Warning: while extracting symbols from /lib/ld-linux.so.2: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libnss_files.so.2: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libnss_compat.so.2: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libnsl.so.1: couldn't find .symtab section
Warning: while extracting symbols from /lib/i386-linux-gnu/libnss_nis.so.2: couldn't find .symtab section

 ->(tpl::zoom-command :from-read-eval-print-loop nil :count t :all t)
   (sys::..runtime-operation #18="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
         @
         #x20098512>
    :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) @ #x205df012>)
   (asdf/image:print-backtrace :stream #2# :count 69)
   (asdf/image:print-condition-backtrace

    #4=#<simple-error @ #x205df19a>
    :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=#:g315
            (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

    #20=((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

    simple-error
    :format-control
    #9="the assertion ~s failed."
    :format-arguments
    #10=(#11=(typep (code-char (1- char-code-limit)) 'base-char)))
   (excl::.simple-error #9# . #10#)
   (excl::assert-1 #11# nil nil nil nil)
   (sys::..runtime-operation #3# . #1#)
   [... excl::%eval ]
   (excl::eval-as-progn

    #13=((excl::assert-1 '#11# 'nil nil (list) nil) (go #12=#:Tag21)))
   [... excl::%eval ]
   (excl::evaluate-a-tagbody (#12# (unless #11# . #13#)))
   [... excl::%eval ]
   (eval

    (progn
     (assert
      (asdf/utility:base-string-p
       (make-string 10 :element-type 'character)))
     (assert #11#)))
   (excl::sloload

    #14=#<excl:file-simple-stream
          #15=#P"/home/dcooper8/genworks/Dropbox/Public/cl/tests/asdf/asdf/test/test-utilities.script" for input pos 8436
          @
          #x203c9de2>)
   (excl::load-from-stream-or-bundle #14# #15# nil t 2 nil nil)
   (excl::load-2

    #16="test-utilities.script"
    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 ]
   (nil)
   (sys::..runtime-operation #8#)
   (asdf/cache:call-with-asdf-cache

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

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

    ((#21=#:g162
      (cons
       'error
       #25=(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 . #20#)))))
     (#22=#:g160 (list #21#))
     (#23=#:g161 (cons #22# (excl::fast excl::*handler-clusters*)))
     (excl::*handler-clusters* #23#))
    (declare (dynamic-extent #22# #23# #21# excl::*handler-clusters*))
    . #24#)
   [... excl::eval-as-progn ]
   (catch . #26=(:asdf-test-done (handler-bind ((error #25#)) . #24#)))
   [... excl::%eval ]
   (let

    . #27=(((asdf-test::result (catch . #26#)))
           (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 . #27#))
   [... excl::%eval ]
   (asdf-test::call-with-test #19#)
   (sys::..runtime-operation #8# #19#)
   [... excl::%eval ]
   (eval

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

    #28=#<excl:string-input-simple-stream
          "'(#.(load(st..." pos 156
          @
          #x2027a652>
    #\.
    nil)
   (excl::read-dispatch-char #28# #\#)
   (excl::read-maybe-nothing #28# #\#)
   (excl::read-list #28# #\()
   (excl::read2 #28# t nil t nil nil)
   (excl::read1 #28# t nil t nil nil)
   (read #28# t nil t)
   (excl::read-quote #28# #\')
   (excl::read2 #28# t nil nil nil nil)
   (excl::read1 #28# t nil nil nil nil)
   (read #28# 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-utilities.script|))))")
   (excl::do-command-line-processing)
   (excl::start-lisp-execution t)
Above backtrace due to this condition:
the assertion (typep (code-char (1- char-code-limit)) (quote base-char)) failed.
Script failed
Using /home/dcooper8/genworks/cl-engines/acl90-linux-x86/mlisp8, test-utilities.script failed
you can retry compilation with:
./test/run-tests.sh allegromodern test-utilities.script
or more interactively (and maybe with rlwrap or in emacs), start with:
(cd test ; /home/dcooper8/genworks/cl-engines/acl90-linux-x86/mlisp8 -q )
then copy/paste:
'(#.(load "script-support.lisp") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load "test-utilities.script"))



-#---------------------------------------
Using /home/dcooper8/genworks/cl-engines/acl90-linux-x86/mlisp8
Ran 1 tests: 
  0 passing and 1 failing
failing test(s):  test-utilities.script
-#---------------------------------------

