From 7a39f8eac6e8c46cdfbddd387c4318cb3ecee2df Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 10 Dec 2011 22:41:36 +0100 Subject: [PATCH] The documentation of a condition is now stored in the class --- src/clos/conditions.lsp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index 45e7b97e1..c20fd9e98 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -236,9 +236,8 @@ (default-initargs nil)) (dolist (option options) (case (car option) - (:DEFAULT-INITARGS (push option default-initargs)) + ((:DEFAULT-INITARGS :DOCUMENTATION) (push option default-initargs)) (:REPORT (setq report-function (cadr option))) - (:DOCUMENTATION (setq documentation (cadr option))) (otherwise (cerror "Ignore this DEFINE-CONDITION option." "Invalid DEFINE-CONDITION option: ~S" option)))) `(PROGN @@ -250,9 +249,6 @@ ,(if (stringp report-function) `(write-string ,report-function stream) `(,report-function x stream)))))) - ,@(when documentation - `((EVAL-WHEN (COMPILE LOAD EVAL) - (SETF (DOCUMENTATION ',name 'TYPE) ',documentation)))) ',NAME))) (defun find-subclasses-of-type (type class)