X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/c7e0d2f81c6c9761337f52c0a44c024ad5a3e82a..df9cd3b447d5dd1397b792a6a241e9136cc1b86f:/module/language/elisp/boot.el

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index f14ab4610..866578fe4 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -366,6 +366,24 @@
 (defun nth (n list)
   (car (nthcdr n list)))
 
+(defun %member (elt list test)
+  (cond
+   ((null list) nil)
+   ((consp list)
+    (if (funcall test elt (car list))
+        list
+      (%member elt (cdr list) test)))
+   (t (signal 'wrong-type-argument `(listp ,list)))))
+
+(defun member (elt list)
+  (%member elt list #'equal))
+
+(defun memql (elt list)
+  (%member elt list #'eql))
+
+(defun memq (elt list)
+  (%member elt list #'eq))
+
 ;;; Strings
 
 (defun string (&rest characters)