X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmacros.lisp;h=444960cf641996694e3d8063ce5367b98e7c4ee1;hb=29a9ccc860532b32c566aec095f570e999a9c52c;hp=89b35bbfa141199de7d78cb1f0bde64fc150219d;hpb=a92c91a4fdcdcf1c96b33339c1ef077243183187;p=sbcl.git

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index 89b35bb..444960c 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -547,8 +547,8 @@
 	    ,(parse-deftransform lambda-list body n-args
 				 `(return-from ,name nil))))
 	,@(when (consp what)
-	    `((setf (,(symbolicate "FUNCTION-INFO-" (second what))
-		     (function-info-or-lose ',(first what)))
+	    `((setf (,(symbolicate "FUN-INFO-" (second what))
+		     (fun-info-or-lose ',(first what)))
 		    #',name)))))))
 
 ;;;; IR groveling macros
@@ -695,7 +695,7 @@
 ;;; functions, etc. Also establish condition handlers.
 (defmacro with-ir1-namespace (&body forms)
   `(let ((*free-variables* (make-hash-table :test 'eq))
-	 (*free-functions* (make-hash-table :test 'equal))
+	 (*free-funs* (make-hash-table :test 'equal))
 	 (*constants* (make-hash-table :test 'equal))
 	 (*source-paths* (make-hash-table :test 'eq)))
      (handler-bind ((compiler-error #'compiler-error-handler)