Mercurial > hg > xemacs-beta
comparison lisp/cl-extra.el @ 5242:f3eca926258e
Bit vectors are also sequences; enforce this in some CL functions.
lisp/ChangeLog addition:
2010-07-24 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (concatenate):
* cl-seq.el (remove*, cl-delete-duplicates):
Bit vectors are also sequences; enforce this in these functions.
* cl-macs.el (concatenate):
If TYPE is constant, don't inline #'concatenate, replace it by a
call to the appropriate C functions.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 24 Jul 2010 17:38:35 +0100 |
| parents | 7789ae555c45 |
| children | 30bf66dd3ca0 |
comparison
equal
deleted
inserted
replaced
| 5241:d579d76f3dcc | 5242:f3eca926258e |
|---|---|
| 390 ;; XEmacs change: use case instead of cond for clarity | 390 ;; XEmacs change: use case instead of cond for clarity |
| 391 (case type | 391 (case type |
| 392 (vector (apply 'vconcat seqs)) | 392 (vector (apply 'vconcat seqs)) |
| 393 (string (apply 'concat seqs)) | 393 (string (apply 'concat seqs)) |
| 394 (list (apply 'append (append seqs '(nil)))) | 394 (list (apply 'append (append seqs '(nil)))) |
| 395 (bit-vector (apply 'bvconcat seqs)) | |
| 395 (t (error 'invalid-argument "Not a sequence type name" type)))) | 396 (t (error 'invalid-argument "Not a sequence type name" type)))) |
| 396 | 397 |
| 397 ;;; List functions. | 398 ;;; List functions. |
| 398 | 399 |
| 399 (defun revappend (x y) | 400 (defun revappend (x y) |