From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Leo Liu Newsgroups: gmane.emacs.bugs Subject: bug#19177: 25.0.50; pretty printer Date: Tue, 25 Nov 2014 19:04:03 +0800 Message-ID: <8761e34k4c.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1416913534 30820 80.91.229.3 (25 Nov 2014 11:05:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 25 Nov 2014 11:05:34 +0000 (UTC) To: 19177@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Nov 25 12:05:27 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XtDvx-0002XY-JV for geb-bug-gnu-emacs@m.gmane.org; Tue, 25 Nov 2014 12:05:25 +0100 Original-Received: from localhost ([::1]:56470 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDvx-000498-6C for geb-bug-gnu-emacs@m.gmane.org; Tue, 25 Nov 2014 06:05:25 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33820) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDvk-00048U-JV for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:05:21 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XtDva-0000uA-MJ for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:05:12 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:47369) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDva-0000tV-Hl for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:05:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XtDva-0006Wc-0N for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:05:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Leo Liu Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 25 Nov 2014 11:05:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 19177 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.141691348125048 (code B ref -1); Tue, 25 Nov 2014 11:05:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 25 Nov 2014 11:04:41 +0000 Original-Received: from localhost ([127.0.0.1]:44582 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XtDvE-0006Vv-Kr for submit@debbugs.gnu.org; Tue, 25 Nov 2014 06:04:41 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:60230) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XtDvC-0006Vn-3k for submit@debbugs.gnu.org; Tue, 25 Nov 2014 06:04:38 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XtDv2-0000me-LR for submit@debbugs.gnu.org; Tue, 25 Nov 2014 06:04:37 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:34229) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDv2-0000ma-Ih for submit@debbugs.gnu.org; Tue, 25 Nov 2014 06:04:28 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33668) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDut-00041f-HJ for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:04:28 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XtDuk-0000iT-Az for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:04:19 -0500 Original-Received: from mail-pd0-x230.google.com ([2607:f8b0:400e:c02::230]:54228) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtDuk-0000i6-3B for bug-gnu-emacs@gnu.org; Tue, 25 Nov 2014 06:04:10 -0500 Original-Received: by mail-pd0-f176.google.com with SMTP id y10so366185pdj.21 for ; Tue, 25 Nov 2014 03:04:08 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:subject:date:message-id:mime-version:content-type; bh=8ShL+qRnYHAk1FKss1h3lgnF3SAWr6fNfyL5lzR/jM8=; b=ssR+oxy82qvaFRdcFbwN7dQ6FLYuVcg7tAhyhWRIlppNFPoWD1CfM4fWZjNztdI92Z 7r8/dg+SRTK0O6EOuFJh7YHmNkrktNaOfi8kWqOr6l8Q4GTCVUiZbCBzPtnIMJRBWGfI D8C1IX0wJZN6nUgsQ6qeIu4SJfaQvDjzI9Q7dst2pMaPiWH1F7DwrUl0exb1xFnMwG1H 8t6fPJZ1wMyV+cbrO1FZJ9lYqaj2hqnp1XNxJ0jgVALHyPwZ3mLW5Q1Ray/vtNX6e53n ITDslikTYyvLN9/NLYxPYZIMFZoWOB+Qv3zs3idjdRP5kNZQQacBXq6+ULlGLJO0b/HM cH5g== X-Received: by 10.68.252.194 with SMTP id zu2mr4601612pbc.58.1416913448747; Tue, 25 Nov 2014 03:04:08 -0800 (PST) Original-Received: from fortuna ([221.222.149.119]) by mx.google.com with ESMTPSA id fv4sm1183454pbd.47.2014.11.25.03.04.06 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Tue, 25 Nov 2014 03:04:08 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:96540 Archived-At: The very limited pp.el can easily print hundreds of lines for what can be beautifully put into dozens of lines. This makes the pp'd text hard to read. In the following example, pp would print nearly 300 lines while SBCL's pprint only prints 50ish lines: ([1 ((env nil) (bound nil) (free nil)) ] (([1 ((env nil) (bound nil) (free nil)) ])) (([1 ((env nil) (bound (f tree)) (free nil)) ] (([1 ((env nil) (bound (f)) (free nil)) ]) ([1 ((env nil) (bound (tree)) (free nil)) ])) (([2 ((env (f tree)) (bound nil) (free (f tree))) ] (([2 ((env (f tree)) (bound nil) (free (tree))) ] (([2 ((env (f tree)) (bound nil) (free nil)) ] (([2 ((env (f tree)) (bound nil) (free nil)) ])) (([2 ((env (f tree)) (bound nil) (free nil)) ])))) (([2 ((env (f tree)) (bound nil) (free (tree))) ])))) (([3 ((env (f tree)) (bound nil) (free (f tree))) ] (([3 ((env (f tree)) (bound nil) (free nil)) ])) (([4 ((env (f tree)) (bound nil) (free (f tree))) ] (([4 ((env (f tree)) (bound nil) (free (f))) ])) (([4 ((env (f tree)) (bound nil) (free (tree))) ]))))) ([5 ((env (f tree)) (bound (gs tree1)) (free (f tree))) ] (([5 ((env (f tree)) (bound (gs)) (free nil)) ])) (([6 ((env (f gs tree)) (bound (tree1)) (free (f gs tree))) ] (([6 ((env (f gs tree)) (bound (tree1)) (free nil)) ])) (([6 ((env (f gs tree)) (bound nil) (free (f gs tree))) ] (([6 ((env (f gs tree)) (bound nil) (free nil)) ] (([6 ((env (f gs tree)) (bound nil) (free nil)) ])) (([6 ((env (f gs tree)) (bound nil) (free nil)) ])))) (([6 ((env (f gs tree)) (bound nil) (free (tree))) ] (([6 ((env (f gs tree)) (bound nil) (free nil)) ] (([6 ((env (f gs tree)) (bound nil) (free nil)) ])) (([6 ((env (f gs tree)) (bound nil) (free nil)) ])))) (([6 ((env (f gs tree)) (bound nil) (free (tree))) ]))) ([7 ((env (f gs tree)) (bound nil) (free (f gs))) ] (([7 ((env (f g gs tree)) (bound nil) (free (f g))) ] (([7 ((env (f g gs t tree)) (bound nil) (free (f t))) ] (([7 ((env (f g gs t tree)) (bound nil) (free nil)) ])) (([7 ((env (f g gs t tree)) (bound nil) (free (f))) ]) ([7 ((env (f g gs t tree)) (bound nil) (free (t))) ])))) (([7 ((env (f g gs tree)) (bound (t)) (free (g))) ] (([7 ((env nil) (bound (t)) (free nil)) ])) (([7 ((env (f g gs tree)) (bound nil) (free (g))) ])))))) (([8 ((env (f gs tree)) (bound (g)) (free (gs))) ] (([8 ((env nil) (bound (g)) (free nil)) ])) (([8 ((env (f gs tree)) (bound nil) (free (gs))) ]))))))))) ([9 ((env (f gs tree tree1)) (bound nil) (free (f tree tree1))) ] (([9 ((env (f gs tree tree1)) (bound nil) (free (f))) ])) (([9 ((env (f gs tree tree1)) (bound nil) (free (tree tree1))) ] (([9 ((env (f gs tree tree1)) (bound nil) (free nil)) ] (([9 ((env (f gs tree tree1)) (bound nil) (free nil)) ])) (([9 ((env (f gs tree tree1)) (bound nil) (free nil)) ])))) (([9 ((env (f gs tree tree1)) (bound nil) (free (tree))) ]) ([9 ((env (f gs tree tree1)) (bound nil) (free (tree1))) ])))))))))))))