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

Fix to error format string from Matt Niemeir.

parent e306daa4
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment