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 | |
| parent | 4bd99bf416b826b7cc94bc2b2290b0b540a30bae (diff) | |
| download | open-axiom-9ae0de86f9c72d88a5c1bd66b1e75a13b9387e05.tar.gz | |
* interp/parsing.lisp (initial-substring-p): Match case sensitively.
Diffstat (limited to 'src')
| -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))) |