From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 3 Oct 2002 01:05:29 +0000 (+0000)
Subject: 0.7.8.13:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f5d283201d69a3187ee159d98a045987226e1fd2;p=sbcl.git

0.7.8.13:
	merged tonyms patch (sbcl-devel 2002-09-29) to support
		building under old CMU CL
---

diff --git a/CREDITS b/CREDITS
index 104eb2e..7b8096b 100644
--- a/CREDITS
+++ b/CREDITS
@@ -541,8 +541,9 @@ Nathan Froyd:
   cleanup, not visible at the user level but important for
   maintenance. (E.g. converting the PCL code to use LOOP instead
   of the old weird pre-ANSI ITERATE macro so that the code can be
-  read without being an expert in ancient languages and so that
-  can delete a thousand lines of implement-ITERATE macrology.)
+  read without being an expert in ancient languages and so that we
+  can delete a thousand lines of implement-ITERATE macrology from
+  the codebase.)
 
 Matthias Hoelzl:
   He reported and fixed COMPILE's misbehavior on macros.
@@ -569,10 +570,17 @@ Eric Marsden:
   Some of his fixes to CMU CL since the SBCL fork have been ported
   to SBCL.
 
+Antonio Martinez-Shotton:
+  He has contributed a number of bug fixes and bug reports to SBCL.
+
 Dave McDonald:
   He made a lot of progress toward getting SBCL to be bootstrappable
   under CLISP.
 
+Gerd Moellman:
+  He has made many cleanups and improvements, small and large, in
+  CMU CL (mostly in PCL), which we have gratefully ported to SBCL.
+
 William ("Bill") Newman:
   He continued to maintain SBCL after the fork, increasing ANSI
   compliance, fixing bugs, regularizing the internals of the
@@ -621,12 +629,12 @@ Raymond Wiker:
 
 INITIALS GLOSSARY (helpful when reading comments, CVS commit logs, etc.)
 
-AL   Arthur Lemmens
 MNA  Martin Atzmueller
 DB   Daniel Barlow
 DTC  Douglas Crosher
 APD  Alexey Dejneka
 NJF  Nathan Froyd
+AL   Arthur Lemmens
 RAM  Robert MacLachlan
 WHN  William ("Bill") Newman
 CSR  Christophe Rhodes
diff --git a/src/code/error.lisp b/src/code/error.lisp
index 8a448f1..66a6ebc 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -60,6 +60,7 @@
   ()
   (:report
     (lambda (condition stream)
+      (declare (ignore condition))
       (format stream
              "Control stack exhausted (no more space for function call frames).  This is probably due to heavily nested or infinitely recursive function calls, or a tail call that SBCL cannot or has not optimized away."))))
 
diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index b71f70d..fbc4a06 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -573,13 +573,18 @@
 			   ,@(when offset-var `(,offset-var)))
 	 (if (not (array-header-p ,n-array))
 	     (let ((,n-array ,n-array))
-	       (declare (type (simple-array * (*)) ,n-array))
+	       ;; The #-CMU is because tonyms reported (sbcl-devel
+	       ;; 2002-09-29) that this declaration confuses old CMU
+	       ;; CL on x86 Debian 2.2. -- WHN 2002-10-02
+	       #-cmu (declare (type (simple-array * (*)) ,n-array))
 	       ,(once-only ((n-len `(length ,n-array))
 			    (n-end `(or ,n-evalue ,n-len)))
 		  `(if (<= ,n-svalue ,n-end ,n-len)
 		       ;; success
 		       (values ,n-array ,n-svalue ,n-end 0)
-		       (failed-%with-array-data ,n-array ,n-svalue ,n-evalue))))
+		       (failed-%with-array-data ,n-array
+						,n-svalue
+						,n-evalue))))
 	     (,(if force-inline '%with-array-data-macro '%with-array-data)
 	      ,n-array ,n-svalue ,n-evalue))
        ,@forms)))
diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index 81d3525..07ffdd6 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -191,6 +191,7 @@
   #!+sb-doc
   "If NAME names a compiler-macro in ENV, return the expansion function, else
    return NIL. Can be set with SETF when ENV is NIL."
+  (declare (ignore env))
   (legal-fun-name-or-type-error name)
   ;; Note: CMU CL used to return NIL here when a NOTINLINE declaration
   ;; was in force. That's fairly logical, given the specified effect
diff --git a/version.lisp-expr b/version.lisp-expr
index d7e5823..5a07bf3 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; internal versions off the main CVS branch, it gets hairier, e.g.
 ;;; "0.pre7.14.flaky4.13".)
 
-"0.7.8.12"
+"0.7.8.13"