| author | Camm Maguire <camm@debian.org> | 2003年11月06日 15:39:44 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2003年11月06日 15:39:44 +0000 |
| commit | bae32ddb74ba6a0cfe32442d76e027bc0860cfe6 (patch) | |
| tree | 26115c7766f1094f0533646c813698cc41ea5d7b | |
| parent | d498271598759cd77bf08365e26cc797d9082918 (diff) | |
| download | gcl-bae32ddb74ba6a0cfe32442d76e027bc0860cfe6.tar.gz | |
| -rwxr-xr-x | gcl/cmpnew/gcl_cmpflet.lsp | 4 | ||||
| -rw-r--r-- | gcl/debian/changelog | 6 |
diff --git a/gcl/cmpnew/gcl_cmpflet.lsp b/gcl/cmpnew/gcl_cmpflet.lsp index 2b41aa522..6ce0200e0 100755 --- a/gcl/cmpnew/gcl_cmpflet.lsp +++ b/gcl/cmpnew/gcl_cmpflet.lsp @@ -64,7 +64,7 @@ ;;; is a list ( macro-name expansion-function).
(defun c1flet (args &aux body ss ts is other-decl info
- (defs1 nil) (local-funs nil) (closures nil))
+ (defs1 nil) (local-funs nil) (closures nil) (*info* (copy-info *info*)))
(when (endp args) (too-few-args 'flet 1 0))
(let ((*funs* *funs*))
@@ -173,7 +173,7 @@ (defun c1labels (args &aux body ss ts is other-decl info
(defs1 nil) (local-funs nil) (closures nil)
- (fnames nil) (processed-flag nil) (*funs* *funs*))
+ (fnames nil) (processed-flag nil) (*funs* *funs*) (*info* (copy-info *info*)))
(when (endp args) (too-few-args 'labels 1 0))
;;; bind local-functions
diff --git a/gcl/debian/changelog b/gcl/debian/changelog index c507e72b1..7baf94a49 100644 --- a/gcl/debian/changelog +++ b/gcl/debian/changelog @@ -2,8 +2,12 @@ gcl (2.6.1-18) unstable; urgency=low * Portability patches to makefiles to support non-GNU grep (no -q), and non-bash sh, C_INCLUDE_PATH=...;export C_INCLUDE_PATH + * copy the global *info* parameter in c1flet and c1labels to prevent + accumulation of old data -- FIXME -- make sure there are no other + copies required, and eventually replace this global parameter with + local variables - -- Camm Maguire <camm@enhanced.com> 2003年10月31日 16:21:59 +0000 + -- Camm Maguire <camm@enhanced.com> Thu, 6 Nov 2003 15:40:25 +0000 gcl (2.6.1-17) unstable; urgency=low |