[Openmcl-cvs-notifications] r9244 - /trunk/source/compiler/nx0.lisp

[gz at clozure.com]

Author: gz
Date: Wed Apr 23 16:43:57 2008
New Revision: 9244

Log:
Propagate r9239 to trunk

Modified:
    trunk/source/compiler/nx0.lisp

Modified: trunk/source/compiler/nx0.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/compiler/nx0.lisp (original)
+++ trunk/source/compiler/nx0.lisp Wed Apr 23 16:43:57 2008
@@ -1815,6 +1815,7 @@
       (let* ((*nx-sfname* sym) special)
         (if (and (setq special (gethash sym *nx1-alphatizers*))
                  (or (not (functionp (fboundp sym)))
+                     (memq sym '(apply funcall)) ;; see bug #285.
                      (< (safety-optimize-quantity env) 3))
                  ;(not (nx-lexical-finfo sym env))
                  (not (nx-declared-notinline-p sym *nx-lexical-environment=
*)))