From 358233204aeaeba4f86730ca08094a3d9496563f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 9 Feb 2012 23:03:01 +0100 Subject: [PATCH] Repeated eval-when statements made defstruct forms execute twice in the :compile-toplevel environment. --- src/lsp/defstruct.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp index 3104f5d66..f2cc0c286 100644 --- a/src/lsp/defstruct.lsp +++ b/src/lsp/defstruct.lsp @@ -497,7 +497,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)." ;; Check the print-function. (when (and print-function type) - (error "An print function is supplied to a typed structure.")) + (error "A print function is supplied to a typed structure.")) ;; ;; The constructors rely on knowing the structure class. For toplevel @@ -514,7 +514,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)." (make-constructor name constructor type named slot-descriptions)) constructors))) - `(eval-when (:compile-toplevel :load-toplevel :execute) + `(progn (eval-when (:compile-toplevel :load-toplevel) ,core ,(si::register-with-pde whole)