(defun lol-error-msg (text &key size position end-text form)
  (when (not size)
    (setf size #@(250 75)))
  (when (not end-text)
    (setf end-text "Aborted"))
  (if position
    (message-dialog text :size size :position position)
    (message-dialog text :size size))
  (catch-cancel (format *standard-output* "~%~S~%" end-text)
                (if form (funcall form) (abort))))