From: Christophe Rhodes Date: Mon, 16 Jun 2008 22:56:12 +0000 (+0000) Subject: 1.0.17.36: better pprinting of DEFPACKAGE forms. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b841c32badc4627f390cc8ab71b17bc158e7c6b1;p=sbcl.git 1.0.17.36: better pprinting of DEFPACKAGE forms. From Michael Weber (sbcl-devel 2008-06-12) --- diff --git a/NEWS b/NEWS index a84ea06..516526f 100644 --- a/NEWS +++ b/NEWS @@ -7,6 +7,8 @@ changes in sbcl-1.0.18 relative to 1.0.17: * enhancement: SB-SPROF now has support for wallclock profiling, and is also able to profile specific threads. REPORT output has also additional sorting options. + * enhancement: better pretty-printing of DEFPACKAGE forms. (Thanks + to Michael Weber) * optimization: structure allocation has been improved ** constructors created by non-toplevel DEFSTRUCTs are ~40% faster. ** out of line constructors are ~10% faster. diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp index 8798367..5f9e6a4 100644 --- a/src/code/pprint.lisp +++ b/src/code/pprint.lisp @@ -1238,6 +1238,13 @@ line break." stream list)) +(defun pprint-defpackage (stream list &rest noise) + (declare (ignore noise)) + (funcall (formatter + "~:<~W~^ ~3I~:_~W~^~1I~@{~:@_~:<~W~^ ~:I~@_~@{~W~^ ~_~}~:>~}~:>") + stream + list)) + (defun pprint-destructuring-bind (stream list &rest noise) (declare (ignore noise)) (funcall (formatter @@ -1360,6 +1367,7 @@ line break." (define-modify-macro pprint-defun) (define-setf-expander pprint-defun) (defmacro pprint-defun) + (defpackage pprint-defpackage) (defparameter pprint-block) (defsetf pprint-defun) (defstruct pprint-block) diff --git a/version.lisp-expr b/version.lisp-expr index 39393ca..03565f2 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.17.35" +"1.0.17.36"