From 494a375aed4070ce33b9679c1c27fef6407dd276 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 30 Dec 2009 21:51:44 +0100 Subject: [PATCH] Remove unused function --- src/new-cmp/cmpvar.lsp | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/new-cmp/cmpvar.lsp b/src/new-cmp/cmpvar.lsp index 3e619b551..75d33b169 100644 --- a/src/new-cmp/cmpvar.lsp +++ b/src/new-cmp/cmpvar.lsp @@ -115,13 +115,6 @@ ;;; the kind field GLOBAL. Thus a reference to GLOBAL may need to make sure ;;; that the variable has a value. -;;; Bootstrap problem: proclaim needs this function: -(defun sch-global (name) - (dolist (var *undefined-vars* nil) - (declare (type var var)) - (when (eq (var-name var) name) - (return-from sch-global var)))) - ;;; ;;; Check if a variable has been declared as a special variable with a global ;;; value.