X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefcombin.lisp;h=c649f244c3fc2e5f9c11764f3fd6ab6f6f939182;hb=f9b113feb08bb833fd3b46555b56f708826e4c93;hp=676bf9ba00f0341c7373c3713ac4e178b4d1f4b9;hpb=31f072311935e32751508ecf824905c6b58a1d95;p=sbcl.git

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index 676bf9b..c649f24 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -56,19 +56,10 @@
 ;;;; method combination object just reads the parameters out of the object
 ;;;; and runs the same rule.
 
-(defclass short-method-combination (standard-method-combination)
-  ((operator
-    :reader short-combination-operator
-    :initarg :operator)
-   (identity-with-one-argument
-    :reader short-combination-identity-with-one-argument
-    :initarg :identity-with-one-argument))
-  (:predicate-name short-method-combination-p))
-
 (defun expand-short-defcombin (whole)
   (let* ((type (cadr whole))
          (documentation
-           (getf (cddr whole) :documentation ""))
+           (getf (cddr whole) :documentation))
          (identity-with-one-arg
            (getf (cddr whole) :identity-with-one-argument nil))
          (operator