Opened 7 years ago

Closed 7 years ago

Last modified 7 years ago

#1229 closed defect (fixed)

disassemble and *print-cirlce*

Reported by: heller2 Owned by:
Priority: normal Milestone:
Component: other Version: trunk
Keywords: Cc:

Description

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.

Change History (3)

comment:1 Changed 7 years ago by gb

Thanks; I can reproduce this reliably.

comment:2 Changed 7 years ago by gb

  • Resolution set to fixed
  • Status changed from new to closed

(In [16189]) Define (and inline) INVALID-HASH-KEY-P. Don't do circularity detection on invalid hash keys. Fixes ticket:1229 in the trunk.

comment:3 Changed 7 years ago by rme

(In [16191]) Merge from trunk (see ticket:1229)

Note: See TracTickets for help on using tickets.