Fix regression, add usage note

.gitignore

@@ -1,2 +1,3 @@
-*~
+**/*~
+**/*#
 ywatds

dataserver.lisp

@@ -26,7 +26,7 @@
      (format nil "~s"
 	     (atsl:from-file
 	      (uiop:subpathname worldpath (format nil "advtrains_~a" p))
-	      'alist)))
+	      :alist)))
     (hunchentoot:start server)
     ;; loop until an error occurs
     (handler-case (loop (sleep most-positive-fixnum))

serialize-lib.lisp

@@ -32,7 +32,7 @@
 
 (defun read-table (stream restype)
   (let ((ht (case restype
-	      ('alist nil)
+	      (:alist nil)
 	      (otherwise (make-hash-table)))))
     (do ((line (adjust-line (read-line stream nil))
 	       (adjust-line (read-line stream nil))))
@@ -46,7 +46,7 @@
 		      (read-table stream restype)
 		      vt)))
 	 (case restype
-	   ('alist (push (cons kv vv) ht))
+	   (:alist (push (cons kv vv) ht))
 	   (otherwise (setf (gethash kv ht) vv))))))))
 
 (defun from-stream (stream restype)

www/index.txt

@@ -0,0 +1,3 @@
+Usage
+
+dumper/<p>: Dumps advtrains_<p> as associated lists