[Openmcl-cvs-notifications] r15122 - /trunk/source/level-0/l0-def.lisp

[gb at clozure.com]

Author: gb
Date: Fri Dec  9 01:30:09 2011
New Revision: 15122

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

Modified:
    trunk/source/level-0/l0-def.lisp

Modified: trunk/source/level-0/l0-def.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-def.lisp (original)
+++ trunk/source/level-0/l0-def.lisp Fri Dec  9 01:30:09 2011
@@ -217,8 +217,10 @@
 (defun special-operator-p (symbol)
   "If the symbol globally names a special form, return T, otherwise NIL."
   (let ((def (fboundp symbol)))
-    (and (typep def 'simple-vector)
-         (not (lfunp (svref def 1))))))
+    (and #-arm-target (typep def 'simple-vector)
+         #+arm-target (=3D (typecode def) arm::subtag-pseudofunction)
+         (not (lfunp #-arm-target (svref def 1)
+                     #+arm-target (uvref def 2))))))
 =

 (defun special-form-p (x) (special-operator-p x))
 =