hg.stevelosh.com > sand

--- a/src/qud.lisp	Wed Feb 15 10:23:50 2017 +0000
+++ b/src/qud.lisp	Fri Mar 03 20:04:23 2017 +0000
@@ -74,6 +74,7 @@
     (sort prices #'> :key #'first)))

 (defun dump ()
+  (build-object-index *objects*)
   (write-string-into-file
     (with-output-to-string (*standard-output*)
       (print-table (cons '(price/weight item-key display-name price weight)
author	Steve Losh <steve@stevelosh.com>
date	Fri, 03 Mar 2017 20:04:23 +0000
parents	a2ff64cc3ac9
children	b6765c75e28e
branches/tags	(none)
files	src/qud.lisp