diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/parsing.lisp | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index fb0ec9dc..a17d628d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-12-02 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/parsing.lisp (initial-substring-p): Match case sensitively. + 2008-12-01 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/define.boot (compile): Don't check for PAC names. diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index 56ef77ea..33c8e635 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -217,7 +217,7 @@ the stack, then stack a NIL. Return the value of prod." (defun initial-substring-p (part whole) "Returns length of part if part matches initial segment of whole." - (let ((x (string-not-greaterp part whole))) + (let ((x (string<= part whole))) (and x (= x (length part)) x))) |