Mercurial > hg > xemacs-beta
comparison lisp/cl-extra.el @ 446:1ccc32a20af4 r21-2-38
Import from CVS: tag r21-2-38
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:37:21 +0200 |
| parents | abe6d1db359e |
| children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
| 445:34f3776fcf0e | 446:1ccc32a20af4 |
|---|---|
| 74 ((eq type 'vector) (if (vectorp x) x (vconcat x))) | 74 ((eq type 'vector) (if (vectorp x) x (vconcat x))) |
| 75 ((eq type 'string) (if (stringp x) x (concat x))) | 75 ((eq type 'string) (if (stringp x) x (concat x))) |
| 76 ((eq type 'array) (if (arrayp x) x (vconcat x))) | 76 ((eq type 'array) (if (arrayp x) x (vconcat x))) |
| 77 ((and (eq type 'character) (stringp x) (= (length x) 1)) (aref x 0)) | 77 ((and (eq type 'character) (stringp x) (= (length x) 1)) (aref x 0)) |
| 78 ((and (eq type 'character) (symbolp x)) (coerce (symbol-name x) type)) | 78 ((and (eq type 'character) (symbolp x)) (coerce (symbol-name x) type)) |
| 79 ((and (eq type 'character) (numberp x) (char-or-char-int-p x) | 79 ((and (eq type 'character) (char-int-p x)) (int-char x)) |
| 80 (int-char x))) | 80 ((and (eq type 'integer) (characterp x)) (char-int x)) |
| 81 ((eq type 'float) (float x)) | 81 ((eq type 'float) (float x)) |
| 82 ((eq type 'bit-vector) (if (bit-vector-p x) x | 82 ((eq type 'bit-vector) (if (bit-vector-p x) x |
| 83 (apply 'bit-vector (append x nil)))) | 83 (apply 'bit-vector (append x nil)))) |
| 84 ((eq type 'weak-list) | 84 ((eq type 'weak-list) |
| 85 (if (weak-list-p x) x | 85 (if (weak-list-p x) x |