(eql yx :call-other-method))
*empty-type*)
(t
- (aver (and (not xy) (not yx))) ; else handled above
nil))))))))
(defun-cached (type-intersection2 :hash-function type-cache-hash
nil))
(t
(if (<= most-negative-single-float cx most-positive-single-float)
- (coerce cx format)
+ ;; FIXME: bug #389
+ (coerce cx (or format 'single-float))
nil)))))
(if (consp x) (list res) res)))))
nil))