(or (delivery-value :keep-debug-mode)
(case *delivery-level*
((0 1) t)
(2 :print)
(otherwise nil)))
This keyword controls the extent to which structure internals are shaken out of the image.
If nil, all references from structure-objects to their conc-names, (BOA) constructors, copiers, slot names, printers and documentation are removed. See also :structure-packages-to-keep.
To retain slot name information (necessary if either the #S() reader syntax or CLOS slot-value are to be used for structure-objects) set :keep-structure-info to :slots.
To retain slot names and the default structure printer, set :keep-structure-info to :print.
Note: Any functions (constructors, copiers or printers) referenced in the application are retained, just as any other code would be. It is therefore not normally necessary to set this keyword.
Affected-by: :keep-debug-mode
LispWorks Delivery User Guide - 15 Feb 2015