Remove compatfmt from error messages.

diff --git a/utils.lisp b/utils.lisp
index c64cf89..47e1db9 100644 (file)
--- a/utils.lisp
+++ b/utils.lisp
@@ -57,7 +57,7 @@ and NIL NAME, TYPE and VERSION components"
          (and (consp directory) (member (first directory) '(:absolute :relative))))
      directory)
     (t
-     (error (compatfmt "~@<Unrecognized pathname directory component ~S~@:>") directory))))
+     (error "Unrecognized pathname directory component ~S" directory))))
 
 (defun* merge-pathname-directory-components (specified defaults)
   ;; Helper for merge-pathnames* that handles directory components.
@@ -209,7 +209,7 @@ e.g., \(:file \"foo/bar\"\), which will be unpacked to relative
 pathnames."
   (check-type s string)
   (when (find #\: s)
-    (error (compatfmt "~@<A portable ASDF pathname designator cannot include a #\: character: ~3i~_~S~@:>") s))
+    (error "A portable ASDF pathname designator cannot include a #\: character: ~S" s))
   (let* ((components (split-string s :separator "/"))
          (last-comp (car (last components))))
     (multiple-value-bind (relative components)
@@ -217,7 +217,7 @@ pathnames."
             (if (equal (first-char s) #\/)
                 (progn
                   (when force-relative
-                    (error (compatfmt "~@<Absolute pathname designator not allowed: ~3i~_~S~@:>") s))
+                    (error "Absolute pathname designator not allowed: ~S" s))
                   (values :absolute (cdr components)))
                 (values :relative nil))
           (values :relative components))
@@ -294,9 +294,9 @@ actually-existing directory."
    ((stringp pathspec)
     (ensure-directory-pathname (pathname pathspec)))
    ((not (pathnamep pathspec))
-    (error (compatfmt "~@<Invalid pathname designator ~S~@:>") pathspec))
+    (error "Invalid pathname designator ~S" pathspec))
    ((wild-pathname-p pathspec)
-    (error (compatfmt "~@<Can't reliably convert wild pathname ~3i~_~S~@:>") pathspec))
+    (error "Can't reliably convert wild pathname ~S" pathspec))
    ((directory-pathname-p pathspec)
     pathspec)
    (t