diff options
author | dos-reis <gdr@axiomatics.org> | 2014-11-29 01:33:00 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-11-29 01:33:00 +0000 |
commit | e9d8e2490f4dff922c0d86f29f31227655cc0633 (patch) | |
tree | e2792e035618a5fe07fb506e2d919e189026cc5f /src/interp/boot-pkg.lisp | |
parent | 291cdbd599f6332c6f92612629f1b4cf7fb71308 (diff) | |
download | open-axiom-e9d8e2490f4dff922c0d86f29f31227655cc0633.tar.gz |
Replace direct use of MULTIPLE-VALUE-LIST FLOOR with integerAndFractionalParts
Diffstat (limited to 'src/interp/boot-pkg.lisp')
-rw-r--r-- | src/interp/boot-pkg.lisp | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index 8f3e4d91..c4248655 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -69,9 +69,6 @@ (defmacro |conjugate| (z) `(conjugate ,z)) -(defmacro |integerAndFractionalParts| (x) - `(multiple-value-list (floor ,x))) - (defmacro |sqrt| (x) `(sqrt ,x)) |