;;; -*- Mode:LISP; Base:10; Readtable:ZL -*-

(defvar *bigsize* #o480000)

(eval-when (eval compile load)
  (defvar keith-area 
	  (make-area :name 'keith-area
		     :region-size #o40000)))

(defvar *bigstring* :unbound)
(defvar *bigstring2* :unbound)
(defvar *bigstring3* :unbound)

(defun bigstring()
  (make-array *bigsize*
	    :type 'art-string
	    :area keith-area)
  (describe-area  keith-area))

(defun foo()
  (setq *bigstring* (bigstring))
  (setq *bigstring2* (bigstring))
  (let((default-cons-area keith-area))
    (setq *bigstring3*
	  (make-array *bigsize*
		      :type 'art-string))
    (describe-area keith-area)))