mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 21:02:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

New function GLOBAL-VAR-P

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-11 14:18:04 +02:00
parent 61d4c99781
commit f07de591f3
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpvar.lsp
View file

@ -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))