Skip to content
Snippets Groups Projects
Commit 540edfb2 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fix to error format string from Matt Niemeir.

parent e306daa4
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment