Mercurial > hg > xemacs-beta
comparison lisp/cl-compat.el @ 4793:8b50bee3c88c
Remove attempted support for 1996-era emacs without self-quoting keywords.
lisp/ChangeLog addition:
2009-12-19 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (cl-do-arglist):
* cl-compat.el (keyword-of):
Remove support in our generated code for emacs versions where
keywords are not self-quoting.
src/ChangeLog addition:
2009-12-19 Aidan Kehoe <kehoea@parhasard.net>
* symbols.c (reject_constant_symbols):
Indicate that accepting attempted modification of keywords is a
temporary thing.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 19 Dec 2009 18:10:20 +0000 |
| parents | b5e1d4f6b66f |
| children | 2a54dfbe434f 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 4783:e29fcfd8df5f | 4793:8b50bee3c88c |
|---|---|
| 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)))) |