Mercurial > hg > xemacs-beta

comparison lisp/cl-compat.el @ 2153:393039450288

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-06-26 21:25:23 by james] Synch with Emacs 21.3.
author james
date Sat, 26 Jun 2004 21:25:24 +0000
parents 023b83f4e54b
children 8f1ee2d15784
comparison
equal deleted inserted replaced
2152:d93fedcbf6be 2153:393039450288
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 ;; 02111-1307, USA. 24 ;; 02111-1307, USA.
25 25
26 ;;; Synched up with: FSF 19.34. 26 ;;; Synched up with: FSF 21.3.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; These are extensions to Emacs Lisp that provide a degree of 30 ;; These are extensions to Emacs Lisp that provide a degree of
31 ;; Common Lisp compatibility, beyond what is already built-in 31 ;; Common Lisp compatibility, beyond what is already built-in
53 53
54 ;;; Keyword routines not supported by new package. 54 ;;; Keyword routines not supported by new package.
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
59 ;; XEmacs change.
60 ;; We have built-in function.
61 ;;(defun keywordp (sym)
62 ;; (and (symbolp sym) (eq (aref (symbol-name sym) 0) ?\:) (set sym sym)))
63 58
64 (defun keyword-of (sym) 59 (defun keyword-of (sym)
65 (or (keywordp sym) (keywordp (intern (format ":%s" sym))))) 60 (or (keywordp sym) (keywordp (intern (format ":%s" sym)))))
66 61
67 62
190 ;;; all names with embedded `$'. 185 ;;; all names with embedded `$'.
191 186
192 187
193 (provide 'cl-compat) 188 (provide 'cl-compat)
194 189
190 ;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163
195 ;;; cl-compat.el ends here 191 ;;; cl-compat.el ends here
196