[Sbcl-devel] DIRECTORY regression in 1.29.0 and up

[Gabriel D. R. <gd...@in...>]

Hi,

  I'm afraid the recent rewrite of DIRECTORY introduced a regression
in 1.29.0 and up.  The regression shoiws up when building OpenAxiom
http://www.open-axiom.org/
with the following backtrace:

debugger invoked on a TYPE-ERROR:
  The value T
  is not of type
    (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME FILE-STREAM).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(NATIVE-NAMESTRING T)[:EXTERNAL]
0] backtrace

0: (NATIVE-NAMESTRING T)[:EXTERNAL]
1: (SB-IMPL::MAP-DIRECTORY #<CLOSURE (LAMBDA #) {10026F0879}> T)[:EXTERNAL]
2: ((FLET SB-IMPL::ITERATE) #<CLOSURE (FLET SB-IMPL::ONE-ITER) {7FFFF53E3579}>)
3: (SB-IMPL::CALL-WITH-NATIVE-DIRECTORY-ITERATOR
    #<CLOSURE (FLET SB-IMPL::ITERATE) {7FFFF53E3659}>
    "/home/gdr/build/sbcl-x-oa/src/algebra/"
    NIL)
4: (SB-IMPL::MAP-DIRECTORY
    #<CLOSURE (LAMBDA #) {10026EF039}>
    #P"/home/gdr/build/sbcl-x-oa/src/algebra/")[:EXTERNAL]
5: (SB-IMPL::MAP-MATCHING-DIRECTORIES
    #<CLOSURE (LAMBDA #) {10026EEE69}>
    #P"/home/gdr/build/sbcl-x-oa/src/algebra/*.NRLIB/index.KAF")
6: (DIRECTORY "build/sbcl-x-oa/src/algebra/*.NRLIB/index.KAF")[:EXTERNAL]
7: (SB-INT:SIMPLE-EVAL-IN-LEXENV
    (DIRECTORY "build/sbcl-x-oa/src/algebra/*.NRLIB/index.KAF")
    #<NULL-LEXENV>)
8: (INTERACTIVE-EVAL
    (DIRECTORY "build/sbcl-x-oa/src/algebra/*.NRLIB/index.KAF"))[:EXTERNAL]



I can reproduce this by hand by entering the form

   (directory "build/sbcl-x-oa/src/algebra/*.NRLIB/index.KAF")

at the REPL.  I have not however succeeded in reproducing the
failure with simpler path specs.

-- Gaby