0.8.9.46:
[sbcl.git] / src / compiler / ir2tran.lisp
index 3cb5de2..2d27fa2 100644 (file)
 (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
 ;;;      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)
                (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)