[movitz-devel] Re: HD driver

[Peter Minten]

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).

Greetings,

Peter