Mercurial > hg > xemacs-beta

comparison lisp/cl-compat.el @ 5125:b5df3737028a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 01:58:04 -0600
parents 8b50bee3c88c
children 2a54dfbe434f 308d34e9f07d
comparison
equal deleted inserted replaced
5124:623d57b7fbe8 5125:b5df3737028a
55 55
56 (defmacro defkeyword (x &optional doc) 56 (defmacro defkeyword (x &optional doc)
57 (list* 'defconst x (list 'quote x) (and doc (list doc)))) 57 (list* 'defconst x (list 'quote x) (and doc (list doc))))
58 58
59 (defun keyword-of (sym) 59 (defun keyword-of (sym)
60 (or (keywordp sym) (keywordp (intern (format ":%s" sym))))) 60 (or (keywordp sym) (keywordp (read (format ":%s" sym)))))
61 61
62 ;;; Routines for parsing keyword arguments. 62 ;;; Routines for parsing keyword arguments.
63 63
64 (defun build-klist (arglist keys &optional allow-others) 64 (defun build-klist (arglist keys &optional allow-others)
65 (let ((res (multiple-value-call 'mapcar* 'cons (unzip-lists arglist)))) 65 (let ((res (multiple-value-call 'mapcar* 'cons (unzip-lists arglist))))