By default defstruct generates a method on print-object . You can avoid this by binding at macroexpansion time the variable structure:*defstruct-generates-print-object-method* .
defstruct
print-object
structure:*defstruct-generates-print-object-method*
LispWorks User Guide and Reference Manual - 21 Dec 2011