/[cmucl]/src/tools/pclcom.lisp
ViewVC logotype

Diff of /src/tools/pclcom.lisp

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

revision 1.20 by dtc, Tue Jun 6 10:00:15 2000 UTC revision 1.21 by dtc, Thu Jun 29 07:52:06 2000 UTC
# Line 18  Line 18 
18    ;; bootstrapping.    ;; bootstrapping.
19    (setf (compiler-macro-function 'make-instance) nil)    (setf (compiler-macro-function 'make-instance) nil)
20    ;;    ;;
21      ;; Blow away other compiler-macros exported from Lisp so that bootstrapping
22      ;; doesn't get confused.
23      (setf (compiler-macro-function 'slot-value) nil)
24      (setf (compiler-macro-function 'slot-boundp) nil)
25      ;;
26    ;; Undefine all generic functions exported from Lisp so that bootstrapping    ;; Undefine all generic functions exported from Lisp so that bootstrapping
27    ;; doesn't get confused.    ;; doesn't get confused.
28    (let ((class (find-class 'generic-function nil)))    (let ((class (find-class 'generic-function nil)))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5