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

Fix macroexpander for define-condition.

Browse source
This commit is contained in:
jjgarcia 2002-12-14 16:57:11 +00:00
parent c9fb52f320
commit 22280e7f6c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/conditions.lsp
View file

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