;;;-*- Mode:LISP; Package:LISP-INTERNALS; Base:10; Readtable:CL -*-
;;;
;;; Written by Youcef Bennour.
;;;


(defstruct (disk-paging-device
	     (:include paging-device)
	     (:conc-name "MPD-")
	     (:constructor make-mpd-device))
	   state
	   quantum-bitmap
	   (accumulated-physical-cluster-swap-list (make-array 16.))
	   starting-address
	   number-of-quanta
	   dqin-for-this-operation
	   this-cluster
	   cluster-count
  )