diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-12-02 15:43:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-12-02 15:43:04 +0000 |
| commit | 9ae0de86f9c72d88a5c1bd66b1e75a13b9387e05 (patch) | |
| tree | 0f485c948bd5d36a440b644a3904887f955a387a /src/interp | |
| parent | 4bd99bf416b826b7cc94bc2b2290b0b540a30bae (diff) | |
| download | open-axiom-9ae0de86f9c72d88a5c1bd66b1e75a13b9387e05.tar.gz | |
* interp/parsing.lisp (initial-substring-p): Match case sensitively.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/parsing.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |