From 4fbe17f6ca64c10f69729c412b7a198da4af65a0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Jun 2010 11:18:27 +0000
Subject: 	* interp/c-util.boot (isLispSpecialVariable): New. 
 (mutateToBackendCode): Use it to record special vars. 	Be careful with
 locally bound variables.

---
 src/algebra/strap/ISTRING.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/ISTRING.lsp')

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))
-- 
cgit v1.2.3