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

Bug in registration of special variables at compilation time

Browse source
This commit is contained in:
jjgarcia 2005-05-10 14:20:33 +00:00
parent b0ec4469d2
commit 205ad5cf76
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmpvar.lsp
View file

@ -99,7 +99,7 @@
;;; value.
(defun check-global (name)
(member name *global-vars* :test #'eq))
(member name *global-vars* :test #'eq :key #'var-name))
;;;
;;; Check if the symbol has a symbol macro
@ -301,9 +301,11 @@
(mapc #'si::register-global globals))
(defun si::register-global (name)
(push (c1make-global-variable name :kind 'GLOBAL
:type (or (get-sysprop name 'CMP-TYPE) 'T))
*vars*))
(unless (check-global name)
(push (c1make-global-variable name :kind 'GLOBAL
:type (or (get-sysprop name 'CMP-TYPE) 'T))
*global-vars*))
(values))
(defun c1setq (args)
(let ((l (length args)))