commands.lisp

(add-command "leave-memo" (lambda (bot args sender channel)
			    (multiple-value-bind (recipient memo)
				  (split "\\s+" args :limit 2)
			      (progn
				(add-memo recipient memo)
				(send-msg bot channel (format nil "tada! Added memo for ~A" recipient))))))

(add-command "get-memo" (lambda (bot args sender channel)
			  (send-msg bot channel (format nil "memo for ~A: ~A" args (get-memo args)))))