[Bese-devel] compilation error for ucw 0.2.3 with cmucl18e

[Kristian Elof Sørensen]

Marco Baringer wrote:

>Kristian Elof Sørensen <elof at image.dk> writes:
>
>  
>
>>On both 18e and 19a the defmethod call fails with a "no class named A"
>>error. Perhaps you intended the code to be slightly different than
>>what you wrote?
>>    
>>
>
>yes, typo. (that should teach to always test what i write)
>
>the defmethod form should have been:
>
>(defmethod a ((f foo)) f)
>
>i checked and this issue has definetly been fixed in cmucl 19a. which
>is weird since the backtrace you posted makes it look like the error
>is this...
>
>  
>

Using this version *j* is 0 at the end using both 18e and 19a

[elof at hugin elof]$ lisp-18e -core /usr/lib/cmucl/lib/lisp-18e.core -noinit
CMU Common Lisp 18e, running on hugin
With core: /usr/lib/cmucl/lib/lisp-18e.core
Dumped on: Thu, 2003-04-03 15:47:12+02:00 on orion
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS 18e (based on PCL September 16 92 PCL (f))
* #+cmu18 t

T
* (defparameter *j* 0)

*J*
* (define-condition foo ()
    ((a :initform (incf *j*))))

FOO
* (defmethod a ((f foo)) f)

#<Standard-Method A (FOO) {4802F3FD}>
* *j*

0


[elof at hugin elof]$ lisp-19a -core /usr/lib/cmucl/lib/lisp-19a.core -noinit
CMU Common Lisp 19a, running on hugin
With core: /usr/lib/cmucl/lib/lisp-19a.core
Dumped on: Wed, 2004-07-28 18:51:48+02:00 on lorien
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2004/04/14 03:32:47
* #+cmu19 t

T
* (defparameter *j* 0)

*J*
* (define-condition foo ()
    ((a :initform (incf *j*))))

FOO
* (defmethod a ((f foo)) f)
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. F):
; Compiling Top-Level Form:

#<STANDARD-METHOD A (FOO) {5808E39D}>
* *j*

0