X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=f54563cf66cf956553ed23bb14311986999c97d6;hb=5ef7f500a505f5711b1c76ff8c15f443d4815367;hp=3cb5de25e88701647e3bec351826b25b63e90bfc;hpb=92c1f0df7ab549d69815a0867cc0db8989c75c0b;p=sbcl.git

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 3cb5de2..f54563c 100644
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -1639,13 +1639,14 @@
                (ir2-convert-ref node 2block)))))
 	(combination
 	 (let ((kind (basic-combination-kind node)))
-	   (case kind
+	   (ecase kind
 	     (:local
 	      (ir2-convert-local-call node 2block))
 	     (:full
 	      (ir2-convert-full-call node 2block))
-	     (t
-	      (let ((fun (fun-info-ir2-convert kind)))
+	     (:known
+	      (let* ((info (basic-combination-fun-info node))
+		     (fun (fun-info-ir2-convert info)))
 		(cond (fun
 		       (funcall fun node 2block))
 		      ((eq (basic-combination-info node) :full)