From 543ec512ef989a2d5209a8eb37b7d60b38f3c4fb Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 14 Apr 2009 04:55:53 +0000 Subject: Fix SF/2760823 * interp/int-top.boot (spad): Return 0 for when SBCL is base Lisp runtime. * interp/i-toplev.boot (start): Likewise. --- src/ChangeLog | 7 +++++++ src/interp/i-toplev.boot | 1 + src/interp/int-top.boot | 1 + 3 files changed, 9 insertions(+) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 6682c239..f7002d72 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2009-04-13 Gabriel Dos Reis + + Fix SF/2760823 + * interp/int-top.boot (spad): Return 0 for when SBCL is base Lisp + runtime. + * interp/i-toplev.boot (start): Likewise. + 2009-04-13 Gabriel Dos Reis Fix SF/2760560 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() == -- cgit v1.2.3