Re: Problem specializing default methods in PCL 1/11/88

[franz!akbar!layer@ucbarpa.Berkeley.EDU (Kevin Layer)]

>> Implementation: Sun Common Lisp version 3.0.beta.68 [sun3 with patch level 6]
>> (12/28/87 15:49)
>> 
>> <cl> (use-package 'pcl)
>> 
>> T 
>> <cl> (defmethod bar (self) (+ self 2))
>> 
>> NIL 
>> <cl> (bar 3)
>> 
>> 5 
>> <cl> (defclass foo () ((a :initform 0 :accessor foo-a)))
>> 
>> NIL 
>> <cl> (defmethod bar ((self foo)) (+ (foo-a self) 2))
>> Error: Received signal number 11 (Segmentation violation)
>> [1] <cl> :zo

I tried it locally (on version 3.0.beta.82), and I got:

<user 2> (use-package 'pcl)

t 
<user 3> (defmethod bar (self) (+ self 2))

#<Method bar () 36777061> 
<user 4> (bar 3)

5 
<user 5> (defclass foo () ((a :initform 0 :accessor foo-a)))

#<Class foo 37012721> 
<user 6> (defmethod bar ((self foo)) (+ (foo-a self) 2))

#<Method bar (foo) 37031071> 
<user 7> 

I using a modified 8/27/87 version, and I've given my changes to
Gregor--they may not be in the ftp'able version yet.

	Kevin