Sorting

Does anyone have a program that sorts alphabetically. What type of sort does it do? I'm trying to collect different alphabetical sorts to benchmark them.

(defun sort-strings (&rest strings) (sort strings #'string<))

(sort-strings "vip" "quality" "c" "cdr" "car" "cudder")
("c" "car" "cdr" "cudder" "quality" "vip")

(define (sort-strings . strings) (sort strings string<?))

(sort-strings "vip" "quality" "c" "cdr" "car" "cudder")
'("c" "car" "cdr" "cudder" "quality" "vip")