From: MON KEY <monkey@sandpframing.com>
To: 7408@debbugs.gnu.org
Cc: "Štěpán Němec" <stepnem@gmail.com>, jari.aalto@cante.net
Subject: bug#7408: Linux patchutils: Development of the project?
Date: Sun, 21 Nov 2010 18:19:13 -0500 [thread overview]
Message-ID: <AANLkTinAusRpaLDyC9Gn3g=oa-OVsvkr_=42LZUmJF1h@mail.gmail.com> (raw)
In-Reply-To: <87y68udfmf.fsf@picasso.cante.net>
> 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)))))))
next prev parent reply other threads:[~2010-11-21 23:19 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-11-15 10:51 bug#7408: 23.2.1 dolist -- subr.el and cl-macs differ with nil-block return Jari Aalto
2010-11-15 17:22 ` Stefan Monnier
2010-11-15 17:49 ` Lennart Borgman
2010-11-15 19:38 ` Stefan Monnier
[not found] ` <handler.7408.D7408.12898423464754.notifdone@debbugs.gnu.org>
2010-11-15 21:21 ` bug#7408: closed (Re: bug#7408: 23.2.1 dolist -- subr.el and cl-macs differ with nil-block return) jari
2010-11-15 21:57 ` bug#7408: 23.2.1 dolist -- subr.el and cl-macs differ with nil-block return Glenn Morris
2010-11-21 23:19 ` MON KEY [this message]
[not found] <r6eo4w45.fsf@blue.sea.net>
[not found] ` <1213200935.4147.62.camel@cyberelk.elk>
2010-11-16 21:25 ` bug#7408: Linux patchutils: Development of the project? Jari Aalto
2010-11-16 21:59 ` Lennart Borgman
2010-11-16 22:21 ` Stefan Monnier
2010-11-17 4:47 ` jari
2010-11-17 8:25 ` Glenn Morris
2010-11-17 13:39 ` Stefan Monnier
2010-11-17 12:47 ` Štěpán Němec
2010-11-17 13:39 ` Stefan Monnier
2010-11-17 14:18 ` martin rudalics
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='AANLkTinAusRpaLDyC9Gn3g=oa-OVsvkr_=42LZUmJF1h@mail.gmail.com' \
--to=monkey@sandpframing.com \
--cc=7408@debbugs.gnu.org \
--cc=jari.aalto@cante.net \
--cc=stepnem@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.