From: ueno Date: Wed, 6 Sep 2000 01:02:44 +0000 (+0000) Subject: (remq): New compiler macro. X-Git-Tag: liece-1_4_4-1~28 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b66647472bfd595318b913c50c4ff6f2c91d4bd6;p=elisp%2Fliece.git (remq): New compiler macro. --- 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