Changeset 14760 for trunk/source/level-1


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-1/sysutils.lisp

    r14756 r14760  
    323323    (%kernel-restart $xwrongtype arg (car type-cell))))
    324324
    325 (defun require-structure-type (arg token)
    326   (or(and (= (the fixnum (typecode arg)) target::subtag-struct)
    327            (dolist (x (%svref arg 0))
    328              (declare (optimize (speed 3) (safety 0)))
    329              (when (eq x token) (return arg))))
    330     (%kernel-restart $xwrongtype arg (if (typep token 'class-cell) (class-cell-name token) token))))
     325
    331326
    332327;;; In lieu of an inverted mapping, at least try to find cases involving
Note: See TracChangeset for help on using the changeset viewer.