From 9ae0de86f9c72d88a5c1bd66b1e75a13b9387e05 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 2 Dec 2008 15:43:04 +0000 Subject: * interp/parsing.lisp (initial-substring-p): Match case sensitively. --- src/ChangeLog | 4 ++++ src/interp/parsing.lisp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src') 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 + + * interp/parsing.lisp (initial-substring-p): Match case sensitively. + 2008-12-01 Gabriel Dos Reis * 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))) -- cgit v1.2.3