--- 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))