/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

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

revision 1.23 by pmai, Mon Aug 26 02:23:12 2002 UTC revision 1.24 by pmai, Tue Aug 27 19:01:38 2002 UTC
# Line 27  Line 27 
27    
28  (in-package :pcl)  (in-package :pcl)
29    
30  (eval-when (compile load eval)  (eval-when (:compile-toplevel :load-toplevel :execute)
31    
32  (defvar *defclass-times*   '(load eval))        ;Probably have to change this  (defvar *defclass-times*   '(load eval))        ;Probably have to change this
33                                                  ;if you use defconstructor.                                                  ;if you use defconstructor.
# Line 44  Line 44 
44    
45  )  )
46    
47  (eval-when (load eval)  (eval-when (:load-toplevel :execute)
48    (when (eq *boot-state* 'complete)    (when (eq *boot-state* 'complete)
49      (error "Trying to load (or compile) PCL in an environment in which it~%~      (error "Trying to load (or compile) PCL in an environment in which it~%~
50              has already been loaded.  This doesn't work, you will have to~%~              has already been loaded.  This doesn't work, you will have to~%~

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5