Skip to content
Snippets Groups Projects
Commit a6bbd49d authored by wlott's avatar wlott
Browse files

Don't try to define the type REAL under CMUCL, because we have a real REAL.

parent 9dda77c4
No related branches found
No related tags found
No related merge requests found
......@@ -161,7 +161,7 @@
(deftype card4 () '(unsigned-byte 4))
#-clx-ansi-common-lisp
#-(or clx-ansi-common-lisp cmu)
(deftype real (&optional (min '*) (max '*))
(labels ((convert (limit floatp)
(typecase limit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment