cross-float: FLONUM-FORMAT = TYPE-OF.
commit193fc2ac14cff03f93a5769a375320fe40bd3fa2
authorCharles Zhang <charleszhang99@yahoo.com>
Mon, 22 Apr 2024 21:09:53 +0000 (22 23:09 +0200)
committerCharles Zhang <charleszhang99@yahoo.com>
Tue, 23 Apr 2024 19:18:51 +0000 (23 21:18 +0200)
tree56700607c9d5bbb90237df3b3fb5c3a4762d56c4
parent6401acf1897b7f37badc7c0f2a5d767c61764ae1
cross-float: FLONUM-FORMAT = TYPE-OF.

Now that SINGLE-FLOAT and DOUBLE-FLOAT are split into their own host
types, we can dispense with the slot that essentially acted as a type
tag.

Also add back in some #+long-float support. (It doesn't work yet of
course.)
src/code/cross-early.lisp
src/code/cross-float.lisp
src/code/uncross.lisp
src/compiler/generic/genesis.lisp