Next Prev Up Top Contents Index



Default value:

(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)
               (typep object 'undefined-function)))
          (write-string "Undefined function " stream)
          (prin1 (cell-error-name object) stream))
        (princ (or (ignore-errors (type-of object))
                   "<Unknown type>")
          (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 - 11 Dec 2001

Next Prev Up Top Contents Index