From: Nicolas N. <Nic...@iw...> - 2003-06-25 08:37:42
|
Raymond Toy <to...@rt...> writes: > Which version of cmucl? > > I'll try to look into this. I have been hacking on matlisp a bit lately > to see if I can get cmucl's PCL to generate better code. I may have > messed up something. > > Ray The definition (defmethod fill-matrix ((matrix real-matrix) (fill real)) (copy! fill matrix)) does not work, because REAL is apparently shadowed somewhere: ;;; Describe real REAL is an external symbol in the MATLISP package. It names a class #<BUILT-IN-CLASS COMMON-LISP:REAL (sealed) {2806CA4D}>. #<BUILT-IN-CLASS COMMON-LISP:REAL (sealed) {2806CA4D}> is a structure of type BUILT-IN-CLASS. CLASS-INFO: #<TYPE-CLASS CLASS>. ENUMERABLE: NIL. NAME: COMMON-LISP:REAL. LAYOUT: #<Layout for COMMON-LISP:REAL {2806CA7D}>. STATE: :SEALED. DIRECT-SUPERCLASSES: (#<BUILT-IN-CLASS NUMBER (sealed) {280185CD}>). SUBCLASSES: #<EQ hash table, 8 entries {2806CAE5}>. PCL-CLASS: #<Built-In-Class COMMON-LISP:REAL {28202FE5}>. TRANSLATION: #<NUMERIC-TYPE COMMON-LISP:REAL>. It names a PCL class #<Built-In-Class COMMON-LISP:REAL {28202FE5}>. #<Built-In-Class COMMON-LISP:REAL {28202FE5}> is a class, it is an instance of . (PCL:BUILT-IN-CLASS) Its proper name is COMMON-LISP:REAL. The direct superclasses are: (NUMBER), and the direct subclasses are: (FLOAT RATIONAL). The class precedence list is: (COMMON-LISP:REAL NUMBER KERNEL::GENERIC-NUMBER T) There are 2 methods specialized for this class. Its direct slots are: Using common-lisp:real would work. Nicolas. |