From: stassats <sta...@us...> - 2013-03-16 12:33:46
|
The branch "master" has been updated in SBCL: via e536da6bd0f0b6db16863f5e031a05e6797fc2a9 (commit) from 4f24a2734e4c714c0ede097770f9859b8f8c0d5c (commit) - Log ----------------------------------------------------------------- commit e536da6bd0f0b6db16863f5e031a05e6797fc2a9 Author: Stas Boukarev <sta...@gm...> Date: Sat Mar 16 16:33:29 2013 +0400 Optimize pprinting of heavily nested lists. Declare types of PREFIX and SUFFIX slots of PRETTY-STREAM to be (simple-array character (*)), not just simple-string. --- src/code/pprint.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp index f542878..1e39693 100644 --- a/src/code/pprint.lisp +++ b/src/code/pprint.lisp @@ -75,12 +75,12 @@ ;; Buffer holding the per-line prefix active at the buffer start. ;; Indentation is included in this. The length of this is stored ;; in the logical block stack. - (prefix (make-string initial-buffer-size) :type simple-string) + (prefix (make-string initial-buffer-size) :type (simple-array character (*))) ;; Buffer holding the total remaining suffix active at the buffer start. ;; The characters are right-justified in the buffer to make it easier ;; to output the buffer. The length is stored in the logical block ;; stack. - (suffix (make-string initial-buffer-size) :type simple-string) + (suffix (make-string initial-buffer-size) :type (simple-array character (*))) ;; Queue of pending operations. When empty, HEAD=TAIL=NIL. Otherwise, ;; TAIL holds the first (oldest) cons and HEAD holds the last (newest) ;; cons. Adding things to the queue is basically (setf (cdr head) (list ----------------------------------------------------------------------- hooks/post-receive -- SBCL |