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 - 18 Feb 2025 15:32:03