Commit 540edfb2 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fix to error format string from Matt Niemeir.

parent e306daa4

uiop/utility.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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