[movitz-devel] Re: HD driver

[Frode Vatvedt Fjeld]

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?

-- 
Frode Vatvedt Fjeld