From: William Harold Newman <william.newman@airmail.net>
Date: Tue, 4 Nov 2003 00:40:20 +0000 (+0000)
Subject: 0.8.5.22:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=782a45c5d5000d7e86c83e7b303f15270b1e03c2;p=sbcl.git

0.8.5.22:
	archived some arcane knowledge of porting Hell^W^W^W^W^W wisdom
---

diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp
index 006a0df..25b957c 100644
--- a/src/cold/ansify.lisp
+++ b/src/cold/ansify.lisp
@@ -12,6 +12,28 @@
 
 ;;;; CLISP issues
 
+;;; as explained on #lisp ca. October 2003:
+;;;   <Krystof> chandler: nope, I'm blaming another clisp bug
+;;;   <Krystof> [8]> least-positive-short-float
+;;;   <Krystof> 2.93874s-39
+;;;   <Krystof> [9]> (coerce * 'single-float)
+;;;   <Krystof> 0.0
+;;;   <chandler> aah
+;;;   <mwh> "oops"
+;;;   <Krystof> yep
+;;;   <mwh> tried that on clisp from fink:
+;;;   <mwh> [1]> least-positive-short-float
+;;;   <mwh> 2.93874s-39
+;;;   <mwh> [2]> (coerce * 'single-float)
+;;;   <mwh> *** - floating point underflow
+;;;   <Krystof> yeah
+;;;   <mwh> shall i not try to build sbcl with that?
+;;;   <Krystof> if you turn off underflow traps, then you get 0.0
+;;;   <mwh> well, that makes sense, i guess
+;;;   <Krystof> #+clisp
+;;;   <Krystof> (ext:without-package-lock ("SYSTEM")
+;;;   <Krystof>   (setf system::*inhibit-floating-point-underflow* t))
+;;;   <Krystof> (in src/cold/ansify.lisp)
 #+clisp
 (ext:without-package-lock ("SYSTEM")
   (setf system::*inhibit-floating-point-underflow* t))
@@ -46,6 +68,12 @@
   (warn "CMU CL has a broken implementation of READ-SEQUENCE.")
   (pushnew :no-ansi-read-sequence *features*))
 
+;;; This is apparently quite old, according to 
+;;; <http://tunes.org/~nef/logs/lisp/03.10.22>:
+;;;   <dan`b> (error "CMUCL on Alpha can't read floats in the format \"1.0l0\".
+;;;   <dan`b> the warning relates to a random vinary produced from cvs of
+;;;           around feb 2000, the corresponding sources to which I never found
+;;; (But it seems harmless to leave it here forever just in case.)
 #+(and cmu alpha)
 (unless (ignore-errors (read-from-string "1.0l0"))
   (error "CMUCL on Alpha can't read floats in the format \"1.0l0\".  Patch your core file~%~%"))
@@ -54,10 +82,11 @@
 (ext:set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
 
 ;;;; OpenMCL issues
+
+;;; This issue in OpenMCL led to some SBCL bug reports ca. late 2003.
 #+openmcl 
 (unless (ignore-errors (funcall (constantly t) 1 2 3)) 
   (error "please find a binary that understands CONSTANTLY to build from"))
-
 
 ;;;; general non-ANSI-ness
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 293f1fc..360cd4f 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.5.21"
+"0.8.5.22"