[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]

Subject: Defstructs
Date:    Tue,  5-APR-1988 10:55 MST
X-VMS-Mail-To: @COMMON-LISP

I'm trying to create structures on the fly. I have a problem with:

(defun test (&aux x)
  (defstruct foo a b c)
  (setf x (make-foo))
  (setf (foo-a x) 1)
  )

When TEST is interpreted, all is fine. When it is compiled the
function (foo-a) is undefined since it isn't created by defstruct 
until run time. In my actual code FOO is a symbol that's build based
upon some args to TEST, therefore I can't simply put the defstruct at 
the top level.  Any ideas??


Steve Pothier
SAIC
<pothiers%tuva.sainet@nmfecc.arpa>