From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: MON KEY Newsgroups: gmane.emacs.bugs Subject: bug#7408: Linux patchutils: Development of the project? Date: Sun, 21 Nov 2010 18:19:13 -0500 Message-ID: References: <87y68udfmf.fsf@picasso.cante.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: dough.gmane.org 1290383082 14859 80.91.229.12 (21 Nov 2010 23:44:42 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 21 Nov 2010 23:44:42 +0000 (UTC) Cc: =?UTF-8?Q?=C5=A0t=C4=9Bp=C3=A1n_?= =?UTF-8?Q?N=C4=9Bmec?= , jari.aalto@cante.net To: 7408@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Nov 22 00:44:38 2010 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PKJaH-0007gB-HD for geb-bug-gnu-emacs@m.gmane.org; Mon, 22 Nov 2010 00:44:37 +0100 Original-Received: from localhost ([127.0.0.1]:58137 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PKJaG-0008DH-R6 for geb-bug-gnu-emacs@m.gmane.org; Sun, 21 Nov 2010 18:44:36 -0500 Original-Received: from [140.186.70.92] (port=53873 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PKJaB-0008D2-Py for bug-gnu-emacs@gnu.org; Sun, 21 Nov 2010 18:44:32 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PKJaA-0002Nh-TT for bug-gnu-emacs@gnu.org; Sun, 21 Nov 2010 18:44:31 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:49134) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PKJaA-0002Nb-Pg for bug-gnu-emacs@gnu.org; Sun, 21 Nov 2010 18:44:30 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1PKJ7f-0005y4-4s; Sun, 21 Nov 2010 18:15:03 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <87y68udfmf.fsf@picasso.cante.net> Resent-From: MON KEY Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 21 Nov 2010 23:15:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 7408 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 7408-submit@debbugs.gnu.org id=B7408.129038124322919 (code B ref 7408); Sun, 21 Nov 2010 23:15:03 +0000 Original-Received: (at 7408) by debbugs.gnu.org; 21 Nov 2010 23:14:03 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PKJ6g-0005xc-QQ for submit@debbugs.gnu.org; Sun, 21 Nov 2010 18:14:03 -0500 Original-Received: from mail-wy0-f172.google.com ([74.125.82.172]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PKJ6f-0005xG-Ug for 7408@debbugs.gnu.org; Sun, 21 Nov 2010 18:14:02 -0500 Original-Received: by wyb29 with SMTP id 29so6690273wyb.3 for <7408@debbugs.gnu.org>; Sun, 21 Nov 2010 15:19:15 -0800 (PST) Original-Received: by 10.216.158.140 with SMTP id q12mr3451549wek.14.1290381553629; Sun, 21 Nov 2010 15:19:13 -0800 (PST) Original-Received: by 10.216.70.193 with HTTP; Sun, 21 Nov 2010 15:19:13 -0800 (PST) X-Google-Sender-Auth: dyDOzz8NOANEyDt8NiPRdouiAhA X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Sun, 21 Nov 2010 18:15:03 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:41808 Archived-At: > Show me a piece of code which would work with CL's dolist (but without > CL's return) and yet doesn't work with subr.el's dolist. Well, FWIW following is the toplevel/main interface to my elisp implementation of Steel Bank Common Lisp's `map1' which in turn is that implementation's high-level driver for its portable Common Lisp mapping procedures. Among other things, my port to elisp required adding a cath/throw inside of a dolist b/c Elisp's `dolist' doesn't have `return'. Indeed, I was as surprised by the same `dolist' disconnect which Jari is currently poking at. What I found troubling was the process required to locate the locus of this disconnect... In so much as Elisp code transitions silently between the two versions of dolist it should do transparently. BTW - the impetus for this routine was w/re incorporating more cl seq fun into core but without the keyword overhead... ;;; :COURTESY SBCL :FILE sbcl/src/code/list.lisp (defun mon-map1 (fun-designator original-arglists accumulate take-car) (unless (functionp fun-designator) (error (concat ":FUNCTION `mon-map1' " "-- arg FUN-DESIGNATOR does not satisfy `functionp'"))) (let* ((mmp1-arg-lsts (mon-copy-list-mac original-arglists)) (mmp1-rtn-list (list nil)) (mmp1-tmp mmp1-rtn-list)) (do ((mmp1-rslt nil) (mmp1-args '() '())) ((catch 'is-null ;; :ADDED (dolist (mmp1-thrw mmp1-arg-lsts nil) (when (null mmp1-thrw) ;; :WAS (return t))) (throw 'is-null t)))) (if accumulate (cdr mmp1-rtn-list) (car original-arglists))) (do ((mmp1-arg-l mmp1-arg-lsts (cdr mmp1-arg-l))) ((null mmp1-arg-l)) (push (if take-car (caar mmp1-arg-l) (car mmp1-arg-l)) mmp1-args) (setf (car mmp1-arg-l) (cdar mmp1-arg-l))) (setq mmp1-rslt (apply fun-designator (nreverse mmp1-args))) (case accumulate (:nconc (setq mmp1-tmp (last (nconc mmp1-tmp mmp1-rslt)))) (:list (setcdr mmp1-tmp (list mmp1-rslt)) (setq mmp1-tmp (cdr mmp1-tmp)))))))