X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-macs.lisp;h=b40ddff38112a64c0535cca8569a09b402ed359a;hb=80304981972c91c1b3f3fca75f36dacf1fecf307;hp=6753edd3c8d8c561754ec2e9f3ce7f44054302a3;hpb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;p=sbcl.git

diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index 6753edd..b40ddff 100644
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -129,38 +129,38 @@
 (in-package "SB!C")
 
 (defun %def-reffer (name offset lowtag)
-  (let ((info (function-info-or-lose name)))
-    (setf (function-info-ir2-convert info)
-	  #'(lambda (node block)
-	      (ir2-convert-reffer node block name offset lowtag))))
+  (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)
 
 (defmacro def-reffer (name offset lowtag)
   `(%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))
-	      #'(lambda (node block)
-		  (ir2-convert-setter node block name offset lowtag)))))
+	      (lambda (node block)
+		(ir2-convert-setfer node block name offset lowtag))
+	      (lambda (node block)
+		(ir2-convert-setter node block name offset lowtag)))))
   name)
 
 (defmacro def-setter (name offset lowtag)
   `(%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
-						   lowtag inits))
-	      #'(lambda (node block)
-		  (ir2-convert-fixed-allocation node block name words header
-						lowtag inits)))))
+	      (lambda (node block)
+		(ir2-convert-variable-allocation node block name words header
+						 lowtag inits))
+	      (lambda (node block)
+		(ir2-convert-fixed-allocation node block name words header
+					      lowtag inits)))))
   name)
 
 (defmacro def-alloc (name words var-length header lowtag inits)