Re: undefmethod'ing setf forms

[Gregor.pa@Xerox.COM]

    Date: Fri, 28 Apr 89 23:42:39 CDT
    From: Daniel A Haug <aihaug@AUSTIN.LOCKHEED.COM>

    How do I specify to undefmethod a setf method?  Specifically
    something like:

You wanted to try 

  (undefmethod (setf foo) :after (t my-class))

But, there was a bug in undefmethod that prevented this from working.
The following patch fixes that.  This will appear in Cinco de Mayo PCL
which is about to be released.

;from high.lisp
(defmacro undefmethod (&rest args)
  #+(or (not :lucid) :lcl3.0)
  (declare (arglist name {method-qualifier}* specializers))
  `(undefmethod-1 ',args))
-------