(deftest bryan-string-functions ()
  (check
    (string-equal "fred" "Fred")
    (equal "this is T" (format nil "this is ~A" t))
    (equal "hello world" (concatenate 'string "hello" " " "world"))))