From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#11652: 24.1.50; CL: diverse `labels' related code doesn't work anymore Date: Fri, 08 Jun 2012 17:23:56 +0200 Message-ID: <874nqlu8s3.fsf@web.de> Reply-To: michael_heerdegen@web.de NNTP-Posting-Host: plane.gmane.org X-Trace: dough.gmane.org 1339168983 28972 80.91.229.3 (8 Jun 2012 15:23:03 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 8 Jun 2012 15:23:03 +0000 (UTC) To: 11652@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jun 08 17:23:01 2012 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 1Sd11g-0002X4-7Y for geb-bug-gnu-emacs@m.gmane.org; Fri, 08 Jun 2012 17:23:00 +0200 Original-Received: from localhost ([::1]:45565 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd11g-0005gL-1b for geb-bug-gnu-emacs@m.gmane.org; Fri, 08 Jun 2012 11:23:00 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:47578) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd11V-0005g9-Ie for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:57 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Sd11P-0002qU-5o for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:49 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:53888) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd11P-0002qQ-1v for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:43 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1Sd13e-0003lm-EB for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:25:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 08 Jun 2012 15:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 11652 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.133916909114471 (code B ref -1); Fri, 08 Jun 2012 15:25:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 8 Jun 2012 15:24:51 +0000 Original-Received: from localhost ([127.0.0.1]:35201 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Sd13S-0003lL-No for submit@debbugs.gnu.org; Fri, 08 Jun 2012 11:24:51 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:37479) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Sd13Q-0003l5-BU for submit@debbugs.gnu.org; Fri, 08 Jun 2012 11:24:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Sd10z-0002n9-Pr for submit@debbugs.gnu.org; Fri, 08 Jun 2012 11:22:22 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:53605) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd10z-0002mz-N5 for submit@debbugs.gnu.org; Fri, 08 Jun 2012 11:22:17 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:47439) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd10u-0004nB-Ol for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Sd10s-0002mB-EF for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:12 -0400 Original-Received: from mout.web.de ([212.227.17.12]:56143) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sd10s-0002lo-2u for bug-gnu-emacs@gnu.org; Fri, 08 Jun 2012 11:22:10 -0400 Original-Received: from snow.dragon ([89.204.130.232]) by smtp.web.de (mrweb001) with ESMTPSA (Nemesis) id 0MUnqm-1STCKY3z6i-00YUF2 for ; Fri, 08 Jun 2012 17:22:07 +0200 X-Provags-ID: V02:K0:QU/lyem7Bcv61os0Dlah5Ya8Zni2ip9pSyVwquMnXw5 uvUWMpWYD25l7ctoNpz9FIXWMsmXdgYvcPhWwWQ4mwEweAwf/q GyF2rX7UeZ5iK8fgwQGlYuxAfQYyQ2FbMPaLJ+13Tgl5llYNYC qTonqWfQnFlgwv98SPklM5BjK5hufpCEG+Rn6BBmv1CGY1E21J smg3+CTp7N7vWbBI3u/WfyVgjtkmQD6HfYPJ3HW7CM= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) 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:60782 Archived-At: Hi, today I upgraded to GNU Emacs 24.1.50.1 (i486-pc-linux-gnu, GTK+ Version 3.4.2)\n of 2012-06-08 on zelenka, modified by Debian Diverse stuff involving `labels' doesn't work anymore, e.g.: 1. (labels ((subdirs-of (dir) (if (not (file-directory-p dir)) nil (let ((l (directory-files dir 'full-name nil 'nosort))) (loop for file in l unless (or (member (file-name-nondirectory file) '("." "..")) (not (file-directory-p (file-truename file)))) collect file)))) (add-dirs-to-load-path ;recursive (&rest dirs) (when dirs (let ((first (car dirs))) (callf2 cons first load-path) (apply 'add-dirs-to-load-path (append (subdirs-of first) (cdr dirs) nil)))))) (add-dirs-to-load-path "~/gnu-emacs")) ==> Error: apply: Symbol's function definition is void: add-dirs-to-load-path This had worked before. 2. (defun is-list-p (obj) "Return t if OBJ is a true list and nil else. So called \"dotted lists\" whose final cdr is not nil satisfy `listp', but not `is-list-p'." (and (listp obj) (null (cdr (last obj))))) (defmacro* do-nodes ((var &rest code) tree &optional pred) "Traverse all nodes of TREE with with `setf'-able references. Let VAR traverse all subtrees of TREE with depth-first search as `setf'-able reference. You can use `setf' to modify the element referenced by VAR, thus modifying TREE. It is a generalization of CL-`loop's \"of-ref\" clause. This is a convenient way to modify certain elements in a tree structure. With PRED given, recurse only on sequences holding PRED. \(Note: Generalized vars collaps to their values when passed to functions.\) Examples: (let ((l '(((-1 (0))) 1 2 3 (4 5 (((6))))))) (do-nodes (i (when (and (numberp i) (> i 2)) (incf i 1000))) l) l) => (((-1 (0))) 1 2 1003 (1004 1005 (((1006))))) ---- (do-nodes (i (when (equal i '(1 2)) (setq i 'foo))) '((1 2) 1 2 ((1 2)))) => (foo 1 2 (foo))" (declare (indent 1)) (callf or pred 'sequencep) `(labels ((helper (tree) (loop for ,var being the elements of-ref tree do (progn ,@code (when (and (or (is-list-p ,var) (arrayp ,var)) (,pred ,var)) (helper ,var)))) tree)) (helper ,tree))) (do-nodes (i (when (equal i '(1 2)) (setq i 'foo))) '((1 2) 1 2 ((1 2)))) ==> Error equal: Symbol's value as variable is void: temp-idx This also worked before the upgrade. 3. Just FYI: when I updated emacs-snapshot with aptitude on my Debian machine, the installation aborted because compilation of the Emms package files failed. I had to remove EMMS. This could be related, dunno. In GNU Emacs 24.1.50.1 (i486-pc-linux-gnu, GTK+ Version 3.4.2) of 2012-06-08 on zelenka, modified by Debian (emacs-snapshot package, version 2:20120608-1) Windowing system distributor `The X.Org Foundation', version 11.0.11201902 Configured using: `configure '--build' 'i486-linux-gnu' '--host' 'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/24.1.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.1.50/site-lisp:/usr/share/emacs/site-lisp' '--without-compress-info' '--with-crt-dir=/usr/lib/i386-linux-gnu/' '--with-x=yes' '--with-x-toolkit=gtk3' '--with-imagemagick=yes' 'build_alias=i486-linux-gnu' 'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g -O2' 'LDFLAGS=-g -Wl,--as-needed -znocombreloc' 'CPPFLAGS=-D_FORTIFY_SOURCE=2''