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

When registering and returning cleanup forms, return fresh lists.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-27 20:19:34 +01:00
parent 1ed7e2d366
commit 2dd36d0118
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/new-cmp/cmpenv.lsp
View file

@ -492,7 +492,7 @@
(error "Inconsistency in environment."))
(return-from c1cleanup-forms
(nconc (c1unbind specials nil)
(apply #'append cleanup-forms))))))
(apply #'nconc (mapcar #'copy-list cleanup-forms)))))))
(defun cmp-env-register-var (var &optional (env *cmp-env*) (boundp t))
(push (list (var-name var)
@ -550,7 +550,7 @@
env)
(defun cmp-env-register-cleanup (form &optional (env *cmp-env*))
(push (list :cleanup form) (cmp-env-variables env))
(push (list :cleanup (copy-list form)) (cmp-env-variables env))
env)
(defun cmp-env-search-function (name &optional (env *cmp-env*))