c31f22ad19d5

--- a/temperance.asd	Fri Feb 17 13:31:15 2017 +0000
+++ b/temperance.asd	Fri Feb 17 13:34:33 2017 +0000
@@ -15,7 +15,8 @@
   :serial t
   :components ((:module "vendor"
                 :serial t
-                :components ((:file "quickutils")))
+                :components ((:file "quickutils-package")
+                             (:file "quickutils")))
                (:file "package")
                (:module "src"
                 :serial t

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vendor/quickutils-package.lisp	Fri Feb 17 13:34:33 2017 +0000
@@ -0,0 +1,12 @@
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package "TEMPERANCE.QUICKUTILS")
+    (defpackage "TEMPERANCE.QUICKUTILS"
+      (:documentation "Package that contains Quickutil utility functions.")
+      (:use :cl))))
+
+(in-package "TEMPERANCE.QUICKUTILS")
+
+;; need to define this here so sbcl will shut the hell up about it being
+;; undefined when compiling quickutils.lisp.  computers are trash.
+(defparameter *utilities* nil)
+