Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 5635:2fc3f2f35523
Put back compatibility alias for #'cl-puthash, used by 21.4's setf expansion
2012-01-02 Aidan Kehoe <kehoea@parhasard.net>
* obsolete.el (cl-puthash): Put back a compatibility alias for
this, setf-expansion of #'gethash calls it on 21.4, so it will
occur in packages for a while to come.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 02 Jan 2012 13:35:31 +0000 |
| parents | 10f179710250 |
| children | cc6f0266bc36 |
comparison
equal
deleted
inserted
replaced
| 5634:2014ff433daf | 5635:2fc3f2f35523 |
|---|---|
| 254 ;; 12:06:41 IST 2010 | 254 ;; 12:06:41 IST 2010 |
| 255 (defun cl-delete-duplicates (cl-seq cl-keys cl-copy) | 255 (defun cl-delete-duplicates (cl-seq cl-keys cl-copy) |
| 256 (apply (if cl-copy #'remove-duplicates #'delete-duplicates) cl-seq cl-keys)) | 256 (apply (if cl-copy #'remove-duplicates #'delete-duplicates) cl-seq cl-keys)) |
| 257 | 257 |
| 258 (make-obsolete 'cl-delete-duplicates 'delete-duplicates) | 258 (make-obsolete 'cl-delete-duplicates 'delete-duplicates) |
| 259 | |
| 260 ;; This occurs because of setf expansion by 21.4, changing the affected | |
| 261 ;; packages won't fix that. | |
| 262 (define-obsolete-function-alias 'cl-puthash 'puthash) | |
| 259 | 263 |
| 260 ; old names | 264 ; old names |
| 261 (define-compatible-function-alias 'byte-code-function-p | 265 (define-compatible-function-alias 'byte-code-function-p |
| 262 'compiled-function-p) ;FSFmacs | 266 'compiled-function-p) ;FSFmacs |
| 263 | 267 |