| author | Camm Maguire <camm@debian.org> | 2014年09月24日 15:06:22 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月24日 15:06:22 -0400 |
| commit | 8e5f97d6adde56fdc74929c7c1322335d22462e7 (patch) | |
| tree | 07b89dd8c2e364124197efe1324bae4f858a02ed | |
| parent | 879e25fb1837741578b2804bdcb014e4ef802bda (diff) | |
| download | gcl-comp_perf.tar.gz | |
| -rw-r--r-- | gcl/lsp/gcl_loop.lsp | 2 |
diff --git a/gcl/lsp/gcl_loop.lsp b/gcl/lsp/gcl_loop.lsp index a4ad680f6..f27e8aaee 100644 --- a/gcl/lsp/gcl_loop.lsp +++ b/gcl/lsp/gcl_loop.lsp @@ -614,7 +614,7 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring. (do ((actions)) ((null var-val-pairs) (if (null (cdr actions)) (car actions) `(progn ,@(nreverse actions)))) - (setq actions (revappend + (setq actions (nreconc;revappend (loop-desetq-internal (pop var-val-pairs) (pop var-val-pairs)) actions))))) |