Changeset 9354


Ignore:
Timestamp:
May 4, 2008, 11:02:13 PM (11 years ago)
Author:
gz
Message:

Run nx1-%defun regardless of safety (ticket #295)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r9254 r9354  
    18161816        (if (and (setq special (gethash sym *nx1-alphatizers*))
    18171817                 (or (not (functionp (fboundp sym)))
    1818                      (memq sym '(apply funcall)) ;; see bug #285.
     1818                     (memq sym '(apply funcall ;; see bug #285
     1819                                 %defun        ;; see bug #295
     1820                                 ))
    18191821                     (< (safety-optimize-quantity env) 3))
    18201822                 ;(not (nx-lexical-finfo sym env))
Note: See TracChangeset for help on using the changeset viewer.