DEFVST

[Edward Barton <EB at MIT-AI>]

Maybe someone can tell me what is wrong in the following example.
I can't seem to find it myself.

Let the file T1 contain the following:

(eval-when (eval compile)
   (or (status feature defvst)
       (load '((lisp)defvst))))

(defvst foo a b c)

(defun foo-1 ()
   (cons-a-foo))

Let the file T2 contain the following:

(defun foo-2 ()
   (cons-a-foo))


Suppose I compile T1 and load it into a LISP, then load T2
(source) into the same LISP.  FOO-1 will return a FOO, while
FOO-2 will load DEFVST and VSAID and give an error

;(FOO) defvst-construction|

,

(PLIST 'FOO) in that LISP reveals a STRUCT=INFO property that
has STRUCT-TYPEP true of it.