From 540edfb284ad21388ef101283dcbc2d145758810 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 6 Aug 2014 15:46:25 -0500
Subject: [PATCH] Fix to error format string from Matt Niemeir.

---
 uiop/utility.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uiop/utility.lisp b/uiop/utility.lisp
index 74780f1e..e9dd0ca0 100644
--- a/uiop/utility.lisp
+++ b/uiop/utility.lisp
@@ -456,7 +456,7 @@ A symbol otherwise designates a class by name."
       (or (and found
                (or (eq super t) (#-cormanlisp subtypep #+cormanlisp cl::subclassp found super))
                found)
-          (call-function error "Can't coerce ~S to a ~@[class~;subclass of ~:*~S]" class super)))))
+          (call-function error "Can't coerce ~S to a ~:[class~;subclass of ~:*~S~]" class super)))))
 
 
 ;;; Hash-tables
-- 
GitLab