From f07de591f34940729e266affd4e3cc37b1dd734c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 11 May 2010 14:18:04 +0200 Subject: [PATCH] New function GLOBAL-VAR-P --- src/cmp/cmpvar.lsp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp index b390c030c..dfe40a85e 100644 --- a/src/cmp/cmpvar.lsp +++ b/src/cmp/cmpvar.lsp @@ -213,6 +213,11 @@ (and (not (member (var-kind var) '(LEXICAL CLOSURE SPECIAL GLOBAL REPLACED))) (var-kind var))) +(defun global-var-p (var) + (let ((kind (var-kind var))) + (or (eq kind 'global) + (eq kind 'special)))) + (defun c2var (vref) (unwind-exit vref)) (defun c2location (loc) (unwind-exit loc))