From b90b647a8c32c4a34f80c9a4a476509ebbcabcee Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 12 Jan 1991 16:11:22 +0000
Subject: [PATCH] Eliminated arg type declaration in FIND-FREE-VARIABLE so that
 a proper error check will be done.

---
 compiler/ir1tran.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 064000717..52520a0ee 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -1601,8 +1601,8 @@
 ;;; the global environment and enter it in *free-variables*.  If the variable
 ;;; is unknown, then we emit a warning.
 ;;;
-(proclaim '(function find-free-variable (symbol) leaf))
 (defun find-free-variable (name)
+  (declare (values leaf))
   (unless (symbolp name)
     (compiler-error "Variable name is not a symbol: ~S." name))
   (or (gethash name *free-variables*)
-- 
GitLab