Mercurial > hg > xemacs-beta
comparison lisp/byte-optimize.el @ 5915:1af53d35dd53
Avoid allocation in #'integer-length; add #'logcount.
lisp/ChangeLog addition:
2015-05-29 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns):
Add #'integer-length, #'logcount here.
* cl-extra.el:
* cl-extra.el (integer-length):
Update this to avoid allocating memory.
* cl-extra.el (logcount): New. Return the number of one bits in
INTEGER, if non-negative. Function from Common Lisp.
tests/ChangeLog addition:
2015-05-29 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Test #'integer-length, #'logcount in this file.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 29 May 2015 17:06:24 +0100 |
| parents | 236e4afc565d |
| children |
comparison
equal
deleted
inserted
replaced
| 5914:bd4d2c8ef9cc | 5915:1af53d35dd53 |
|---|---|
| 1301 hash-table-rehash-threshold | 1301 hash-table-rehash-threshold |
| 1302 hash-table-size | 1302 hash-table-size |
| 1303 hash-table-test | 1303 hash-table-test |
| 1304 hash-table-type | 1304 hash-table-type |
| 1305 ;; | 1305 ;; |
| 1306 int-to-string | 1306 integer-length int-to-string |
| 1307 length log log10 logand logb logior lognot logxor lsh | 1307 length log log10 logand logb logcount logior lognot logxor lsh |
| 1308 marker-buffer max member memq min mod | 1308 marker-buffer max member memq min mod |
| 1309 next-window nth nthcdr number-to-string numerator | 1309 next-window nth nthcdr number-to-string numerator |
| 1310 parse-colon-path plist-get previous-window | 1310 parse-colon-path plist-get previous-window |
| 1311 radians-to-degrees rassq rassoc remove remq regexp-quote reverse round | 1311 radians-to-degrees rassq rassoc remove remq regexp-quote reverse round |
| 1312 sin sqrt string< string= string-equal string-lessp string-to-char | 1312 sin sqrt string< string= string-equal string-lessp string-to-char |