From 543ec512ef989a2d5209a8eb37b7d60b38f3c4fb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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/interp/i-toplev.boot | 1 +
 src/interp/int-top.boot  | 1 +
 2 files changed, 2 insertions(+)

(limited to 'src/interp')

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