(deftest bryan-strings ()
  (let ((str "abc")
	(str2 "elbow"))
    ;(setf (char str 2) #\d)
    (check
      ;(equal "below" (stable-sort str2 #'char<))
      (equal #\b (aref "abc" 1))
      (equal #\e (char "def" 1))
      (not (equal "fred" "Fred")))))