Don't write Lisp symbol names in uppercase: use `...' instead.

[sod] / src / c-types-test.lisp

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index 0c6a8b7..f1e4324 100644 (file)
--- a/src/c-types-test.lisp
+++ b/src/c-types-test.lisp
@@ -227,9 +227,9 @@
                   "ftw"
                   (format nil "~
 int ftw(const char */*dirpath*/,
-        int (*/*fn*/)(const char *fpath,
-                      const struct stat *sb,
-                      int typeflag),
-        int /*nopenfd*/)")))
+       int (*/*fn*/)(const char *fpath,
+                     const struct stat *sb,
+                     int typeflag),
+       int /*nopenfd*/)")))
 
 ;;;----- That's all, folks --------------------------------------------------