Commit 987b7e6a authored by Symbolics's avatar Symbolics Committed by Raymond Toy
Browse files

Support CCL

parent e51efd7b
......@@ -82,7 +82,7 @@
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
(oos 'test-op 'oct-tests))
(asdf:defsystem oct-tests
(asdf:defsystem oct/tests
:depends-on (oct)
:version "2013.11.26" ; Just use the date
:in-order-to ((compile-op (load-op :rt))
......@@ -93,6 +93,6 @@
(:file "qd-test")
(:file "rt-tests")))
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct-tests))))
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct/tests))))
(or (funcall (intern "DO-TESTS" (find-package "RT")))
(error "TEST-OP failed for OCT-TESTS")))
......@@ -227,9 +227,22 @@
) ; end progn
#+ccl
(progn
(defmacro float-infinity-p (x)
`(= (abs ,x) #.ccl::double-float-positive-infinity)) ; ccl::infinity-p ?
(defun float-nan-p (x)
(and (ccl::nan-or-infinity-p x)
(not (ccl::infinity-p x))))
(defun float-trapping-nan-p (x)
(declare (ignore x))
nil))
;; Default implementation. Assume we can't recognize any of these.
#-(or cmu allegro)
#-(or cmu allegro ccl)
(progn
(defun float-infinity-p (x)
(declare (ignore x))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment