[Sort entries by last name (again)
clinton@unknownlamer.org**20080929013954
 Predicate is imperfect--authors with the same last name will not be
 sorted properly (will fix later)
] hunk ./books.lisp 64
-      (html-template:fill-and-print-template
-       template-path
-       (book-database-vars
-	(with-open-file (book-stream book-path :element-type 'extended-char)
-	  (read book-stream)))
-       :stream muse-stream))))
+      (let ((html-template:*string-modifier* #'identity))
+	(html-template:fill-and-print-template
+	 template-path
+	 (book-database-vars
+	  (sort (copy-list (with-open-file
+			       (book-stream book-path :element-type 'extended-char)
+			     (read book-stream)))
+		(lambda (e1 e2)
+		  (let ((se1 (string-upcase (symbol-name (car (last e1)))))
+			(se2 (string-upcase (symbol-name (car (last e2))))))
+		    (string< se1 se2)))
+		:key #'car))
+	 :stream muse-stream)))))