nicer format recipe in example code
Tue Sep 18 05:25:32 PDT 2007 Ryszard Szopa <ryszard.szopa@gmail.com>
* nicer format recipe in example code
diff -rN -u old-submarine/doc/example.lisp new-submarine/doc/example.lisp
--- old-submarine/doc/example.lisp 2014-07-25 06:41:38.000000000 -0700
+++ new-submarine/doc/example.lisp 2014-07-25 06:41:38.000000000 -0700
@@ -94,11 +94,11 @@
(relate henry rotary)
;; Now, let's see what do we know about our small world
-
- (format t "All persons: ~%~{ * ~A~%~}~%~%" (mapcar 'person-name (select-dao 'person)))
- (format t "All democrats: ~%~{ * ~A~%~}~%" (mapcar 'person-name (get-all 'person democ)))
- (format t "All masons: ~%~{ * ~A~%~}~%" (mapcar 'person-name (person lodge)))
- (format t "All the clubs of Henry: ~%~{ * ~A~%~}~%" (mapcar 'club-name (club henry))))
+ (format t "~@{~2&All ~A: ~%~{ * ~A~&~}~}~&"
+ "persons" (mapcar 'person-name (select-dao 'person))
+ "democrats" (mapcar 'person-name (get-all 'person democ))
+ "masons" (mapcar 'person-name (person lodge))
+ "the clubs of Henry" (mapcar 'club-name (club henry))))
;; The effect of executing the last form: