Mercurial > hg > xemacs-beta

comparison lisp/cl-extra.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 8bec6624d99b
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
72 ((eq type 'vector) (if (vectorp x) x (vconcat x))) 72 ((eq type 'vector) (if (vectorp x) x (vconcat x)))
73 ((eq type 'string) (if (stringp x) x (concat x))) 73 ((eq type 'string) (if (stringp x) x (concat x)))
74 ((eq type 'array) (if (arrayp x) x (vconcat x))) 74 ((eq type 'array) (if (arrayp x) x (vconcat x)))
75 ((and (eq type 'character) (stringp x) (= (length x) 1)) (aref x 0)) 75 ((and (eq type 'character) (stringp x) (= (length x) 1)) (aref x 0))
76 ((and (eq type 'character) (symbolp x)) (coerce (symbol-name x) type)) 76 ((and (eq type 'character) (symbolp x)) (coerce (symbol-name x) type))
77 ((and (eq type 'character) (numberp x) (char-or-char-int-p x) 77 ((and (eq type 'character) (char-int-p x)) (int-char x))
78 (int-char x))) 78 ((and (eq type 'integer) (characterp x)) (char-int x))
79 ((eq type 'float) (float x)) 79 ((eq type 'float) (float x))
80 ((eq type 'bit-vector) (if (bit-vector-p x) x 80 ((eq type 'bit-vector) (if (bit-vector-p x) x
81 (apply 'bit-vector (append x nil)))) 81 (apply 'bit-vector (append x nil))))
82 ((eq type 'weak-list) 82 ((eq type 'weak-list)
83 (if (weak-list-p x) x 83 (if (weak-list-p x) x