(remq): New compiler macro.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8100a66..a464c05 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-06   Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-clfns.el (remq): New compiler macro.
+
 2000-09-05  Akira Ohashi  <bg66@luck.gr.jp>
 
        * 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 (file)
--- 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