Ignore:
Timestamp:
Apr 29, 2011, 11:50:15 PM (8 years ago)
Author:
gb
Message:

Move REQUIRE-STRUCTURE-TYPE to level-0.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-pred.lisp

    r14120 r14760  
    992992        (return t)))))
    993993
    994 
     994(defun require-structure-type (arg token)
     995  (or(and (= (the fixnum (typecode arg)) target::subtag-struct)
     996           (dolist (x (%svref arg 0))
     997             (declare (optimize (speed 3) (safety 0)))
     998             (when (eq x token) (return arg))))
     999    (%kernel-restart $xwrongtype arg (if (typep token 'class-cell) (class-cell-name token) token))))
    9951000
    9961001(defun istruct-typep (thing type)
Note: See TracChangeset for help on using the changeset viewer.