Changeset 14760


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

Move REQUIRE-STRUCTURE-TYPE to level-0.

Location:
trunk/source
Files:
2 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)
  • 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.