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*.
structure:*defstruct-generates-print-object-method*
LispWorks® User Guide and Reference Manual - 01 Dec 2021 19:30:20