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/alisp8 -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/alisp/asdf.fasl
Reusing previously-compiled ASDF
Compiled OK
Testing: test-utilities.script
/home/dcooper8/genworks/cl-engines/acl90-linux-x86/alisp8 -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/alisp/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
         @
         #x20098582>
    :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) @ #x20597832>)
   (ASDF/IMAGE:PRINT-BACKTRACE :STREAM #2# :COUNT 69)
   (ASDF/IMAGE:PRINT-CONDITION-BACKTRACE

    #4=#<SIMPLE-ERROR @ #x205979ba>
    :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=#:G2295
            (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
          @
          #x203c9b32>)
   (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) @ #x203c9f2a>)
   (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
          @
          #x2027a432>
    #\.
    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/alisp8, test-utilities.script failed
you can retry compilation with:
./test/run-tests.sh allegro 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/alisp8 -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/alisp8
Ran 1 tests: 
  0 passing and 1 failing
failing test(s):  test-utilities.script
-#---------------------------------------

