- (cond ((byte-code-function-p def)
- (save-excursion
- (set-buffer standard-output)
- (or (eq (char-after (1- (point-max))) ?\n)
- (terpri)))
- (terpri)
- (princ (car (append def nil))))
- ((eq (car-safe def) 'lambda)
- (save-excursion
- (set-buffer standard-output)
- (or (eq (char-after (1- (point-max))) ?\n)
- (terpri)))
- (terpri)
- (princ (nth 1 def)))))