[armedbear-devel] *print-case* :downcase breaks DEFSTRUCT compilation

[Dan Corkill]

Compiling the following file in the latest ABCL (r13272) illustrates the error:

---------------------------

(in-package :cl-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
 (setf *print-case* ':downcase))

(defstruct rec a b)

---------------------------

Alternatively, remove the EVAL-WHEN and set *PRINT-CASE* as
:downcase before compiling the file containing only the DEFSTRUCT.