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

It turns out that if some type name isn't a class, then it doesn't
usually have a very interesting description which is different from its
name.

diff --git a/src/c-types-class-impl.lisp b/src/c-types-class-impl.lisp
index 18274157abedb71772e21c4f93939001cf9e758b..1f43c600530191732e6a3fadf4c5b5fb06035840 100644 (file)
--- a/src/c-types-class-impl.lisp
+++ b/src/c-types-class-impl.lisp
@@ -68,7 +68,7 @@ (defun find-class-type (name)
   (atypecase (gethash name *module-type-map*)
     (null nil)
     (c-class-type it)
   (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)
 
 (export 'make-class-type)
 (defun make-class-type (name &optional qualifiers)