Changeset 6561 for branches/tfe


Ignore:
Timestamp:
May 16, 2007, 9:54:55 AM (13 years ago)
Author:
gb
Message:

close some parens

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/tfe/ccl/compiler/tfe/tgen.lisp

    r6551 r6561  
    33(eval-when (:compile-toplevel :load-toplevel :execute)
    44  (require "NXENV")
    5   (require "TATTR")
    6   (require "TNODE")
    7   (require "GLOBALFN")
    8   (require "TPRIM")
    9   (require "TENV"))
     5  (require "TATTR" "ccl:compiler;tfe;tattr")
     6  (require "TNODE" "ccl:compiler;tfe;tnode")
     7  (require "GLOBALFN" "ccl:compiler;tfe;globalfn")
     8  (require "TPRIM" "ccl:compiler;tfe;tprim")
     9  (require "TENV" "ccl:compiler;tfe;tenv"))
    1010
    1111(defun tgen-warn (condition &rest args)
     
    434434(deftgen tgen-function function (tconn arg &environment env)
    435435  (multiple-value-bind (valid name) (valid-function-name-p arg)
    436     (if (valid-function-name-p arg)
     436    (if valid
    437437      (multiple-value-bind (info local) (function-information arg env)
    438438        (case info
     
    441441          (t
    442442           (if local
     443             (setf (tconn-child tconn)
     444                   (make-tlocalfuncref :parent tconn :leaf local))
     445             (setf (tconn-child tconn)
     446                   (make-tgfuncnameref :parent tconn :leaf name)))))))))
     447     
    443448             
    444449
Note: See TracChangeset for help on using the changeset viewer.