/[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.26 by pmai, Thu Sep 19 17:53:59 2002 UTC revision 1.27 by pmai, Wed Oct 9 15:32:28 2002 UTC
# Line 28  Line 28 
28  (in-package :pcl)  (in-package :pcl)
29    
30  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
31      ;; Probably have to add 'compile' if you use defconstructor.
32      (defvar *defclass-times*   '(load eval))
33    
34  (defvar *defclass-times*   '(load eval))        ;Probably have to change this    (defvar *defmethod-times*  '(load eval))
35                                                  ;if you use defconstructor.    (defvar *defgeneric-times* '(load eval))
 (defvar *defmethod-times*  '(load eval))  
 (defvar *defgeneric-times* '(load eval))  
36    
 ; defvar is now actually in macros  
 ;(defvar *boot-state* ())                       ;NIL  
                                                 ;EARLY  
                                                 ;BRAID  
                                                 ;COMPLETE  
 (defvar *fegf-started-p* nil)  
   
   
 )  
   
 (eval-when (:load-toplevel :execute)  
37    (when (eq *boot-state* 'complete)    (when (eq *boot-state* 'complete)
38      (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~%~
39              has already been loaded.  This doesn't work, you will have to~%~              has already been loaded.  This doesn't work, you will have to~%~
40              get a fresh lisp (reboot) and then load PCL."))              get a fresh lisp (reboot) and then load PCL."))
41    
42    (when *boot-state*    (when *boot-state*
43      (cerror "Try loading (or compiling) PCL anyways."      (cerror "Try loading (or compiling) PCL anyways."
44              "Trying to load (or compile) PCL in an environment in which it~%~              "Trying to load (or compile) PCL in an environment in which it~%~
45               has already been partially loaded.  This may not work, you may~%~               has already been partially loaded.  This may not work, you may~%~
46               need to get a fresh lisp (reboot) and then load PCL."))               need to get a fresh lisp (reboot) and then load PCL.")))
   )  
47    
48    
49    

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5