diff --git a/code/pprint.lisp b/code/pprint.lisp index 2dbcb92377a3011b037fe44174f24d907d976070..45f4011a64c7298dc58d45e11e37982553d2d700 100644 --- a/code/pprint.lisp +++ b/code/pprint.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.38 2004/08/30 21:40:17 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.39 2004/08/31 19:36:36 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -907,6 +907,7 @@ (loop (output-object (pprint-pop) stream) (pprint-exit-if-list-exhausted) + (write-char #\space stream) (pprint-tab :section-relative 0 (or tabsize 16) stream) (pprint-newline :fill stream))))