Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!uwm.edu!uakari.primate.wisc.edu!ginosko!usc!rutgers!mit-eddie!uw-beaver!ssc-vax!bcsaic!arnold
From: arnold@bcsaic.UUCP (Arnold Nordsieck)
Newsgroups: comp.sys.ti.explorer
Subject: Type checking in DEFSTRUCT accessor functions
Message-ID: <15494@bcsaic.UUCP>
Date: 4 Oct 89 05:42:28 GMT
Organization: Boeing Computer Services ATC, Seattle
Lines: 15


I am trying to figure out how to turn on a certain level of type
checking for DEFSTRUCT accessor functions.  Specifically, when I
say:

(setf (foo-slot bar) 42)

I would like the accessor function to make sure that
(foo-p bar) is true.  Nothing in the common lisp spec.
There appears to be nothing in the explorer manuals
or release 4(?) source code.

Any ideas????
bill
(sorry if five copies of this comes out)