;;; -*- Mode:LISP; Package:MEMORY-MANAGEMENT-INTERFACE; Base:10; Readtable:CL -*-

;;; This file will contain the symbols that the rest of the world is allowed to
;;; see.

(import '(
	  memlow:*number-of-areas*
	  memlow:*number-of-regions*
	  
	  area-data:get-active-region
	  area-data:make-area
	  area-data:make-area-fixed
	  area-data:make-region-in-area

	  region-bits:$$region-fixed
	  region-bits:$$region-read-write
	  region-bits:$$region-space-code
	  region-bits:$$region-space-cons
	  region-bits:$$region-space-structure
	  region-bits:$$region-space-unboxed
	  region-bits:$$region-new-space
	  region-bits:$$scavenge-enabled
	  region-bits:$$scavenge-disabled

	  region-bits:encode-region-bits
	  )
	'memory-management-interface)

(export '(
	  memlow:*number-of-areas*
	  memlow:*number-of-regions*
	  
	  area-data:get-active-region
	  area-data:make-area
	  area-data:make-area-fixed
	  area-data:make-region-in-area

	  region-bits:$$region-fixed
	  region-bits:$$region-read-write
	  region-bits:$$region-space-code
	  region-bits:$$region-space-cons
	  region-bits:$$region-space-structure
	  region-bits:$$region-space-unboxed
	  region-bits:$$region-new-space
	  region-bits:$$scavenge-enabled
	  region-bits:$$scavenge-disabled

	  region-bits:encode-region-bits
	  ))