~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lib/sod.h, src/class-output.lisp: Rename `SOD__CAR' to `SOD_CAR'.
[sod]
/
src
/
class-output.lisp
diff --git
a/src/class-output.lisp
b/src/class-output.lisp
index
d914864
..
8880df5
100644
(file)
--- a/
src/class-output.lisp
+++ b/
src/class-output.lisp
@@
-138,7
+138,7
@@
raw-name)))
(cond ((and (cdr args) (eq (cadr args) :ellipsis))
(setf varargsp t)
raw-name)))
(cond ((and (cdr args) (eq (cadr args) :ellipsis))
(setf varargsp t)
- (unless in-names (setf me "SOD_
_
CAR(__VA_ARGS__)"))
+ (unless in-names (setf me "SOD_CAR(__VA_ARGS__)"))
(push (format nil "/*~A*/ ..." name) in-names)
(push "__VA_ARGS__" out-names)
(return))
(push (format nil "/*~A*/ ..." name) in-names)
(push "__VA_ARGS__" out-names)
(return))