From b66647472bfd595318b913c50c4ff6f2c91d4bd6 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 6 Sep 2000 01:02:44 +0000 Subject: [PATCH] (remq): New compiler macro. --- lisp/ChangeLog | 4 ++++ lisp/liece-clfns.el | 9 +++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8100a66..a464c05 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-09-06 Daiki Ueno + + * liece-clfns.el (remq): New compiler macro. + 2000-09-05 Akira Ohashi * liece-channel.el (liece-channel-redisplay-buffer): New hook diff --git a/lisp/liece-clfns.el b/lisp/liece-clfns.el index d80c564..e3771a5 100644 --- a/lisp/liece-clfns.el +++ b/lisp/liece-clfns.el @@ -58,6 +58,15 @@ (pop x)) x)))) + (define-compiler-macro remq (&whole form elt list) + (if (liece-clfns-subr-fboundp 'remq) + form + `(let ((elt ,elt) + (list ,list)) + (if (memq elt list) + (delq elt (copy-sequence list)) + list)))) + (define-compiler-macro member-if (&whole form pred list) (if (liece-clfns-subr-fboundp 'member-if) form -- 1.7.10.4