如何在Common Lisp中将字节数组转换为字符串？

(ql:quickload "flexi-streams")

(defun byte-array-to-string (byte-array)
  (let ((flexi-stream (make-instance 'flexi-streams:flexi-stream
                                    :external-format '(:utf-8 :eol-style :lf)
                                    :element-type '(unsigned-byte 8))))
    (setf (flexi-streams:flexi-stream-stream flexi-stream)
          (make-instance 'flexi-streams:in-memory-stream
                         :content byte-array))
    (flexi-streams:get-output-stream-string flexi-stream)))

(defparameter *byte-array* (vector 72 101 108 108 111 32 87 111 114 108 100))
(byte-array-to-string *byte-array*)

"Hello World"