(defcommand eval-me (cmd) ((:rest "Eval> "))
    (with-output-to-string (*standard-output*)
        (handler-case
            (format t "~{~a~^~%~}"
                (mapcar 'prin1-to-string
                    (multiple-value-list (eval (read-from-string cmd)))))
            (error (c)
                (format t "~A" c)))))