From a52cb41cb840401f67495c98b36393f7f9926336 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 26 May 2016 09:26:09 +0100 Subject: [PATCH] src/c-types-class-impl.lisp (find-class-type): Don't repeat type name. Organization: Straylight/Edgeware From: Mark Wooding 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. --- src/c-types-class-impl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- [mdw]