[Bah, speed up list-to-string by a few factors...
attila.lendvai@gmail.com**20070503144028] {
hunk ./src/utils.lisp 11
-;;; wie herrlich effizient
hunk ./src/utils.lisp 12
-  (reduce #'(lambda (str1 &optional (str2 ""))
-              (concatenate 'string str1 str2))
-          list))
+  (with-output-to-string (str)
+    (dolist (el list)
+      (write-string el str))))
}