A simple question: I am having passing floats to my foreign routine. I would like to pass a single-float, since I am getting the following error:
Type-error in KERNEL::OBJECT-NOT-SINGLE-FLOAT-ERROR-HANDLER: 0.0d0 is not of type SINGLE-FLOAT Graham's Ansi Common Lisp says that (float x) should generate a single-float, but I get the following on my 18e version on RH 8.0: (typep (float (* 0.0 1.0)) 'single-float) T (typep (float (* 0.0 pi)) 'single-float) NIL (typep (float (* 0.0 pi)) 'double-float) T How do I coerce the product of a double-float and (something else) to a single-float? thanks Blake
