[Sbcl-commits] master: restore CLISP cross-compilability

[Christophe R. <cr...@us...>]

The branch "master" has been updated in SBCL:
       via  e877a2092141de68a66e22eaa652bdd104c3448b (commit)
      from  b4fa259c1a797ff591c45a9bca7808dd22acf582 (commit)

- Log -----------------------------------------------------------------
commit e877a2092141de68a66e22eaa652bdd104c3448b
Author: Christophe Rhodes <cs...@ca...>
Date:   Fri Jul 5 17:24:44 2013 +0100

    restore CLISP cross-compilability
    
    s is the marker for short-float, not single-float.  Use f instead.
---
 src/code/toplevel.lisp |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index ca49fd2..2ce86e7 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -170,10 +170,10 @@ means to wait indefinitely.")
              (values whole-seconds
                      (truly-the (integer 0 #.(expt 10 9))
                                 (%unary-truncate (* (- seconds (float whole-seconds))
-                                                    (load-time-value 1s9 t))))))))
+                                                    (load-time-value 1f9 t))))))))
     (declare (inline split-float))
     (typecase seconds
-      ((single-float 0s0 #.(float most-positive-fixnum 1s0))
+      ((single-float 0f0 #.(float most-positive-fixnum 1f0))
        (split-float))
       ((double-float 0d0 #.(float most-positive-fixnum 1d0))
        (split-float))
@@ -189,7 +189,7 @@ means to wait indefinitely.")
       (t
        (multiple-value-bind (sec frac)
            (truncate seconds)
-         (values sec (truncate frac (load-time-value 1s-9 t))))))))
+         (values sec (truncate frac (load-time-value 1f-9 t))))))))
 
 (defun sleep (seconds)
   #!+sb-doc

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL