diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-28 20:51:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 20:51:13 +0000 |
commit | 77f815abfd7c7d429b6bba09f249ae195ec04898 (patch) | |
tree | 4d61a52ac0610a9e2ac0d2d94a155799dab0f6bd /src/boot/strap/includer.clisp | |
parent | 8efa78fb1bfa0e9afce20922020129130f9c69be (diff) | |
download | open-axiom-77f815abfd7c7d429b6bba09f249ae195ec04898.tar.gz |
more cleanup
Diffstat (limited to 'src/boot/strap/includer.clisp')
-rw-r--r-- | src/boot/strap/includer.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 99c6a5fb..06904a5b 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -252,7 +252,7 @@ (DEFUN |shoePlainLine?| (|s|) (COND ((EQL (LENGTH |s|) 0) T) - (T (NOT (EQL (ELT |s| 0) (|char| '|)|)))))) + (T (NOT (CHAR= (ELT |s| 0) (|char| '|)|)))))) (DEFUN |shoeSay?| (|s|) (|shoePrefix?| ")say" |s|)) |