X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fansify.lisp;h=f08332ec9381d9dbc17db093c433da1771a7b065;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=8e05fd49028a4cfd9e50c9a7e1d8104553db7c41;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp
index 8e05fd4..f08332e 100644
--- a/src/cold/ansify.lisp
+++ b/src/cold/ansify.lisp
@@ -10,8 +10,6 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-;;;; $Header$
-
 #+clisp
 (locally
 
@@ -125,3 +123,8 @@
 		       cl)
 		 (kernel:%set-symbol-package symbol cl))))
 	   standard-ht))
+
+#+(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~%~%"))
+