2e2dce507991

--- a/package.lisp	Sat Nov 04 13:14:02 2017 -0400
+++ b/package.lisp	Sat Nov 04 13:41:35 2017 -0400
@@ -37,7 +37,6 @@
 (defpackage :magitek.robots.git-commands
   (:use
     :cl
-    :iterate
     :losh
     :chancery
     :magitek.quickutils)
@@ -46,7 +45,6 @@
 (defpackage :magitek.robots.lisp-talks
   (:use
     :cl
-    :iterate
     :losh
     :chancery
     :magitek.quickutils)
@@ -55,7 +53,6 @@
 (defpackage :magitek.robots.rpg-shopkeeper
   (:use
     :cl
-    :iterate
     :losh
     :chancery
     :magitek.quickutils)
@@ -64,7 +61,6 @@
 (defpackage :magitek.robots.frantic-barista
   (:use
     :cl
-    :iterate
     :losh
     :chancery
     :magitek.quickutils)

--- a/src/twitter.lisp	Sat Nov 04 13:14:02 2017 -0400
+++ b/src/twitter.lisp	Sat Nov 04 13:41:35 2017 -0400
@@ -23,7 +23,7 @@
 
 (defmacro with-account (account-name &body body)
   (once-only (account-name)
-    `(if-found account (gethash ,account-name *accounts*)
+    `(if-found (account (gethash ,account-name *accounts*))
        (let ((chirp:*oauth-api-key* (getf account :api-key))
              (chirp:*oauth-api-secret* (getf account :api-secret))
              (chirp:*oauth-access-token* (getf account :access-token))