Mercurial > emacs
comparison lisp/=cl.el @ 3168:762660cd6d9d
(cl-member): Renamed from member.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 May 1993 04:45:55 +0000 |
| parents | 6b62c36ce82e |
| children | 0047b8501fce |
comparison
equal
deleted
inserted
replaced
| 3167:e4bcdaa214b1 | 3168:762660cd6d9d |
|---|---|
| 1415 ;;;; Some functions with keyword arguments | 1415 ;;;; Some functions with keyword arguments |
| 1416 ;;;; | 1416 ;;;; |
| 1417 ;;;; Both list and sequence functions are considered here together. This | 1417 ;;;; Both list and sequence functions are considered here together. This |
| 1418 ;;;; doesn't fit any more with the original split of functions in files. | 1418 ;;;; doesn't fit any more with the original split of functions in files. |
| 1419 | 1419 |
| 1420 (defun member (item list &rest kargs) | 1420 (defun cl-member (item list &rest kargs) |
| 1421 "Look for ITEM in LIST; return first tail of LIST the car of whose first | 1421 "Look for ITEM in LIST; return first tail of LIST the car of whose first |
| 1422 cons cell tests the same as ITEM. Admits arguments :key, :test, and | 1422 cons cell tests the same as ITEM. Admits arguments :key, :test, and |
| 1423 :test-not." | 1423 :test-not." |
| 1424 (if (null kargs) ;treat this fast for efficiency | 1424 (if (null kargs) ;treat this fast for efficiency |
| 1425 (memq item list) | 1425 (memq item list) |