X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffun-info-funs.lisp;h=600e7355b93f7694e0651d223649467f5940d00b;hb=9cafc84b9f5a885d622db5909d5bc8e2b87f4cd5;hp=a5b6290ddddc760f5cc83adf268c50d6b3f37ae9;hpb=c2431e2d0d0222a3cf20cfdfa48201bdcc65cd76;p=sbcl.git

diff --git a/src/compiler/fun-info-funs.lisp b/src/compiler/fun-info-funs.lisp
index a5b6290..600e735 100644
--- a/src/compiler/fun-info-funs.lisp
+++ b/src/compiler/fun-info-funs.lisp
@@ -34,3 +34,9 @@
                 (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)))))