~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/sod.tex: Print the build version in the inside header.
[sod]
/
src
/
c-types-test.lisp
diff --git
a/src/c-types-test.lisp
b/src/c-types-test.lisp
index
6022991
..
483d122
100644
(file)
--- a/
src/c-types-test.lisp
+++ b/
src/c-types-test.lisp
@@
-58,6
+58,7
@@
(defun assert-pp-ctype (type kernel string)
(let* ((*print-right-margin* 77)
(defun assert-pp-ctype (type kernel string)
(let* ((*print-right-margin* 77)
+ (*print-pretty* t)
(print (with-output-to-string (out)
(pprint-c-type type out kernel))))
(assert-equal (expand-tabs print) (expand-tabs string)
(print (with-output-to-string (out)
(pprint-c-type type out kernel))))
(assert-equal (expand-tabs print) (expand-tabs string)
@@
-240,10
+241,10
@@
("nopenfd" int))))
"ftw"
(format nil "~
("nopenfd" int))))
"ftw"
(format nil "~
-int ftw
(const char */*dirpath*/,
-
int (*/*fn*/)(const char *fpath
,
- const struct stat *sb,
-
int typeflag),
+int ftw
+
(const char */*dirpath*/
,
+ int (*/*fn*/)
+
(const char *fpath, const struct stat *sb,
int typeflag),
int /*nopenfd*/)")))
;;;--------------------------------------------------------------------------
int /*nopenfd*/)")))
;;;--------------------------------------------------------------------------