Downcased output.

Pascal J. Bourguignon [2017-08-15 23:20]
Downcased output.
Filename
buzzword
diff --git a/buzzword b/buzzword
index be30cbe..b98522b 100755
--- a/buzzword
+++ b/buzzword
@@ -4,17 +4,18 @@
   (let ((a (random 10))
         (b (random 10))
         (c (random 10))
-        (w  (make-array '(10 3) :initial-contents
-                        #((integrated        management           options)
-                          (total             organizational       flexibility)
-                          (systematized      monitored            capability)
-                          (parallel          reciprocal           mobility)
-                          (functional        digital              programming)
-                          (responsive        logistical           concept)
-                          (optional          transitional         time-phase)
-                          (synchronized      incremental          projection)
-                          (compatible        third-generation     hardware)
-                          (balanced          policy               contingency)))))
+        (w (make-array '(10 3) :initial-contents
+                       #((integrated        management           options)
+                         (total             organizational       flexibility)
+                         (systematized      monitored            capability)
+                         (parallel          reciprocal           mobility)
+                         (functional        digital              programming)
+                         (responsive        logistical           concept)
+                         (optional          transitional         time-phase)
+                         (synchronized      incremental          projection)
+                         (compatible        third-generation     hardware)
+                         (balanced          policy               contingency))))
+        (*print-case* :downcase))
     (format t "~&~A ~A ~A~%" (aref w a 0) (aref w b 1) (aref w c 2))
     (finish-output)
     #+(and (not testing) clisp) (ext:quit)))
ViewGit