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