sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Declare variable special even if it is given no value.

Browse source
This commit is contained in:
jjgarcia 2001-07-23 07:54:35 +00:00
parent 8563a1fc1c
commit 4ac52f9948
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmptop.lsp
View file

@ -639,13 +639,13 @@
(defun t1defvar (args &aux form (doc nil) (name (car args)))
(when *compile-time-too* (cmp-eval `(defvar ,@args)))
(setq *non-package-operation* nil)
(push name *global-vars*)
(if (endp (cdr args))
(list 'DECLARE (add-symbol name))
(progn
(unless (endp (cddr args)) (setq doc (add-object (third args))))
(setq form (c1expr (second args)))
(add-load-time-sharp-comma)
(push name *global-vars*)
(list 'DEFVAR (make-var :name name :kind 'SPECIAL
:loc (add-symbol name)) form doc))))