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

[Stas Boukarev]

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)


And also a minor problem: this change
http://trac.clozure.com/ccl/changeset/13337/trunk/source/lisp-kernel/pad.s
prevents from building ccl.

-- 
With Best Regards, Stas.