diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/i-toplev.boot | 1 | ||||
| -rw-r--r-- | src/interp/int-top.boot | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 6682c239..f7002d72 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,12 @@ 2009-04-13 Gabriel Dos Reis <gdr@cs.tamu.edu> + 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 <gdr@cs.tamu.edu> + Fix SF/2760560 * driver/utils.h (openaxiom_driver): Add openaxiom_null_driver. Document all of them. 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() == |