mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix typo

Browse source
This commit is contained in:
jjgarcia 2003-07-15 15:34:43 +00:00
parent d53b2a5768
commit f6ec81ec6e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/conditions.lsp
View file

@ -284,7 +284,7 @@ strings."
`(,report-function x stream))))))
,@(when documentation
`((EVAL-WHEN (COMPILE LOAD EVAL)
(SETF (DOCUMENTATION ',name) ',documentation))))
(SETF (DOCUMENTATION ',name 'TYPE) ',documentation))))
',NAME)))
(defun make-condition (type &rest slot-initializations)