(defun format-error (string &rest args)     ;Example 
       (error nil "~?~%~V@T!~%~3@T\"~A\"~%" 
              string args (+ *ctl-index* 3) *ctl-string*))