 - (defun foo (l)
- (vl-sort
- l
- (function
- (lambda (e1 e2 / is no a b)
- (while
- (and (setq a (car e1)) (setq b (car e2)) (not is) (not no))
- (if (/= (type a) (type b))
- (if (= (type a) 'STR)
- (setq is t)
- (setq no t)
- )
- (if (< (car e1) (car e2))
- (setq is t)
- (if (> (car e1) (car e2))
- (setq no T)
- )
- )
- )
- (setq e1 (cdr e1)
- e2 (cdr e2)
- )
- )
- (if is
- (not no)
- (if no
- nil
- e2
- )
- )
- )
- )
- )
- )
|