mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

In IHS-ENVIRONMENT, the list of local variables may contain strings -- they are now converted to symbols.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 12:15:49 +01:00
parent 28ceeaa405
commit 8adccd5ebe
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/top.lsp
View file

@ -964,6 +964,11 @@ Use special code 0 to cancel this operation.")
(push (compiled-function-name record) functions))
((progn
(setf record0 (car record) record1 (cdr record))
(when (stringp record0)
(setf record0
(let ((*package* (find-package "KEYWORD")))
(with-standard-io-syntax
(read-from-string record0)))))
(or (symbolp record0) (stringp record0)))
(setq local-variables (acons record0 record1 local-variables)))
((symbolp record1)