[movitz-devel] Re: HD driver

Peter Minten peter.minten at wanadoo.nl
Sat Apr 24 16:16:03 UTC 2004

Frode Vatvedt Fjeld wrote:
> I checked in your newver version to CVS.
> One comment about this function from harddisk.lisp:
> (defun div (a b)
>   "Floored integer division, the painful way."
>   (let ((r 0)
>         (x a))
>     (while (>= x 0)
>       (decf x b)
>       (incf r))
>     (1- r)))
> I suspect you can use the standard CL function truncate instead of
> this?

Yes, I forgot to grep for truncate (I did look at floor, but that wasn't 
implemented yet).



More information about the movitz-devel mailing list