From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#12677: 24.2.50; `nreverse' complains that ("foo") is not `listp' Date: Thu, 18 Oct 2012 12:25:16 -0700 Message-ID: <26A504004FDA4E18B0A20DF23152CC5D@us.oracle.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1350588404 1229 80.91.229.3 (18 Oct 2012 19:26:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Oct 2012 19:26:44 +0000 (UTC) To: 12677@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Oct 18 21:26:51 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 1TOvk1-0003Wz-L3 for geb-bug-gnu-emacs@m.gmane.org; Thu, 18 Oct 2012 21:26:49 +0200 Original-Received: from localhost ([::1]:55063 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvju-0003YQ-5L for geb-bug-gnu-emacs@m.gmane.org; Thu, 18 Oct 2012 15:26:42 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:59176) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvjq-0003Y8-Rb for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:26:40 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TOvjo-00072C-TY for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:26:38 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:40141) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvjo-000728-PY for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:26:36 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TOvlC-0001Uk-1t for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:28:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 18 Oct 2012 19:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 12677 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.13505884555712 (code B ref -1); Thu, 18 Oct 2012 19:28:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 18 Oct 2012 19:27:35 +0000 Original-Received: from localhost ([127.0.0.1]:50392 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TOvkk-0001U5-NJ for submit@debbugs.gnu.org; Thu, 18 Oct 2012 15:27:35 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:60360) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TOvki-0001Ti-I3 for submit@debbugs.gnu.org; Thu, 18 Oct 2012 15:27:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TOvj9-0006qE-Dd for submit@debbugs.gnu.org; Thu, 18 Oct 2012 15:25:56 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:36329) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvj9-0006qA-9Y for submit@debbugs.gnu.org; Thu, 18 Oct 2012 15:25:55 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:58990) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvj4-0003Q7-7z for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:25:55 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TOvj1-0006kH-M2 for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:25:50 -0400 Original-Received: from acsinet15.oracle.com ([141.146.126.227]:46682) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TOvj1-0006k6-7b for bug-gnu-emacs@gnu.org; Thu, 18 Oct 2012 15:25:47 -0400 Original-Received: from acsinet21.oracle.com (acsinet21.oracle.com [141.146.126.237]) by acsinet15.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id q9IJPgEH031683 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Thu, 18 Oct 2012 19:25:43 GMT Original-Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by acsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id q9IJPfcs001490 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Thu, 18 Oct 2012 19:25:42 GMT Original-Received: from abhmt112.oracle.com (abhmt112.oracle.com [141.146.116.64]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id q9IJPe6v032349 for ; Thu, 18 Oct 2012 14:25:40 -0500 Original-Received: from dradamslap1 (/10.159.186.224) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Thu, 18 Oct 2012 12:25:41 -0700 X-Mailer: Microsoft Office Outlook 11 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 thread-index: Ac2tZk21ej1h+WUcTgq2Gg/ru6wlDg== X-Source-IP: acsinet21.oracle.com [141.146.126.237] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 1) 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:65708 Archived-At: I do not understand this, and I haven't found a way to repro it from emacs -Q. (I can give a much longer recipe, but I doubt you are interested.) Here is the backtrace. The first line makes it clear that the list ("c:/drews-lisp-20/CONTRIB/") is not considered `listp'. But if you just start with (setq dir-names '("c:/drews-lisp-20/CONTRIB/")) there is no problem. Yet `e dir-names' shows that that is the value. And `e (listp dir-names)' returns t. Bizarre. Dunno whether this report will help in any way, but this debugger behavior sure seems odd. Debugger entered--Lisp error: (wrong-type-argument listp ("c:/drews-lisp-20= /CONTRIB/")) nreverse(("c:/drews-lisp-20/CONTRIB/")) (setq dir-names (nreverse (delete "" dir-names))) (prog1 (setq dir-names (nreverse (delete "" dir-names))) (icicle-unbind-f= ile-candidate-keys) (if (interactive-p) (progn (message "Directories: %S" d= ir-names)))) (let* ((icicle-orig-buff (current-buffer)) (icicle-orig-window (selected-= window)) (prompt (or icicle-prompt "Choose directory (`RET' when done): "))= (dir-names nil) (icicle-proxy-candidates (let ((ipc nil)) (if icicle-add-p= roxy-candidates-flag (progn (setq ipc (icicle-remove-if-not ... ...) ipc (a= pply ... ipc) ipc (icicle-remove-if-not ... ipc)))) ipc)) (user-file-pred i= cicle-file-predicate) (icicle-file-predicate (if user-file-pred (function (= lambda (f) (and (file-directory-p f) (funcall user-file-pred f)))) (functio= n file-directory-p))) (icicle-comp-base-is-default-dir-p t) (completion-ign= ore-case (or (and (boundp (quote read-file-name-completion-ignore-case)) re= ad-file-name-completion-ignore-case) completion-ignore-case)) (icicle-show-= Completions-initially-flag (or icicle-show-Completions-initially-flag icicl= e-files-ido-like-flag)) (icicle-top-level-when-sole-completion-flag (or ici= cle-top-level-when-sole-completion-flag icicle-files-ido-like-flag)) (icicl= e-default-value (if (and icicle-files-ido-like-flag icicle-default-value) i= cicle-files-ido-like-flag (and (memq icicle-default-value (quote (t nil))) = icicle-default-value))) (icicle-must-match-regexp icicle-file-match-regexp)= (icicle-must-not-match-regexp icicle-file-no-match-regexp) (icicle-must-pa= ss-after-match-predicate icicle-file-predicate) (icicle-require-match-flag = icicle-file-require-match-flag) (icicle-extra-candidates icicle-file-extras= ) (icicle-transform-function (quote icicle-remove-dups-if-extras)) (icicle-= -temp-orders (copy-sequence icicle-sort-orders-alist)) (icicle-sort-orders-= alist (progn (if (and icicle-file-sort-first-time-p icicle-file-sort) (prog= n (setq icicle-sort-comparer icicle-file-sort icicle-file-sort-first-time-p= nil))) (if icicle-file-sort (let ((already-there ...)) (if already-there (= cons already-there ...) (cons ... icicle--temp-orders))) icicle--temp-order= s))) (icicle-candidate-help-fn (function (lambda (cand) (icicle-describe-fi= le cand current-prefix-arg t)))) (icicle-candidate-alt-action-fn (or icicle= -candidate-alt-action-fn (icicle-alt-act-fn-for-type "file"))) (icicle-all-= candidates-list-alt-action-fn (or icicle-all-candidates-list-alt-action-fn = (icicle-alt-act-fn-for-type "file"))) (icicle-delete-candidate-object (quot= e icicle-delete-file-or-directory)) (icicle-candidate-action-fn (function (= lambda (candidate) (let ((minibuffer-completion-table minibuffer-completion= -table) (minibuffer-completion-predicate minibuffer-completion-predicate) (= minibuffer-completion-confirm minibuffer-completion-confirm) (minibuffer-co= mpleting-file-name minibuffer-completing-file-name) (minibuffer-completing-= symbol ...) (minibuffer-exit-hook minibuffer-exit-hook) (minibuffer-help-fo= rm minibuffer-help-form) (minibuffer-history-variable minibuffer-history-va= riable) (minibuffer-history-case-insensitive-variables minibuffer-history-c= ase-insensitive-variables) (minibuffer-history-sexp-flag minibuffer-history= -sexp-flag) (minibuffer-message-timeout ...) (minibuffer-prompt-properties = ...) (minibuffer-setup-hook minibuffer-setup-hook) (minibuffer-text-before-= history minibuffer-text-before-history)) (setq candidate (expand-file-name = candidate ...)) (let (...) (cond ... ... ... ...)) (select-window (minibuff= er-window)) (select-frame-set-input-focus (selected-frame)) nil))))) (icicl= e-bind-file-candidate-keys) (let ((body (function (lambda nil (let (...) (s= etq icicle-candidate-action-fn nil) (funcall ... file-choice)))))) (cond ((= and debug-on-error debug-on-quit) (condition-case act-on-choice (funcall bo= dy))) (debug-on-error (condition-case act-on-choice (funcall body) (quit (i= cicle-try-switch-buffer icicle-orig-buff) nil))) (debug-on-quit (condition-= case act-on-choice (funcall body) (error (icicle-try-switch-buffer icicle-o= rig-buff) nil (error "%s" (error-message-string act-on-choice))))) (t (cond= ition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer ici= cle-orig-buff) nil) (error (icicle-try-switch-buffer icicle-orig-buff) nil = (error "%s" (error-message-string act-on-choice))))))) (prog1 (setq dir-nam= es (nreverse (delete "" dir-names))) (icicle-unbind-file-candidate-keys) (i= f (interactive-p) (progn (message "Directories: %S" dir-names))))) icicle-directory-list() call-interactively(icicle-directory-list record-it) icicle-execute-extended-command-1("icicle-directory-list") #[...] 9]() funcall(#[...] 9]) icicle-execute-extended-command() call-interactively(icicle-execute-extended-command nil nil) In GNU Emacs 24.2.50.1 (i386-mingw-nt5.1.2600) of 2012-10-15 on DANI-PC Bzr revision: 110553 monnier@iro.umontreal.ca-20121015164957-6zms5w2js1xkld= tg Windowing system distributor `Microsoft Corp.', version 5.1.2600 Configured using: `configure --with-gcc (4.7) --no-opt --enable-checking --cflags -I../../libs/libxpm-3.5.8/include -I../../libs/libxpm-3.5.8/src -I../../libs/libpng-1.4.10 -I../../libs/zlib-1.2.6 -I../../libs/giflib-4.1.4-1/include -I../../libs/jpeg-6b-4/include -I../../libs/tiff-3.8.2-1/include -I../../libs/libxml2-2.7.8-w32-bin/include/libxml2 -I../../libs/gnutls-3.0.16/include -I../../libs/libiconv-1.14-2-mingw32-dev/include'