Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 5471:00e79bbbe48f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 14 Feb 2011 22:43:46 +0100
parents 0af042a0c116 22c4e67a2e69
children 248176c74e6b
comparison
equal deleted inserted replaced
5470:0af042a0c116 5471:00e79bbbe48f
540 (defalias 'cl-ceiling 'ceiling*) 540 (defalias 'cl-ceiling 'ceiling*)
541 (defalias 'cl-truncate 'truncate*) 541 (defalias 'cl-truncate 'truncate*)
542 (defalias 'cl-round 'round*) 542 (defalias 'cl-round 'round*)
543 (defalias 'cl-mod 'mod*) 543 (defalias 'cl-mod 'mod*)
544 544
545 (defun acons (key value alist) 545 ;;; XEmacs; #'acons is in C.
546 "Return a new alist created by adding (KEY . VALUE) to ALIST."
547 (cons (cons key value) alist))
548 546
549 (defun pairlis (keys values &optional alist) 547 (defun pairlis (keys values &optional alist)
550 "Make an alist from KEYS and VALUES. 548 "Make an alist from KEYS and VALUES.
551 Return a new alist composed by associating KEYS to corresponding VALUES; 549 Return a new alist composed by associating KEYS to corresponding VALUES;
552 the process stops as soon as KEYS or VALUES run out. 550 the process stops as soon as KEYS or VALUES run out.