0.6.12.3:

[sbcl.git] / src / cold / ansify.lisp

diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp
index 7cf9c9b..f08332e 100644 (file)
--- a/src/cold/ansify.lisp
+++ b/src/cold/ansify.lisp
@@ -123,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~%~%"))
+