From anthonyb@ed.aisb Fri Jul 31 12:12:43 1992
Received: from stoat.aisb.ed.ac.uk by aisb.ed.ac.uk; Fri, 31 Jul 92 12:12:39 BST
Date: Fri, 31 Jul 92 12:11:26 BST
Message-Id: <1402.9207311111@stoat.aisb.ed.ac.uk>
From: Anthony Blake <anthonyb@ed.aisb>
Subject: scheme
To: ianport@ed.aisb
Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh.
Status: RO

(define *dbase-file* "unnamed.data") ; default database file.

to output:
 
   (set! port-out (open-output-file *dbase-file*))
   (write *graphs-DBASE* port-out)
   (write *type-lattice* port-out)
   (close-output-port port-out)

to read in:

   (set! port-in (open-input-file *dbase-file*))
   (set! *graphs-DBASE* (read port-in))


