[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
signature.asc
Description: PGP signature
- Re: elisp.m4,
Thien-Thi Nguyen <=