Changeset 9353


Ignore:
Timestamp:
May 4, 2008, 10:59:31 PM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r9340 r9353  
    19781978        (if (and (setq special (gethash sym *nx1-alphatizers*))
    19791979                 (or (not (functionp (fboundp sym)))
    1980                      (memq sym '(apply funcall)) ;; see bug #285.
     1980                     (memq sym '(apply funcall ;; see bug #285
     1981                                 %defun        ;; see bug #295
     1982                                 ))
    19811983                     (< (safety-optimize-quantity env) 3))
    19821984                 ;(not (nx-lexical-finfo sym env))
Note: See TracChangeset for help on using the changeset viewer.