[Openmcl-devel] Defstruct inside eval-when strangeness and a build failure

[Stas Boukarev]

Stas Boukarev <stassats at gmail.com> writes:

> Compiling and loading the following results in "Undefined function FOO"
>
> (defun foo (&rest args)
>   (print "HELLO!"))
>
> (eval-when (:compile-toplevel :load-toplevel :execute)
>   (defstruct (test (:print-function foo))))
>
> (foo)
I forgot to add that this is on linux-x8632.
-- 
With Best Regards, Stas.