| author | Camm Maguire <camm@victorious.maguirefamily.org> | 2018年03月02日 16:02:12 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@victorious.maguirefamily.org> | 2018年03月02日 16:02:12 +0000 |
| commit | 762fdfaa1621d60688f5b2d3814b6ce3f3c00bf5 (patch) | |
| tree | 3931bf2a348731e4b19fe95699d9dda9b0eb0788 | |
| parent | 02bac0d5fadb71797078f3976aad87d0213e5f28 (diff) | |
| download | gcl-remove_package_operations.tar.gz | |
| -rwxr-xr-x | gcl/cmpnew/gcl_cmptop.lsp | 6 |
diff --git a/gcl/cmpnew/gcl_cmptop.lsp b/gcl/cmpnew/gcl_cmptop.lsp index 78461a149..2e78814d6 100755 --- a/gcl/cmpnew/gcl_cmptop.lsp +++ b/gcl/cmpnew/gcl_cmptop.lsp @@ -420,13 +420,13 @@ (t (let ((f *top-level-forms*)) (dolist (form args) (t1expr form)) - (setq *top-level-forms* (cons (cons 'progn (nreverse (ldiff *top-level-forms* f))) f)))))) + (setq *top-level-forms* (cons `(progn ,(nreverse (ldiff *top-level-forms* f))) f)))))) -(defun t3progn (&rest args) +(defun t3progn (args) (dolist (arg args) (t23expr arg 't3))) -(defun t2progn (&rest args) +(defun t2progn (args) (dolist (arg args) (t23expr arg 't2))) |