89 |
;; So x and no-x builds won't differ. |
;; So x and no-x builds won't differ. |
90 |
(setq members |
(setq members |
91 |
(sort (copy-sequence members) |
(sort (copy-sequence members) |
92 |
(lambda (x y) |
(lambda (x y) (string< (car x) (car y))))) |
|
(cond ((and (stringp x) (stringp y)) |
|
|
(string< x y)) |
|
|
;; Put all non-strings before strings. |
|
|
((stringp y) t) |
|
|
((stringp x) nil) |
|
|
;; For two non-strings, |
|
|
;; use the order they appear in MEMBERS. |
|
|
(t (member y (member x members))))))) |
|
93 |
(while members |
(while members |
94 |
(setq item (car (car members)) |
(setq item (car (car members)) |
95 |
members (cdr members) |
members (cdr members) |