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

Do not allow :READ-ONLY declarations for special variables

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-28 21:36:04 +02:00
parent 0d78102b09
commit b8e9f96da5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmplet.lsp
View file

@ -95,8 +95,11 @@
"In LET/LET* bindings")
(default-init var))))
;; :read-only variable handling. Beppe
(when (read-only-variable-p name other-decls)
(setf (var-type var) (c1form-primary-type init)))
(if (read-only-variable-p name other-decls)
(if (global-var-p var)
(cmpwarn "Found :READ-ONLY declaration for global var ~A"
name)
(setf (var-type var) (c1form-primary-type init))))
(push var vars)
(push init forms)
(when (eq let/let* 'LET*) (push-vars var))))