mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 22:12:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: be more strict with symbol-macrolet

Browse source 
The ansi standard specifies that declaring symbols bound with
symbol-macrolet to be special or binding symbols that are defined as
global variables must signal a program-error. Previously, we simply
ignored this issues.

Also fix an issue with cmp-env-search-variables which would wrongly
return variables when searching for symbol macros. This allows us to
remove another check in symbol-macro-declaration-p.
This commit is contained in:
Marius Gerbershagen 2021-03-11 20:46:27 +01:00
parent 8428d6a35a
commit e466823ac6
2 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/cmp/cmpenv-api.lsp
View file

@ -110,6 +110,8 @@ the closure in let/flet forms for variables/functions it closes over."
env)
(defun cmp-env-declare-special (name &optional (env *cmp-env*))
(when (cmp-env-search-symbol-macro name env)
(cmperr "Symbol ~A cannot be declared special and appear in a symbol-macrolet." name))
(cmp-env-register-var (c::c1make-global-variable name :warn nil :kind 'SPECIAL)
env nil)
env)
@ -145,12 +147,13 @@ the closure in let/flet forms for variables/functions it closes over."
env)
(defun cmp-env-register-symbol-macro (name form &optional (env *cmp-env*))
(push (list name 'si::symbol-macro
#'(lambda (whole env) (declare (ignore env whole)) form))
(cmp-env-variables env))
env)
(cmp-env-register-symbol-macro-function name
#'(lambda (whole env) (declare (ignore env whole)) form)
env))
(defun cmp-env-register-symbol-macro-function (name function &optional (env *cmp-env*))
(when (or (constantp name) (special-variable-p name))
(cmperr "Cannot bind the special or constant variable ~A with symbol-macrolet." name))
(push (list name 'si::symbol-macro function)
(cmp-env-variables env))
env)
@ -208,12 +211,13 @@ the closure in let/flet forms for variables/functions it closes over."
(when (member name (second record) :test #'eql)
(setf found record)
(return)))
((eq (second record) 'si::symbol-macro)
(when (eq name 'si::symbol-macro)
((eq name 'si::symbol-macro)
(when (eq (second record) 'si::symbol-macro)
(setf found record))
(return))
(t
(setf found record)
(when (not (eq (second record) 'si::symbol-macro))
(setf found record))
(return))))
(values (first (last found)) cfb unw)))

9
src/cmp/cmpenv-declare.lsp
View file

@ -168,11 +168,10 @@ special variable declarations, as these have been extracted before."
env)))))
(defun symbol-macro-declaration-p (name type)
(let* ((record (cmp-env-search-symbol-macro name)))
(when (and record (functionp record))
(let* ((expression (funcall record name nil)))
(cmp-env-register-symbol-macro name `(the ,type ,expression)))
t)))
(when-let ((record (cmp-env-search-symbol-macro name)))
(let* ((expression (funcall record name nil)))
(cmp-env-register-symbol-macro name `(the ,type ,expression)))
t))
(defun check-vdecl (vnames ts is)
(loop for (name . type) in ts