[xyzzy:04728] sort

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

こんにちは、山本です。

次のようにしたら、はまってしまったのですが理由がわかりません。
どなたか、この若輩者に教えて頂けないでしょうか？


(defun my-string< (a b)
  (cond ((string= a b))
	((or (string-match (concat "^" (regexp-quote a)) b)
	     (string-match (concat "^" (regexp-quote b)) a))
	 (not (string< a b)))
	(t
	 (string< a b))))

(sort '("aa" "aaa" "bb") #'my-string<)


-- 
山本真二           sinj@xxxxxxxxxxxx