~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove apparently dead files.
[sod]
/
src
/
c-types-impl.lisp
diff --git
a/src/c-types-impl.lisp
b/src/c-types-impl.lisp
index
b37833a
..
7dd7b84
100644
(file)
--- a/
src/c-types-impl.lisp
+++ b/
src/c-types-impl.lisp
@@
-404,7
+404,7
@@
"Return whether LIST-A and LIST-B match.
They must have the same number of arguments, and each argument must have
"Return whether LIST-A and LIST-B match.
They must have the same number of arguments, and each argument must have
- the same type, or be
:ELLIPSIS
. The argument names are not inspected."
+ the same type, or be
`:ellipsis'
. The argument names are not inspected."
(and (= (length list-a) (length list-b))
(every (lambda (arg-a arg-b)
(if (eq arg-a :ellipsis)
(and (= (length list-a) (length list-b))
(every (lambda (arg-a arg-b)
(if (eq arg-a :ellipsis)
@@
-519,7
+519,8
@@
(defun commentify-argument-names (arguments)
"Return an argument list with the arguments commentified.
(defun commentify-argument-names (arguments)
"Return an argument list with the arguments commentified.
- That is, with each argument name passed through COMMENTIFY-ARGUMENT-NAME."
+ That is, with each argument name passed through
+ `commentify-argument-name'."
(mapcar (lambda (arg)
(if (eq arg :ellipsis)
arg
(mapcar (lambda (arg)
(if (eq arg :ellipsis)
arg