From e9d8e2490f4dff922c0d86f29f31227655cc0633 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 29 Nov 2014 01:33:00 +0000
Subject: Replace direct use of MULTIPLE-VALUE-LIST FLOOR with
 integerAndFractionalParts

---
 src/lisp/core.lisp.in | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 61877e29..cd1a6775 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -223,6 +223,7 @@
 	   "fixnum?"
 	   "double"
 	   "%fNaN?"
+	   "integerAndFractionalParts"
            ))
 
 (in-package "AxiomCore")
@@ -1478,6 +1479,9 @@
 (defmacro |double| (x)
   `(float ,x 1.0d0))
 
+(defmacro |integerAndFractionalParts| (x)
+  `(multiple-value-list (floor ,x)))
+
 ;; 
 ;; -*- Native Datatype correspondance -*-
 ;; 
-- 
cgit v1.2.3