(defun yoba ()
  (loop :repeat 10
        :do (princ "azaza")))

(format t "Result is ~s~%"
  (with-output-to-string (*standard-output*)
    (yoba)))

(yoba)