| author | Camm Maguire <camm@debian.org> | 2014年09月23日 15:51:11 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月23日 15:51:11 -0400 |
| commit | 76ad6e201a511fb85847d07b9d0a60fca8cc2efa (patch) | |
| tree | e4ab157e2a227dad57898cf088ad66da0a9b024f | |
| parent | 4bd2305e5885f01c80d8dc088f5ded4788491deb (diff) | |
| download | gcl-76ad6e201a511fb85847d07b9d0a60fca8cc2efa.tar.gz | |
| -rwxr-xr-x | gcl/cmpnew/gcl_cmpflet.lsp | 2 |
diff --git a/gcl/cmpnew/gcl_cmpflet.lsp b/gcl/cmpnew/gcl_cmpflet.lsp index 5fc620fe0..5e0381512 100755 --- a/gcl/cmpnew/gcl_cmpflet.lsp +++ b/gcl/cmpnew/gcl_cmpflet.lsp @@ -264,7 +264,7 @@ (add-info info (cadr body)) (if (or local-funs closures) - (list 'labels info (nreverse local-funs) (mreverse closures) body) + (list 'labels info (nreverse local-funs) (nreverse closures) body) body)) (defun c2labels (local-funs closures body &aux (*vs* *vs*) (*clink* *clink*) (*ccb-vs* *ccb-vs*)) |