Don't (SORT <list of strings> 'ALPHALESSP), or else...

[David C. Plummer <DCP at MIT-MC>]

:l<space>
n

(make-string 0)
;Loading ...
""
(sort '("foo" "bar") 'alphalessp)
;Loading SORT 12
;(NIL "bar" "foo") NIL CLOBBERED

;BKPT FAIL-ACT

(sort '("foo" "bar" "baz") 'alphalessp)
;(NIL "baz" "foo") NIL CLOBBERED

(sort '("this" "is" "a" "test") 'alphalessp)
;; this eats CPU time, but never returns. 

;; even after all this

(sort '(|this| |is| |a| |test|) 'alphalessp)
(/a |is| |test| |this|)

;; so something is wrong in the string package.

;; also, alphalessp of strings seems to work.