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 (file)
--- 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
   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.
 
 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.
 
   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.
 
 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
 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.)
 
 
 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
 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
 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 (file)
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -60,6 +60,7 @@
   ()
   (:report
     (lambda (condition stream)
   ()
   (: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."))))
 
       (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 (file)
--- 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))
                           ,@(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)
               ,(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)))
             (,(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 (file)
--- 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."
   #!+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
   (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 (file)
--- 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".)
 
 ;;; 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"