Changeset 10996


Ignore:
Timestamp:
Oct 6, 2008, 6:49:10 PM (11 years ago)
Author:
gz
Message:

Do not issue dup definition warnings for defuns inside conditionals, as in (unless (fboundp 'foo) (defun foo ...))

File:
1 edited

Legend:

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

    r9911 r10996  
    982982      (return-from nx1-if (nx1-form `(progn ,test nil)))
    983983      (psetq test `(not ,test) true false false true)))
    984   (make-acode (%nx1-operator if)  (nx1-form test) (nx1-form true) (nx1-form false)))
     984  (let* ((test-form (nx1-form test))
     985         ;; Once hit a conditional, no more duplicate warnings
     986         (*compiler-warn-on-duplicate-definitions* nil)
     987         (true-form (nx1-form true))
     988         (false-form (nx1-form false)))
     989    (make-acode (%nx1-operator if) test-form true-form false-form)))
    985990
    986991(defnx1 nx1-%debug-trap dbg (&optional arg)
Note: See TracChangeset for help on using the changeset viewer.