chiark
/
gitweb
/
~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3178259
)
src/c-types-class-impl.lisp (find-class-type): Don't repeat type name.
author
Mark Wooding
<mdw@distorted.org.uk>
Thu, 26 May 2016 08:26:09 +0000
(09:26 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Fri, 8 Jun 2018 18:58:28 +0000
(19:58 +0100)
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
patch
|
blob
|
blame
|
history
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)
- (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)