From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 26 May 2016 08:26:09 +0000 (+0100)
Subject: src/c-types-class-impl.lisp (find-class-type): Don't repeat type name.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/a52cb41cb840401f67495c98b36393f7f9926336

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 1827415..1f43c60 100644
--- 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)
-    (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)