projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.72: two regressions from 1.0.28.59
[sbcl.git]
/
src
/
compiler
/
dump.lisp
diff --git
a/src/compiler/dump.lisp
b/src/compiler/dump.lisp
index
04f6be7
..
5f007a3
100644
(file)
--- a/
src/compiler/dump.lisp
+++ b/
src/compiler/dump.lisp
@@
-610,10
+610,6
@@
(dump-complex-double-float (realpart x) (imagpart x) file))
#!+long-float
((complex long-float)
(dump-complex-double-float (realpart x) (imagpart x) file))
#!+long-float
((complex long-float)
- ;; (There's no easy way to mix #!+LONG-FLOAT and #-SB-XC-HOST
- ;; conditionalization at read time, so we do this SB-XC-HOST
- ;; conditional at runtime instead.)
- #+sb-xc-host (error "can't dump COMPLEX-LONG-FLOAT in cross-compiler")
(dump-fop 'fop-complex-long-float file)
(dump-long-float (realpart x) file)
(dump-long-float (imagpart x) file))
(dump-fop 'fop-complex-long-float file)
(dump-long-float (realpart x) file)
(dump-long-float (imagpart x) file))