From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Constantin Kulikov Newsgroups: gmane.emacs.devel Subject: Re: Lambda in macrolet becomes a closure? (another breaking change in emacs:)) Date: Tue, 27 Sep 2016 14:53:18 +0300 Message-ID: References: <871t07271d.fsf@web.de> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a1140fcd805f83a053d7be4e1 X-Trace: blaine.gmane.org 1474977680 20157 195.159.176.226 (27 Sep 2016 12:01:20 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 27 Sep 2016 12:01:20 +0000 (UTC) Cc: Stefan Monnier To: emacs-devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Sep 27 14:01:13 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bor4C-0002iI-7d for ged-emacs-devel@m.gmane.org; Tue, 27 Sep 2016 14:00:56 +0200 Original-Received: from localhost ([::1]:50103 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bor4C-00062F-Jy for ged-emacs-devel@m.gmane.org; Tue, 27 Sep 2016 08:00:56 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50994) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1boqwr-00065E-Ct for emacs-devel@gnu.org; Tue, 27 Sep 2016 07:53:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1boqwq-0007sI-Ei for emacs-devel@gnu.org; Tue, 27 Sep 2016 07:53:21 -0400 Original-Received: from mail-io0-x232.google.com ([2607:f8b0:4001:c06::232]:33435) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1boqwq-0007sC-7F for emacs-devel@gnu.org; Tue, 27 Sep 2016 07:53:20 -0400 Original-Received: by mail-io0-x232.google.com with SMTP id r145so13039743ior.0 for ; Tue, 27 Sep 2016 04:53:20 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc; bh=S5jIqgq5UZ7mmezfXMe6Pub5QKeD4VVs89gdqMSbPd4=; b=oQfGr7tfCw/jw4BOjV7ga9LtHftdRz39kXzk8m3nfB3GwrXZv6qirCya2KK2GKoemK dkQQwuqMh0ZHrWlmeojN0bLhYVvyfjfP1VQOCRiD214XM3P3mCLvb+UKwcLbOWdpvrh0 TuZ64MOGEIDw3qxe+GntT6dhUSDME0AQUlIlbL39MLyt5SGO/hfAVVu8snWyqqlmq+54 lUidRmQPxU6sPZA6eZEsfJXhOjP6ABe1Kob1zPT/7Ta4YEe4LrC4Hvkyk1DHyv7OYanH T/u3IzrdHfI3wY1AystotyGDPCKLECfdXq4V04Zer/Mp+qFfLyr07hJ9dvXS2K8S4xhh qrZQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc; bh=S5jIqgq5UZ7mmezfXMe6Pub5QKeD4VVs89gdqMSbPd4=; b=BU8cXz3rjjgMQErQmNyuMf8TMMNBseRhPTtlzJs0H9xK5LvXy1bLqdy/NyLCZN71V/ hLs4JVkHeeXIzCDdAv7KyGsK2CkipnCyMPRQ/R1MJXkBoB5Ev1nwqpMpX4zwElqmHCeA qBpxShuZXpPRS0smSBbYCM9WhKxOPqb8lTJ0bkHvpVJRUyztHlMbsZG7gqAR0k/mih+g kwVmUpvKUfatwoiziOv7he3nQwzkOzlA3QXa1vuqmSMDXi0QHc3F8Uk4jFvzSSruTSeG AIp3crG4GboWmRPQEhextRoTDr5PChKm5JNjxNO2wgli6SUlWLyNeLFhYUPhjbH/EFsR URdQ== X-Gm-Message-State: AE9vXwMSJkknpGDLp9hSzlUAo4aTSad71jn7NhJJn9U+ThGh5HbTNYdGAmHE0qki7toa1jEG4jl1N2pP2n242A== X-Received: by 10.107.161.210 with SMTP id k201mr32787911ioe.65.1474977199409; Tue, 27 Sep 2016 04:53:19 -0700 (PDT) Original-Received: by 10.79.12.213 with HTTP; Tue, 27 Sep 2016 04:53:18 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:4001:c06::232 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:207830 Archived-At: --001a1140fcd805f83a053d7be4e1 Content-Type: text/plain; charset=UTF-8 Also, by looking at `minibuffer-with-setup-hook': (defmacro minibuffer-with-setup-hook (fun &rest body) (declare (indent 1) (debug t)) (let ((hook (make-symbol "setup-hook")) (funsym (make-symbol "fun")) (append nil)) (when (eq (car-safe fun) :append) (setq append '(t) fun (cadr fun))) `(let ((,funsym ,fun) ,hook) (setq ,hook (lambda () ;; Clear out this hook so it does not interfere ;; with any recursive minibuffer usage. (remove-hook 'minibuffer-setup-hook ,hook) (funcall ,funsym))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook ,hook ,@append) ,@body) (remove-hook 'minibuffer-setup-hook ,hook))))) There is no quotation of the fun, funsym or hook. Is it correct? --001a1140fcd805f83a053d7be4e1 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Also, by looking at `minibuffer-with-setup-hook':=

(defmacro minibuffer-with-setup-hook (fun &rest body)
=C2=A0 (declare (indent 1) (debug t))
=C2=A0 (let ((hook = (make-symbol "setup-hook"))
=C2=A0 =C2=A0 =C2=A0 =C2=A0= (funsym (make-symbol "fun"))
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 (append nil))
=C2=A0 =C2=A0 (when (eq (car-safe fun) :append)=
=C2=A0 =C2=A0 =C2=A0 (setq append '(t) fun (cadr fun)))
=C2=A0 =C2=A0 `(let ((,funsym ,fun)
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0,hook)
=C2=A0 =C2=A0 =C2=A0 =C2=A0(setq ,hook=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(lambda ()
=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0;; Clear out th= is hook so it does not interfere
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0;; with any recursive minibuffer usage.
= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(remove-hook 'mi= nibuffer-setup-hook ,hook)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0(funcall ,funsym)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0(= unwind-protect
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(progn
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-hook 'mini= buffer-setup-hook ,hook ,@append)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0,@body)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(remov= e-hook 'minibuffer-setup-hook ,hook)))))

There is no quotation of the fun, funsym or hook. Is it correct?
--001a1140fcd805f83a053d7be4e1--