Changeset 7724


Ignore:
Timestamp:
Nov 25, 2007, 2:26:40 AM (12 years ago)
Author:
gb
Message:

New class-cell stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-pred.lisp

    r7624 r7724  
    2828(defun find-class-cell (type create?)
    2929  (declare (ignore create?))
    30   (cons type nil))
     30  (make-class-cell type))
    3131
    3232(defun builtin-typep (form cell)
    33   (typep form (car cell)))
     33  (typep form (class-cell-name cell)))
    3434
    3535(defun class-cell-typep (arg class-cell)
    36   (typep arg (car class-cell)))
     36  (typep arg (class-cell-name class-cell)))
    3737
    3838(defun class-cell-find-class (class-cell errorp)
    3939  (declare (ignore errorp)) ; AARGH can't be right
    4040  ;(dbg-paws #x100)
    41   (let ((class (cdr class-cell)))
     41  (let ((class (and class-cell (class-cell-class class-cell))))
    4242    (or class
    4343        (if  (fboundp 'find-class)
    44           (find-class (car class-cell) nil)))))
     44          (find-class (class-cell-name class-cell) nil)))))
    4545
    4646(defun %require-type-builtin (form foo)
Note: See TracChangeset for help on using the changeset viewer.