mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

The documentation of a condition is now stored in the class

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-10 22:41:36 +01:00
parent 5537d0c661
commit 7a39f8eac6
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clos/conditions.lsp
View file

@ -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)