# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1509817295 14400
# Node ID 2e2dce507991848e0c594e6aab54e8f9f24dbca3
# Parent  f9fe3b75ce0a4b176ed71c00efe735e3e4eb0f81
Fix bitrot

diff -r f9fe3b75ce0a -r 2e2dce507991 package.lisp
--- 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)
diff -r f9fe3b75ce0a -r 2e2dce507991 src/twitter.lisp
--- 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))