mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

elisp `member' subrs

Browse source 
* module/language/elisp/boot.el (%member, member, memql, memq): New
  functions.
This commit is contained in:
BT Templeton 2011-08-11 23:20:37 -04:00
parent c7e0d2f81c
commit df9cd3b447
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
module/language/elisp/boot.el
View file

@ -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)