(!define-type-vops floatp check-float nil object-not-float-error
(single-float-widetag double-float-widetag #!+long-float long-float-widetag))
(!define-type-vops realp check-real nil object-not-real-error
(!define-type-vops floatp check-float nil object-not-float-error
(single-float-widetag double-float-widetag #!+long-float long-float-widetag))
(!define-type-vops realp check-real nil object-not-real-error