From 8a412954bb97515909f3c3ab892a5977fe3c47c6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 7 May 1990 10:56:40 +0000
Subject: [PATCH] Fixed broken type declaration.

---
 compiler/ir2tran.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index 7b1ed7231..ebb3e321b 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.12 1990/04/30 10:25:01 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.13 1990/05/07 10:56:40 ram Exp $
 ;;;
 ;;;    This file contains the virtual machine independent parts of the code
 ;;; which does the actual translation of nodes to VOPs.
@@ -194,7 +194,7 @@
 ;;;
 (defun ir2-convert-closure (node block leaf res)
   (declare (type ref node) (type ir2-block block)
-	   (type clambda leaf) (type tn res))
+	   (type functional leaf) (type tn res))
   (let ((entry (make-load-time-constant-tn :entry leaf)))
     (cond ((and (lambda-p leaf)
 		(environment-closure (lambda-environment leaf)))
-- 
GitLab