Mercurial > hg > xemacs-beta

comparison lisp/cl-compat.el @ 4833:4dd2389173fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sun, 10 Jan 2010 01:06:15 -0600
parents 8b50bee3c88c
children 2a54dfbe434f 308d34e9f07d
comparison
equal deleted inserted replaced
4832:07fa38c30fdf 4833:4dd2389173fc
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))))