diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-14 21:41:05 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-14 21:41:05 +0000 |
commit | 683b15834757e0ccb39afe72bb46c4d644ce033e (patch) | |
tree | 38124177955a731f9b1dc358067bc8e706b74446 /src/boot/strap/includer.clisp | |
parent | 03096666f13a4659f18824b2676aa27602999ab5 (diff) | |
download | open-axiom-683b15834757e0ccb39afe72bb46c4d644ce033e.tar.gz |
* boot/ast.boot (bfQ): Emit STRING= for string comparison.
* interp/i-output.boot: Fix type violation in equality comparison.
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 4d4cd438..154e1cd4 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -92,7 +92,7 @@ (T (SETQ |a| (CAAR |stream|)) (COND ((AND (NOT (< (LENGTH |a|) 8)) - (EQUAL (SUBSTRING |a| 0 8) ")package")) + (STRING= (SUBSTRING |a| 0 8) ")package")) (|shoePackageStartsAt| (CONS (CAAR |stream|) |lines|) |sz| |name| (CDR |stream|))) ((< (LENGTH |a|) |sz|) |