From 98a3cc7ac9ee58c516a5f5d748da1fb91a69da9e Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 16 Jan 2006 13:19:47 +0000 Subject: [PATCH] Using eval-when makes this work when cross-compiling. --- src/clos/conditions.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index 6dcf1c44a..4a5e67f5d 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -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)))