CMUCL commit: src/code (exports.lisp)

[Raymond Toy]

    Date: Saturday, February 6, 2010 @ 23:28:25
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: exports.lisp

Export %UNARY-FROUND/SINGLE-FLOAT and %UNARY-FROUND/DOUBLE-FLOAT to
get rid of a warning.


--------------+
 exports.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


Index: src/code/exports.lisp
diff -u src/code/exports.lisp:1.292 src/code/exports.lisp:1.293
--- src/code/exports.lisp:1.292	Thu Dec 17 08:52:21 2009
+++ src/code/exports.lisp	Sat Feb  6 23:28:24 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.292 2009-12-17 13:52:21 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.293 2010-02-07 04:28:24 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2050,7 +2050,9 @@
 	   "%SET-STACK-REF" "%SIN" "%SET-SYMBOL-HASH"
 	   "%SINGLE-FLOAT" "%SINH" "%SP-SET-DEFINITION" "%SP-SET-PLIST"
 	   "%SQRT" "%SXHASH-SIMPLE-STRING" "%SXHASH-SIMPLE-SUBSTRING" "%TAN"
-	   "%TANH" "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
+	   "%TANH" "%UNARY-ROUND"
+	   "%UNARY-FROUND/SINGLE-FLOAT" "%UNARY-FROUND/DOUBLE-FLOAT"
+	   "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
 	   "%UNARY-FTRUNCATE/SINGLE-FLOAT" "%UNARY-FTRUNCATE/DOUBLE-FLOAT"
 	   "%WITH-ARRAY-DATA"
 	   "*CURRENT-LEVEL*" "*EMPTY-TYPE*" "*EVAL-STACK-TOP*" "*NULL-TYPE*"