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

Repeated eval-when statements made defstruct forms execute twice in the :compile-toplevel environment.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-09 23:03:01 +01:00
parent 991bc3ab78
commit 358233204a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/defstruct.lsp
View file

@ -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)