0.pre7.129:

[sbcl.git] / src / compiler / generic / vm-macs.lisp

diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index 07dd18f..b40ddff 100644 (file)
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -129,8 +129,8 @@
 (in-package "SB!C")
 
 (defun %def-reffer (name offset lowtag)
-  (let ((info (function-info-or-lose name)))
-    (setf (function-info-ir2-convert info)
+  (let ((info (fun-info-or-lose name)))
+    (setf (fun-info-ir2-convert info)
          (lambda (node block)
            (ir2-convert-reffer node block name offset lowtag))))
   name)
@@ -139,8 +139,8 @@
   `(%def-reffer ',name ,offset ,lowtag))
 
 (defun %def-setter (name offset lowtag)
-  (let ((info (function-info-or-lose name)))
-    (setf (function-info-ir2-convert info)
+  (let ((info (fun-info-or-lose name)))
+    (setf (fun-info-ir2-convert info)
          (if (listp name)
              (lambda (node block)
                (ir2-convert-setfer node block name offset lowtag))
@@ -152,8 +152,8 @@
   `(%def-setter ',name ,offset ,lowtag))
 
 (defun %def-alloc (name words var-length header lowtag inits)
-  (let ((info (function-info-or-lose name)))
-    (setf (function-info-ir2-convert info)
+  (let ((info (fun-info-or-lose name)))
+    (setf (fun-info-ir2-convert info)
          (if var-length
              (lambda (node block)
                (ir2-convert-variable-allocation node block name words header