X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=2d27fa2485208a562c5c4b6d44a8025310722cca;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=3cb5de25e88701647e3bec351826b25b63e90bfc;hpb=304c44d731bea3b9ce3c47d864d90eac92ba604e;p=sbcl.git

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 3cb5de2..2d27fa2 100644
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -559,6 +559,7 @@
 (defun find-template-result-types (call template rtypes)
   (declare (type combination call)
 	   (type template template) (list rtypes))
+  (declare (ignore template))
   (let* ((dtype (node-derived-type call))
 	 (type dtype)
 	 (types (mapcar #'primitive-type
@@ -857,6 +858,7 @@
 ;;;      lvar LOC.
 ;;;   -- We don't know what it is.
 (defun fun-lvar-tn (node block lvar)
+  (declare (ignore node block))
   (declare (type lvar lvar))
   (let ((2lvar (lvar-info lvar)))
     (if (eq (ir2-lvar-kind 2lvar) :delayed)
@@ -1639,13 +1641,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)