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

Diff of /src/pcl/macros.lisp

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

revision 1.6.1.4 by ram, Fri Sep 30 01:01:23 1994 UTC revision 1.6.1.5 by ram, Tue Oct 4 12:51:03 1994 UTC
# Line 463  Line 463 
463    (find-class-predicate-from-cell    (find-class-predicate-from-cell
464     symbol (find-class-cell symbol errorp) errorp))     symbol (find-class-cell symbol errorp) errorp))
465    
466    (defvar *boot-state* nil) ; duplicate defvar to defs.lisp
467    
468  ; Use this definition in any CL implementation supporting  ; Use this definition in any CL implementation supporting
469  ; both define-compiler-macro and load-time-value.  ; both define-compiler-macro and load-time-value.
470  #+cmu ; Note that in CMU, lisp:find-class /= pcl:find-class  #+cmu ; Note that in CMU, lisp:find-class /= pcl:find-class
471  (define-compiler-macro find-class (&whole form  (define-compiler-macro find-class (&whole form
472                                     symbol &optional (errorp t) environment)                                     symbol &optional (errorp t) environment)
473    (declare (ignore environment) (special *boot-state*))    (declare (ignore environment))
474    (if (and (constantp symbol)    (if (and (constantp symbol)
475             (legal-class-name-p (eval symbol))             (legal-class-name-p (eval symbol))
476             (constantp errorp)             (constantp errorp)
# Line 494  Line 496 
496    `(SETF\ PCL\ FIND-CLASS ,new-value ,symbol))    `(SETF\ PCL\ FIND-CLASS ,new-value ,symbol))
497    
498  (defun #-setf SETF\ PCL\ FIND-CLASS #+setf (setf find-class) (new-value symbol)  (defun #-setf SETF\ PCL\ FIND-CLASS #+setf (setf find-class) (new-value symbol)
   (declare (special *boot-state*))  
499    (if (legal-class-name-p symbol)    (if (legal-class-name-p symbol)
500        (let ((cell (find-class-cell symbol)))        (let ((cell (find-class-cell symbol)))
501          (setf (find-class-cell-class cell) new-value)          (setf (find-class-cell-class cell) new-value)

Legend:
Removed from v.1.6.1.4  
changed lines
  Added in v.1.6.1.5

  ViewVC Help
Powered by ViewVC 1.1.5