X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-class.lisp;h=56e44d94a137ca120c10bfffb2011a81b43f12a1;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=6567e42b8c26e3da9c74d9f34c9555e0f89962f3;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/code/type-class.lisp b/src/code/type-class.lisp
index 6567e42..56e44d9 100644
--- a/src/code/type-class.lisp
+++ b/src/code/type-class.lisp
@@ -144,8 +144,6 @@
 
 (defmacro !define-type-method ((class method &rest more-methods)
 			      lambda-list &body body)
-  #!+sb-doc
-  "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
   (let ((name (symbolicate CLASS "-" method "-TYPE-METHOD")))
     `(progn
        (defun ,name ,lambda-list ,@body)