[Openmcl-devel] Re: PPC Floating-Point Compiler for MCL/OpenMCL
beer at eecs.cwru.edu
Fri Feb 7 20:21:01 EST 2003
> This is awesome! One thing I'd like is being able to do local
> functions. E.g.,
> (defun nearly-equal-p (x y &optional (threshold 0.0001D0))
> ;; excuse the symbol overuse!
> (double-flet ((doit (x y threshold)
> (< (abs (- x y)) threshold)))
> (doit x y threshold)))
> This is mainly to support more complex lambda lists and give people a
> chance to coerce variables if necessary.
Is there any reason why this wouldn't work?
(defun nearly-equal-p (x y &optional (threshold 0.00001D0))
(%double-inline (< (abs (- x y)) threshold)))
Openmcl-devel mailing list
Openmcl-devel at clozure.com
More information about the Openmcl-devel