Ignore:
Timestamp:
Feb 26, 2005, 3:18:43 AM (14 years ago)
Author:
gb
Message:

Add UVECTORP & IVECTORP; make them type predicates.

File:
1 edited

Legend:

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

    r929 r964  
    184184
    185185(setf (type-predicate 'gvector) 'gvectorp)
     186
     187(defun ivectorp (x)
     188  (= (the fixnum (logand (the fixnum (typecode x)) ppc32::fulltagmask))
     189     ppc32::fulltag-immheader))
     190
     191(setf (type-predicate 'ivector) 'ivectorp)
    186192
    187193(defun miscobjp (x)
     
    488494        (report-bad-arg x 'sequence))))
    489495
    490 ;; I'm really skeptical about anything that calls UVECTORP
    491 ;; (in that I'm afraid that it thinks that it knows what's
    492 ;; a "uvector" and what isn't.
    493496(defun uvectorp (x)
    494497  (= (the fixnum (lisptag x)) ppc32::tag-misc))
     498
     499(setf (type-predicate 'uvector) 'uvectorp)
Note: See TracChangeset for help on using the changeset viewer.