;;;; files for more information.
(in-package "SB!PRETTY")
-
-(file-comment
- "$Header$")
\f
;;;; pretty streams
(defconstant default-line-length 80)
-(defstruct (pretty-stream (:include sb!sys:lisp-stream
+(defstruct (pretty-stream (:include sb!kernel:lisp-stream
(:out #'pretty-out)
(:sout #'pretty-sout)
(:misc #'pretty-misc))
(posn 0 :type posn))
(defmacro enqueue (stream type &rest args)
- (let ((constructor (intern (concatenate 'string
- "MAKE-"
- (symbol-name type)))))
+ (let ((constructor (symbolicate "MAKE-" type)))
(once-only ((stream stream)
(entry `(,constructor :posn
(index-posn
(ecase (fits-on-line-p stream (block-start-section-end next)
force-newlines-p)
((t)
- ;; Just nuke the whole logical block and make it look like one
- ;; nice long literal.
+ ;; Just nuke the whole logical block and make it look
+ ;; like one nice long literal.
(let ((end (block-start-block-end next)))
(expand-tabs stream end)
(setf tail (cdr (member end tail)))))