Problem specializing default methods in PCL 1/11/88

[Rob Pettengill <rcp%sw.MCC.COM@MCC.COM>]

In prior versions of pcl we have used a defmethod with an
unspeciallized lambda list to define a default method handler.  This
doesn't seem to work in the new version running under Franz on the
Sun.

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
Evaluation stack:

 ->(ERROR "Received signal number ~s ~@[(~a)~]" 11 ...)
   (PCL::CLASS-PRECEDENCE-LIST NIL)
   (PCL::GREATEST-JOIN-POINTS #<Standard-Class FOO 36706661> NIL)
   (PCL::CROSS-COMBINATION-POINTS (#<Standard-Class FOO 36706661>) NIL)
   (PCL::COMPUTE-COMBINATION-POINTS #<Function BAR @ #x7b82b1>)
   (PCL::COMPUTE-COMBINED-METHODS #<Function BAR @ #x7b82b1>)
   (PCL::|(METHOD GENERIC-FUNCTION-CHANGED (STANDARD-GENERIC-FUNCTION))|
#<Function BAR @ #x7b82b1> #<Standard-Method BAR (FOO) 36740001> ...)
   (#:|.l.a59668e6| #<Function BAR @ #x7b82b1> #<Standard-Method BAR (FOO)
36740001> ...)

... more older frames ...
[1] <cl> 

;rob

  Robert C. Pettengill, MCC Software Technology Program
  P. O. Box 200195, Austin, Texas  78720
  ARPA:  rcp@mcc.com            PHONE:  (512) 338-3533
  UUCP:  {ihnp4,seismo,harvard,gatech,pyramid}!ut-sally!im4u!milano!rcp