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/translator.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/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 2171c415..c9b972c4 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -623,8 +623,8 @@ (LET ((|m| (CADR |b|))) (PROGN (COND - ((NOT (EQUAL (|getOptionValue| '|import|) - "skip")) + ((NOT (STRING= (|getOptionValue| '|import|) + "skip")) (|bootImport| (STRING |m|)))) (LIST (LIST 'IMPORT-MODULE (STRING |m|)))))) (|%ImportSignature| |