src/c-types-class-impl.lisp (find-class-type): Don't repeat type name.

[sod] / src / c-types-class-impl.lisp

diff --git a/src/c-types-class-impl.lisp b/src/c-types-class-impl.lisp
index 1827415..1f43c60 100644 (file)
--- a/src/c-types-class-impl.lisp
+++ b/src/c-types-class-impl.lisp
@@ -68,7 +68,7 @@
   (atypecase (gethash name *module-type-map*)
     (null nil)
     (c-class-type it)
-    (t (error "Type `~A' (~A) is not a class" name it))))
+    (t (error "Type `~A' is not a class" name))))
 
 (export 'make-class-type)
 (defun make-class-type (name &optional qualifiers)