(or (delivery-value :keep-debug-mode)
(<= *delivery-level* 2))
If nil, the generic function print-object is redefined to be the ordinary function x-print-object:
(defun x-print-object (object stream)
(t-print-object object stream))
(defun t-print-object (object stream)
(print-unreadable-object (object stream :identity t)
(if (and (fboundp 'find-class)
(find-class 'undefined-function nil)
(ignore-errors
(typep object 'undefined-function)))
(progn
(write-string "Undefined function " stream)
(prin1 (cell-error-name object) stream))
(progn
(princ (or (ignore-errors (type-of object))
"<Unknown type>")
stream)
(ignore-errors
(when-let (namer (find-symbol "NAME" "CLOS"))
(when-let (name (and (slot-exists-p object namer)
(slot-boundp object namer)
(slot-value object namer)))
(format stream " ~a" name))))))))
You may redefine x-print-object.
Affected by: :keep-debug-mode
LispWorks Delivery User Guide - 10 Aug 2017
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4