diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-07 11:18:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-07 11:18:27 +0000 |
commit | 4fbe17f6ca64c10f69729c412b7a198da4af65a0 (patch) | |
tree | 81f7d711fc9789625c56f57f7cf38fec84487929 /src/algebra/strap/ISTRING.lsp | |
parent | cb7fc37a4e7a95f7c9dbda0a4c587d75250e1760 (diff) | |
download | open-axiom-4fbe17f6ca64c10f69729c412b7a198da4af65a0.tar.gz |
* interp/c-util.boot (isLispSpecialVariable): New.
(mutateToBackendCode): Use it to record special vars.
Be careful with locally bound variables.
Diffstat (limited to 'src/algebra/strap/ISTRING.lsp')
-rw-r--r-- | src/algebra/strap/ISTRING.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index e13365f3..5ff74145 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -670,7 +670,7 @@ (|stringMatch| |pattern| |target| (CHARACTER |wildcard|))) (DEFUN |ISTRING;match?;2$CB;34| (|pattern| |target| |dontcare| $) - (PROG (|n| |m| |s| #0=#:G1521 |i| |p| |q|) + (PROG (|m| |n| |s| #0=#:G1521 |i| |p| |q|) (RETURN (SEQ (EXIT (SEQ (LETT |n| (SPADCALL |pattern| (|getShellEntry| $ 47)) |