[prev in list] [next in list] [prev in thread] [next in thread]
List: sbcl-commits
Subject: [Sbcl-commits] master: restore CLISP cross-compilability
From: "Christophe Rhodes" <crhodes () users ! sourceforge ! net>
Date: 2013-07-05 16:25:25
Message-ID: E1Uv8p8-0005tf-E2 () sfs-ml-4 ! v29 ! ch3 ! sourceforge ! com
[Download RAW message or body]
The branch "master" has been updated in SBCL:
via e877a2092141de68a66e22eaa652bdd104c3448b (commit)
from b4fa259c1a797ff591c45a9bca7808dd22acf582 (commit)
- Log -----------------------------------------------------------------
commit e877a2092141de68a66e22eaa652bdd104c3448b
Author: Christophe Rhodes <csr21@cantab.net>
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
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic