X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffun-info-funs.lisp;h=600e7355b93f7694e0651d223649467f5940d00b;hb=daf0a41203bc60a9c81c8052123a97ef328e23ec;hp=6c7c63d1bf41ef2af1f88b6fb0e1c0326f5994c2;hpb=073501ed49414d9638cb41c05fb80627529f796d;p=sbcl.git

diff --git a/src/compiler/fun-info-funs.lisp b/src/compiler/fun-info-funs.lisp
index 6c7c63d..600e735 100644
--- a/src/compiler/fun-info-funs.lisp
+++ b/src/compiler/fun-info-funs.lisp
@@ -9,28 +9,34 @@
 (defun %def-reffer (name offset lowtag)
   (let ((fun-info (fun-info-or-lose name)))
     (setf (fun-info-ir2-convert fun-info)
-	  (lambda (node block)
-	    (ir2-convert-reffer node block name offset lowtag))))
+          (lambda (node block)
+            (ir2-convert-reffer node block name offset lowtag))))
   name)
 
 (defun %def-setter (name offset lowtag)
   (let ((fun-info (fun-info-or-lose name)))
     (setf (fun-info-ir2-convert fun-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)))))
+          (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)))))
   name)
 
 (defun %def-alloc (name words variable-length-p header lowtag inits)
   (let ((info (fun-info-or-lose name)))
     (setf (fun-info-ir2-convert info)
-	  (if variable-length-p
-	      (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)))))
+          (if variable-length-p
+              (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)
+
+(defun %def-casser (name offset lowtag)
+  (let ((fun-info (fun-info-or-lose name)))
+    (setf (fun-info-ir2-convert fun-info)
+          (lambda (node block)
+            (ir2-convert-casser node block name offset lowtag)))))