Ignore:
Timestamp:
Jun 8, 2010, 1:14:53 AM (11 years ago)
Author:
gb
Message:

Lots of (mostly small) changes.

File:
1 edited

Legend:

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

    r13067 r13789  
    9090      (let* ((typecode (typecode x)))
    9191        (declare (fixnum typecode))
    92         #+(or ppc32-target x8632-target)
     92        #+(or ppc32-target x8632-target arm-target)
    9393        (and (>= typecode target::min-numeric-subtag)
    9494             (<= typecode target::max-rational-subtag))
     
    115115  (let* ((typecode (typecode x)))
    116116    (declare (fixnum typecode))
    117     #+(or ppc32-target x8632-target)
     117    #+(or ppc32-target x8632-target arm-target)
    118118    (or (= typecode target::tag-fixnum)
    119119        (and (>= typecode target::min-numeric-subtag)
     
    144144  (let* ((typecode (typecode x)))
    145145    (declare (fixnum typecode))
    146     #+(or ppc32-target x8632-target)
     146    #+(or ppc32-target x8632-target arm-target)
    147147    (or (= typecode target::tag-fixnum)
    148148        (and (>= typecode target::min-numeric-subtag)
     
    223223;;; things that it wasn't true of on the 68K.
    224224(defun gvectorp (x)
    225   #+(or ppc32-target x8632-target)
     225  #+(or ppc32-target x8632-target arm-target)
    226226  (= (the fixnum (logand (the fixnum (typecode x)) target::fulltagmask)) target::fulltag-nodeheader)
    227227  #+ppc64-target
     
    238238
    239239(defun ivectorp (x)
    240   #+(or ppc32-target x8632-target)
     240  #+(or ppc32-target x8632-target arm-target)
    241241  (= (the fixnum (logand (the fixnum (typecode x)) target::fulltagmask))
    242242     target::fulltag-immheader)
     
    254254
    255255(defun miscobjp (x)
    256   #+(or ppc32-target x8632-target x8664-target)
     256  #+(or ppc32-target x8632-target x8664-target arm-target)
    257257  (= (the fixnum (lisptag x)) target::tag-misc)
    258258  #+ppc64-target
     
    10531053(defun symbolp (thing)
    10541054  "Return true if OBJECT is a SYMBOL, and NIL otherwise."
    1055   #+(or ppc32-target x8632-target)
     1055  #+(or ppc32-target x8632-target arm-target)
    10561056  (if thing
    10571057    (= (the fixnum (typecode thing)) target::subtag-symbol)
Note: See TracChangeset for help on using the changeset viewer.