Changeset 14100


Ignore:
Timestamp:
Aug 1, 2010, 3:40:24 PM (9 years ago)
Author:
gb
Message:

Finish bootstrapping STRUCTURE-TYPEP. (Started 2 years ago.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/l0-pred.lisp

    r14062 r14100  
    988988(defun structure-typep (thing type)
    989989  (if (= (the fixnum (typecode thing)) target::subtag-struct)
    990     (let* ((types (%svref thing 0)))
    991       (if (typep type 'symbol)
    992         (dolist (x types)
    993           (when (eq (class-cell-name x) type)
    994             (return t)))
    995         (dolist (x types)
    996           (when (eq x type)
    997             (return t)))))))
     990    (dolist (x (%svref thing 0))
     991      (when (eq x type)
     992        (return t)))))
    998993
    999994
Note: See TracChangeset for help on using the changeset viewer.