Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv14655/src/code
(oops: add file needed from last commit)
--- NEW FILE: unportable-float.lisp ---
;;;; nonportable floating point things, useful in LOAD-TIME-VALUE
;;;; forms for referring to floating point objects that will exist on
;;;; the SBCL target but may not when running under an ordinary ANSI
;;;; Common Lisp implementation.
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(defun make-unportable-float (name)
(flet ((opaque-identity (x) x))
;; KLUDGE: "DO NOT CONSTANT FOLD, EVIL COMPILER!"
(declare (notinline opaque-identity make-single-float make-double-float))
(:long-float-negative-zero (error "write LONG-FLOAT creation form")))))
Get latest updates about Open Source Projects, Conferences and News.