Custom Query (1030 matches)

DISASSEMBLE seems to run into troubles when *print-cirlce* is t:

shell> ccl --no-init
Welcome to Clozure Common Lisp Version 1.10-dev-r16188M-trunk  (LinuxX8632)!

CCL is developed and maintained by Clozure Associates. For more information
about CCL visit http://ccl.clozure.com.  To enquire about Clozure's Common Lisp
consulting services e-mail info@clozure.com or visit http://www.clozure.com.

? (defgeneric foo ())
#<STANDARD-GENERIC-FUNCTION FOO #x1824A356>
? (setq *print-circle* t)
T
? (disassemble 'foo)
    (recover-fn)                            ;     [0]
    (movl (@ (% esp)) (% temp0))            ;     [5]
[... a page full of output ...]
L71
    (pushl (% temp0))                       ;    [71]
    (movl (@ 
> Error: Can't use #<error printing CCL::IMMEDIATE #x33> as a hash-table key
> While executing: CCL::PUTHASH, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >

Probably related to ticket #1225.

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 >

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/")
?