Path: utzoo!yunexus!geac!syntron!jtsv16!uunet!husc6!mailrus!cornell!batcomputer!itsgw!imagine!rpics!harrisr
From: harrisr@rpics (Richard Harris)
Newsgroups: comp.lang.lisp
Subject: Re: KCL bug reading/writing circular structures
Keywords: KCL, bug, structure, reader
Message-ID: <1517@imagine.PAWL.RPI.EDU>
Date: 25 Oct 88 02:55:44 GMT
Article-I.D.: imagine.1517
References: <6422@watcgl.waterloo.edu>
Sender: news@imagine.PAWL.RPI.EDU
Reply-To: harrisr@turing.cs.rpi.edu (Richard Harris)
Organization: RPI CS Dept.
Lines: 16

It is not hard to make KCL handle #n= and #n# with structures.

In the (c) function patch_sharp in the file c/read.d, add the lines
	case t_structure:
	{
	       int i;

	       for (i = 0; i < x->str.str_length; i++)
	               x->str.str_self[i] = patch_sharp(x->str.str_self[i]);
	       break;
        }

Also, in the (lisp) function sharp-s-reader in the file lsp/defstruct.lsp,
change the call to read from (read stream) into (read stream t nil t).

Rick Harris