~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/class-*.lisp: Improve metaclass selection.
[sod]
/
src
/
c-types-impl.lisp
diff --git
a/src/c-types-impl.lisp
b/src/c-types-impl.lisp
index
47266e6
..
6b7c904
100644
(file)
--- a/
src/c-types-impl.lisp
+++ b/
src/c-types-impl.lisp
@@
-328,7
+328,7
@@
`(progn
(export '(,type ,kind ,constructor))
(defclass ,type (tagged-c-type) ()
`(progn
(export '(,type ,kind ,constructor))
(defclass ,type (tagged-c-type) ()
- (:documentation ,(format nil "C ~
a
types." what)))
+ (:documentation ,(format nil "C ~
A
types." what)))
(defmethod c-tagged-type-kind ((type ,type))
',keyword)
(defmethod kind-c-tagged-type ((kind (eql ',keyword)))
(defmethod c-tagged-type-kind ((type ,type))
',keyword)
(defmethod kind-c-tagged-type ((kind (eql ',keyword)))
@@
-585,7
+585,7
@@
(let ((this-name (argument-name this))
(prev-name (argument-name prev)))
(when (string= this-name prev-name)
(let ((this-name (argument-name this))
(prev-name (argument-name prev)))
(when (string= this-name prev-name)
- (error "Duplicate keyword argument name `~A'
.
" this-name)))))
+ (error "Duplicate keyword argument name `~A'" this-name)))))
list))
(export 'merge-keyword-lists)
list))
(export 'merge-keyword-lists)
@@
-627,7
+627,7
@@
(other-what (cdr other-item)))
(unless (c-type-equal-p type other-type)
(error "Type mismatch for keyword argument `~A': ~
(other-what (cdr other-item)))
(unless (c-type-equal-p type other-type)
(error "Type mismatch for keyword argument `~A': ~
- ~A~@[ (~A)~] doesn't match ~A~@[ (~A)~]
.
"
+ ~A~@[ (~A)~] doesn't match ~A~@[ (~A)~]"
name
type what
other-type other-what))))))))
name
type what
other-type other-what))))))))