gnu-emacs-sources
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: elisp.m4


From: Thien-Thi Nguyen
Subject: Re: elisp.m4
Date: Tue, 10 Jan 2017 17:09:33 -0000
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)

() Stefan Monnier <address@hidden>
() Wed, 09 Nov 2016 15:01:45 -0500

   I can't see why flet should be a problem in this respect.
   It's easy to replace uses of `flet` with uses of `cl-letf`.
   E.g.

       (flet ((f (arg) body))
         ...)

   turns into

       (cl-letf (((symbol-function 'f) (lambda (arg) body)))
         ...)

Yeah, i suppose that's workable.  EDB 1.32 (announcement pending
net.unglitching) lames out, however, w/ this choice tidbit:

 (unless (require 'cl-lib nil t)
   ;; Add other ‘cl-lib’ time travellers here.
   (defalias 'cl-loop 'loop)
   (defalias 'cl-labels 'labels)
   ;; The following are arguably sick and wrong.  So it goes.
   (defalias 'cl-flet* 'labels)
   (defalias 'cl-flet 'flet))
 
How's THAT for stomach-churning?!  :-D

-- 
Thien-Thi Nguyen -----------------------------------------------
 (defun responsep (type via)
   (case type
     (technical (eq 'mailing-list via))
     ...))                              748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502

Attachment: signature.asc
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]