Ignore:
Timestamp:
Jul 7, 2008, 7:24:57 PM (11 years ago)
Author:
gz
Message:

Move more definitions into lispequ. To bootstrap, (load "ccl:library;lispequ.lisp") before recompiling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r9879 r9917  
    4040(defun %class-name (class)
    4141  (%class.name class))
     42
     43(defun %class-info (class)
     44  (%class.info class))
     45
     46
     47(defun %class-kernel-p (class)
     48  (car (%class-info class)))
     49
     50(defun (setf %class-kernel-p) (new class)
     51  (setf (car (%class-info class)) new))
     52
     53(defun %class-proper-name (class)
     54  (cdr (%class-info class)))
     55
     56(defun (setf %class-proper-name) (new class)
     57  (setf (cdr (%class-info class)) new))
     58
    4259
    4360(defun %class-own-wrapper (class)
     
    12471264(defun check-setf-find-class-protected-class (old-class new-class name)
    12481265  (when (and (standard-instance-p old-class)
    1249              (%class.kernel-p old-class)
     1266             (%class-kernel-p old-class)
    12501267             *warn-if-redefine-kernel*
    12511268             ;; EQL might be necessary on foreign classes
     
    12551272marked as being a critical part of the system; an attempt is being made
    12561273to replace that class with ~s" name old-class new-class)
    1257     (setf (%class.kernel-p old-class) nil)))
     1274    (setf (%class-kernel-p old-class) nil)))
    12581275
    12591276
Note: See TracChangeset for help on using the changeset viewer.