diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-14 04:55:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-14 04:55:53 +0000 |
| commit | 543ec512ef989a2d5209a8eb37b7d60b38f3c4fb (patch) | |
| tree | 70d0e18c394b367f83a099e4ef76b2c227a3c61c /src/interp | |
| parent | 4d429676e2332f7dd8e6da16c72d1bf653c646d1 (diff) | |
| download | open-axiom-543ec512ef989a2d5209a8eb37b7d60b38f3c4fb.tar.gz | |
Fix SF/2760823
* interp/int-top.boot (spad): Return 0 for when SBCL is base Lisp
runtime.
* interp/i-toplev.boot (start): Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-toplev.boot | 1 | ||||
| -rw-r--r-- | src/interp/int-top.boot | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index 92f89497..83c20e8d 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -108,6 +108,7 @@ start(:l) == $OLDLINE := NIL $superHash := MAKE_-HASHTABLE('UEQUAL) if null l then runspad() + %hasFeature KEYWORD::SBCL => 0 'EndOfSpad readSpadProfileIfThere() == diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 06366706..9b1d7f10 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -78,6 +78,7 @@ spad() == $inLispVM : local := nil setOutputAlgebra "%initialize%" runspad() + %hasFeature KEYWORD::SBCL => 0 'EndOfSpad runspad() == |