projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10:
[sbcl.git]
/
src
/
code
/
type-class.lisp
diff --git
a/src/code/type-class.lisp
b/src/code/type-class.lisp
index
6567e42
..
56e44d9
100644
(file)
--- 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)
(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)
(let ((name (symbolicate CLASS "-" method "-TYPE-METHOD")))
`(progn
(defun ,name ,lambda-list ,@body)