;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10 -*-

(defvar *page* nil)

(defun mbc-setup ()
  (unless *page*
    (setq *page* (make-wireable-array