Changeset 6561 for branches

Timestamp:

May 16, 2007, 2:54:55 AM (18 years ago)

Author:

Gary Byers

Message:

close some parens

File:

• branches/tfe/ccl/compiler/tfe/tgen.lisp (modified) (3 diffs)

branches/tfe/ccl/compiler/tfe/tgen.lisp

@@ -3 +3 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "NXENV")
-  (require "TATTR")
-  (require "TNODE")
-  (require "GLOBALFN")
-  (require "TPRIM")
-  (require "TENV"))
+  (require "TATTR" "ccl:compiler;tfe;tattr")
+  (require "TNODE" "ccl:compiler;tfe;tnode")
+  (require "GLOBALFN" "ccl:compiler;tfe;globalfn")
+  (require "TPRIM" "ccl:compiler;tfe;tprim")
+  (require "TENV" "ccl:compiler;tfe;tenv"))
 
 (defun tgen-warn (condition &rest args)
@@ -434 +434 @@
 (deftgen tgen-function function (tconn arg &environment env)
   (multiple-value-bind (valid name) (valid-function-name-p arg)
-    (if (valid-function-name-p arg)
+    (if valid
       (multiple-value-bind (info local) (function-information arg env)
         (case info
@@ -441 +441 @@
           (t
            (if local
+             (setf (tconn-child tconn)
+                   (make-tlocalfuncref :parent tconn :leaf local))
+             (setf (tconn-child tconn)
+                   (make-tgfuncnameref :parent tconn :leaf name)))))))))
+