From 4ac52f994885de8efd83e4b0a71a425bc0016b1a Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 23 Jul 2001 07:54:35 +0000 Subject: [PATCH] Declare variable special even if it is given no value. --- src/cmp/cmptop.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index b5ee6c3f1..5c29c773e 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -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))))