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

Using eval-when makes this work when cross-compiling.

Browse source
This commit is contained in:
jjgarcia 2006-01-16 13:19:47 +00:00
parent 20d4765883
commit 98a3cc7ac9
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/conditions.lsp
View file

@ -491,7 +491,7 @@ returns with NIL."
;;; only created when the error is signaled.
;;;
#+ecl-min
(eval-when (compile eval)
(defconstant +all-conditions+ (mapcar #'cdr '(
(define-condition warning () ())
@ -640,6 +640,7 @@ returns with NIL."
(format-error-control-string condition)
(format-error-offset condition)))))
)))
); nehw-lave
(dolist (expression '#.+all-conditions+)
(eval (list* 'define-condition expression)))