Path: utzoo!utgpu!watserv1!watmath!att!linac!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!samsung!olivea!mintaka!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!kubix!kub.nl!pberck
From: pberck@kub.nl (Peter Berck)
Newsgroups: comp.lang.lisp
Subject: Structure question
Message-ID: <1991Jan25.115153.2864@kub.nl>
Date: 25 Jan 91 11:51:53 GMT
Reply-To: pberck@kub.nl
Organization: KUB, The Netherlands
Lines: 35

Hi,

I have this structure which I save and load from disc. I recently
added a :print-function to it, but now (after I printed it to disc)
I can't read it back in again... I guess the reader doesn't like my
string-output generated with the :print-function.

Is there a way around it - like forcing LISP to still print out my
structure using the #S(.. syntax?

I use something like (but this is probably irrelevant):

(defun save-network (filename)
  (with-open-file (my-stream filename
                             :direction :output)
    (print *patterns* my-stream)
    (print *targets* my-stream)
	...))

and 

(defun load-network (filename)
  (with-open-file (my-stream filename
                             :direction :input)
    (setf *patterns* (read my-stream nil))
    (setf *targets* (read my-stream nil))
	..))

The *patterns* &c. variables are a list with structures...

thanx,
-peter

-- 
pberck@kub.nl     -     kubvx1::pberck