Changeset 15122


Ignore:
Timestamp:
Dec 9, 2011, 7:30:09 AM (8 years ago)
Author:
gb
Message:

SPECIAL-OPERATOR: conditionalize for ARM (pseudofunctions vs
simple-vectors.)

File:
1 edited

Legend:

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

    r15093 r15122  
    218218  "If the symbol globally names a special form, return T, otherwise NIL."
    219219  (let ((def (fboundp symbol)))
    220     (and (typep def 'simple-vector)
    221          (not (lfunp (svref def 1))))))
     220    (and #-arm-target (typep def 'simple-vector)
     221         #+arm-target (= (typecode def) arm::subtag-pseudofunction)
     222         (not (lfunp #-arm-target (svref def 1)
     223                     #+arm-target (uvref def 2))))))
    222224
    223225(defun special-form-p (x) (special-operator-p x))
Note: See TracChangeset for help on using the changeset viewer.