Stklos doubt

From: Carles Perello <carlesp_at_cnm.es>
Date: Tue, 31 Jan 95 17:05:12 GMT

I am just testing the Stklos features and I run thru the
following problem:

(define-class <complex> (<number>) ((r :accessor real-part :init-keyword :r)
                                    (i :accessor imag-part :init-keyword :i)))

STk> #[undefined]
(define-method complex? (c) #f)
STk> complex?
(define-method complex? (c <number>) #t)
STk> complex?
(define c1 (make <complex> :r -4 :i 3 ))
STk> #[undefined]
(complex? c1)
STk> #f

It's not a precedence problem because I tried all posibilities while
defining methods. So I think I am forgetting something here?

Thanks!

****************************************
**** ***** ******** *** **** Carles Perello i Garcia
** *** **** * *** Power Technology Group R&D
* ******** * ** * * *** CNM - CSIC
* ******* *** ** *** *** *** 08190 Bellaterra Barcelona
** ** *** ** *** *** *** Tel 34 3 580 26 25
 *** ** *** ** *** *** *** Fax 34 3 580 14 96
   ***************************************** email carlesp_at_cnm.es
Received on Tue Jan 31 1995 - 17:04:23 CET