/[cmucl]/src/code/defstruct.lisp
ViewVC logotype

Diff of /src/code/defstruct.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by wlott, Tue Dec 15 16:08:46 1992 UTC revision 1.37 by wlott, Tue Dec 15 19:45:07 1992 UTC
# Line 22  Line 22 
22  (in-package :c)  (in-package :c)
23    
24  ;;; Always compile safe.  This code isn't very careful about protecting itself.  ;;; Always compile safe.  This code isn't very careful about protecting itself.
25  ;;;  ;;; Note: we only do this at compile time because defstruct gets cold-loaded
26  (declaim (optimize (safety 1)))  ;;; before enough stuff to handle the declaim has been set up.
27    (eval-when (compile)
28      (declaim (optimize (safety 1))))
29    
30    
31  ;;;; Structure frobbing primitives.  ;;;; Structure frobbing primitives.

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

  ViewVC Help
Powered by ViewVC 1.1.5