diff --git a/uiop/utility.lisp b/uiop/utility.lisp index 74780f1e1033495707a84a980ba1a2a322a61ad3..e9dd0ca0f15ba2fd7a43fd8cd710fb7b5b310141 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