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 +
 1 file changed, 1 insertion(+)

(limited to 'src/interp/i-toplev.boot')

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() ==
-- 
cgit v1.2.3