Перевернуть строку задом наперёд

(defparameter *my-string* (string "DSL"))
; *MY-STRING*
(reverse *my-string*)
; "LSD"