- (/show0 "in PRINT-OBJECT case")
- #!-sb-show
- (print-object object stream)
-
- ;; After being bitten several times by the difficulty of
- ;; debugging problems around DEFGENERIC PRINT-OBJECT when the old
- ;; placeholder printer is disabled by FMAKUNBOUND 'PRINT-OBJECT
- ;; and/or DEFGENERIC has already executed but DEFMETHODs haven't,
- ;; I added this workaround to allow output during that
- ;; interval... -- WHN 2001-11-25
- #!+sb-show