Custom Query (1030 matches)

cd /tmp
mkdir "a*x+b.rtfd"
touch  "a*x+b.rtfd/foo"
ccl
(directory "/tmp/a\\*x+b.rtfd/*.*")
> Error: File #P"/tmp/a\\\\\\*x+b.rtfd/foo" does not exist.
> While executing: %ADD-DIRECTORY-RESULT, in process listener(1).

Welcome to Clozure Common Lisp Version 1.10-dev-r15846M-trunk  (DarwinX8664)!
? (directory #P"~/directory-with-one-subdirectory/**/")
> Error: The value NIL is not of the expected type STRUCTURE.
> While executing: CCL::%PROCESS-DIRECTORY-RESULT, in process Listener(4).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
1 > 

This used to work.

Welcome to Clozure Common Lisp Version 1.10-dev-r15778M-trunk  (DarwinX8664)!
? (directory #P"~/directory-with-one-subdirectory/**/")
(#P"/Users/alms/directory-with-one-subdirectory/" #P"/Users/alms/directory-with-one-subdirectory/the-one-subdirectory/")
? 

deng-hhueb 573_$ rm foo bar
deng-hhueb 574_$ mkdir /tmp/foo
deng-hhueb 575_$ touch /tmp/foo/\*
deng-hhueb 576_$ openmcl -n -e '(directory "/tmp/foo/**/*")'
> Error: Illegal use of wildcarded filename "/tmp/foo/*"
> While executing: CCL::NATIVE-TRANSLATED-NAMESTRING, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Skip evaluation of (directory "/tmp/foo/**/*")
> Type :? for other options.
1 >