diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 06931cb067491302af3bd15af89c3084f6b7dfa1..ba72ee00406409fa0ca176db9b97660b90650db7 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.26 1991/11/07 13:20:25 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.27 1991/11/07 17:32:11 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,7 +22,10 @@ ;;; Always compile safe. This code isn't very careful about protecting itself. ;;; -(declaim (optimize (safety 1))) +(eval-when (compile) + (declaim (optimize (safety 1)))) + + ;;;; Structure frobbing primitives.