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 - 13 Feb 2015