mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 12:52:08 -08:00
Code Issues Projects Releases Packages Wiki Activity

Add a few missing references to LONG-FLOAT and SHORT-FLOAT types in predlib.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-18 10:04:24 +02:00
parent a53b58c076
commit 27119740bf
1 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/lsp/predlib.lsp
View file

@ -1146,7 +1146,9 @@ if not possible."
(FLOAT (OR SINGLE-FLOAT DOUBLE-FLOAT
#+long-float LONG-FLOAT
#+short-float SHORT-FLOAT))
(REAL (OR INTEGER SINGLE-FLOAT DOUBLE-FLOAT RATIO))
(REAL (OR INTEGER SINGLE-FLOAT DOUBLE-FLOAT
#+short-float SHORT-FLOAT
#+long-float LONG-FLOAT RATIO))
(COMPLEX (COMPLEX REAL))
(NUMBER (OR REAL COMPLEX))
@ -1291,15 +1293,23 @@ if not possible."
(register-interval-type type))
((FLOAT)
(canonical-type `(OR (SINGLE-FLOAT ,@(rest type))
(DOUBLE-FLOAT ,@(rest type)))))
(DOUBLE-FLOAT ,@(rest type))
#+short-float
(SHORT-FLOAT ,@(rest type))
#+long-float
(LONG-FLOAT ,@(rest type)))))
((REAL)
(canonical-type `(OR (INTEGER ,@(rest type))
(RATIO ,@(rest type))
(SINGLE-FLOAT ,@(rest type))
(DOUBLE-FLOAT ,@(rest type)))))
(RATIO ,@(rest type))
(SINGLE-FLOAT ,@(rest type))
(DOUBLE-FLOAT ,@(rest type))
#+short-float
(SHORT-FLOAT ,@(rest type))
#+long-float
(LONG-FLOAT ,@(rest type)))))
((RATIONAL)
(canonical-type `(OR (INTEGER ,@(rest type))
(RATIO ,@(rest type)))))
(RATIO ,@(rest type)))))
(COMPLEX
(or (find-built-in-tag type)
(canonical-complex-type (second type))))