[Openmcl-devel] Re: PPC Floating-Point Compiler for MCL/OpenMCL

[Gary King]

Only my own lack of insight!

Thanks,

On Friday, February 7, 2003, at 08:21 PM, Randall Beer wrote:

>> 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)))
>
> Randy
>
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel
>
>
-- 
Gary Warren King, Senior Research Fellow, EKSL

Callused men in business suits speak computerese
Play pinball with the third world, trying to keep it on its knees
Their single crop starvation plans put sugar in your teas
and the local third world is kept on reservations you can't see

It'll all go back to normal if we put our nation first.
But the trouble with normal is it always gets worse.

   -- Bruce Cockburn, Trouble with Normal


_______________________________________________
Openmcl-devel mailing list
Openmcl-devel at clozure.com
http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel