Ignore:
Timestamp:
Oct 18, 2008, 7:40:04 PM (12 years ago)
Author:
gz
Message:

Another batch of changes from the trunk, some bug fixes, optimizations, as well as formatting unification

File:
1 edited

Legend:

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

    r11103 r11164  
    10011001      (return-from nx1-if (nx1-form `(progn ,test nil)))
    10021002      (psetq test `(not ,test) true false false true)))
    1003   (let* ((test-form (nx1-form test))
    1004          ;; Once hit a conditional, no more duplicate warnings
    1005          (*compiler-warn-on-duplicate-definitions* nil)
    1006          (true-form (nx1-form true))
    1007          (false-form (nx1-form false)))
    1008     (make-acode (%nx1-operator if) test-form true-form false-form)))
     1003  (let ((test-form (nx1-form test))
     1004        ;; Once hit a conditional, no more duplicate warnings
     1005        (*compiler-warn-on-duplicate-definitions* nil))
     1006    (make-acode (%nx1-operator if) test-form (nx1-form true) (nx1-form false))))
    10091007
    10101008(defnx1 nx1-%debug-trap dbg (&optional arg)
     
    11821180           (consp (%cdr def))
    11831181           (or (symbolp (%cadr def)) (setf-function-name-p (%cadr def))))
    1184     (note-function-info (%cadr def)(caddr def) env))
     1182    (note-function-info (%cadr def) (caddr def) env))
    11851183  (nx1-treat-as-call w))
    11861184
Note: See TracChangeset for help on using the changeset viewer.