[clisp-list] metaclass hash bug

[Aneil M. <ane...@gm...>]

I think I've found a bug which appears when a a class object
is used as a hashkey in an 'equalp hashtable.
 
For example:
(defclass x () ())
(gethash (find-class 'x) (make-hash-table :test 'equalp))
 
causes a program stack overflow & hangs, as will:
(gethash (find-class 'standard-class) (make-hash-table :test 'equalp))
 
whereas,
(gethash (make-instance 'x) (make-hash-table :test 'equalp))
and
(gethash (... create a struct...)  (make-hash-table :test 'equalp))
will complete without error.
 
I have seen this in the latest linux & windows versions (2.33.2-1 and 2.33.1).
 
Aneil Mallavarapu
aneil(at)hms.harvard.edu