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.

(/ (1+ most-positive-fixnum) 0) => 1/0

This should signal a DIVISION-BY-ZERO condition.

Hi,

Is this a known bug? I don't have the expertise to describe the problem in a sensible way--I'm not even sure whether it has to do with 'do' per se--but you'll see what I mean. This is on: 1.6-r14468M (DarwinX8664)!

Line breaks added for readability:

? (setf (get 'sym1 'prop) '(this that theother))
(THIS THAT THEOTHER)
? (setf sym2 'sym1)
SYM1
? (do ((lst (symbol-plist 'sym1) (cdr lst))) 
      ((null lst) t) 
   (princ (car lst)))
PROP(THIS THAT THEOTHER)
T
? (do ((lst (symbol-plist sym2) (cdr lst))) 
      ((null lst) t) 
    (princ (car lst)))
;Compiler warnings :
;   In an anonymous lambda form at position 24: Undeclared free variable SYM2PROP(THIS THAT THEOTHER)
T
? 

Thank you for ccl, btw. It seems incredibly fast, which matters for my application.

Marshall