From: ueno <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/?p=elisp%2Fliece.git;a=commitdiff_plain;h=b66647472bfd595318b913c50c4ff6f2c91d4bd6

(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  <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
--- 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