Changed print style of module name in 'desc mod tree'.
tswd
9 years ago
533 | 533 | (defun print-modules (x) |
534 | 534 | (declare (ignore x)) |
535 | 535 | (let ((*print-indent-contin* nil) |
536 | (*print-line-limit* 80) | |
536 | 537 | (mods nil)) |
537 | 538 | (dolist (entry *modules-so-far-table*) |
538 | 539 | (let ((m (cdr entry))) |
550 | 551 | (when (< 0 (filecol *standard-output*)) |
551 | 552 | (princ " ")) |
552 | 553 | ;; (print-modexp-simple m) |
553 | (print-mod-name2 m *standard-output* t) | |
554 | (print-mod-name m *standard-output* t t) | |
554 | 555 | (print-check)) |
555 | 556 | (fresh-line))) |
556 | 557 |