Skip to content
Snippets Groups Projects
Commit 2c4daf77 authored by wlott's avatar wlott
Browse files

In FORCE-PRETTY-OUTPUT, EXPAND-TABS before outputing the output buffer.

parent 39c2ea11
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.9 1992/06/14 07:28:46 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.10 1992/07/30 05:36:52 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -666,6 +666,7 @@
(defun force-pretty-output (stream)
(maybe-output stream nil)
(expand-tabs stream nil)
(write-string (pretty-stream-buffer stream)
(pretty-stream-target stream)
:end (pretty-stream-buffer-fill-pointer stream)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment