[movitz-devel] Re: HD driver

Frode Vatvedt Fjeld ffjeld at common-lisp.net
Sat Apr 24 15:15:20 UTC 2004

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

Frode Vatvedt Fjeld

More information about the movitz-devel mailing list