Direct non-simple modexpr importation can be shown properly.
tswd
9 years ago
257 | 257 | (let (;; (*print-indent* (+ (max 4 (length num)) *print-indent*))) |
258 | 258 | (*print-indent* (+ 2 *print-indent*))) |
259 | 259 | (when num (princ "(" stream)) |
260 | ;; (print-mod-name-x mod stream t) | |
261 | (princ (get-module-print-name mod) stream) | |
260 | (print-mod-name mod *standard-output* t t) | |
262 | 261 | (when num (princ ")" stream)) |
263 | 262 | (if dup? (princ "*" stream) |
264 | 263 | (with-in-module (mod) |