Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 5387:5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
2011-03-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (cl-finite-do, cl-float-limits):
Don't make these available as functions in the dumped image (let
them be garbage-collected), since they're only called at dump
time.
* obsolete.el (cl-float-limits):
Make this an alias to #'identity (since it's called at dump time),
mark it as obsolete in 21.5.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 29 Mar 2011 23:27:46 +0100 |
| parents | ed74d2ca7082 |
| children | 248176c74e6b |
comparison
equal
deleted
inserted
replaced
| 5385:436e67ca8c79 | 5387:5f5d48053e86 |
|---|---|
| 241 (make-obsolete | 241 (make-obsolete |
| 242 'obsolete-throw | 242 'obsolete-throw |
| 243 "it says `obsolete' in the name, you know you shouldn't be using this.") | 243 "it says `obsolete' in the name, you know you shouldn't be using this.") |
| 244 | 244 |
| 245 (define-compatible-function-alias 'cl-mapc 'mapc) | 245 (define-compatible-function-alias 'cl-mapc 'mapc) |
| 246 | |
| 247 ;; Various non-XEmacs code can call this, because it used not be | |
| 248 ;; called automatically at dump time. | |
| 249 (define-function 'cl-float-limits 'ignore) | |
| 250 (make-obsolete 'cl-float-limits "this is called at dump time in 21.5 and \ | |
| 251 later, no need to call it in user code.") | |
| 246 | 252 |
| 247 ;; XEmacs; old compiler macros meant that this was called directly | 253 ;; XEmacs; old compiler macros meant that this was called directly |
| 248 ;; from compiled code, and we need to provide a version of it for a | 254 ;; from compiled code, and we need to provide a version of it for a |
| 249 ;; couple of years at least because of that. Aidan Kehoe, Mon Oct 4 | 255 ;; couple of years at least because of that. Aidan Kehoe, Mon Oct 4 |
| 250 ;; 12:06:41 IST 2010 | 256 ;; 12:06:41 IST 2010 |