Add ocicl lint

1 files changed, 11 insertions, 10 deletions

diff --git a/src/main.lisp b/src/main.lisp
index 2e01411..ba3e343 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -9,7 +9,8 @@
   (:import-from :ukkoclot/db :with-db)
   (:import-from :ukkoclot/serializing :fixup-value)
   (:import-from :ukkoclot/state :make-bot :bot-config :bot-power-on)
-  (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str :starts-with :starts-with-ignore-case)
+  (:import-from :ukkoclot/strings
+   :escape-xml :is-tg-whitespace :is-tg-whitespace-str :starts-with :starts-with-ignore-case)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
   (:export :main))
@@ -26,7 +27,9 @@
 (defun start-swank (port)
   (log:info "Starting a SWANK server on port ~A..." port)
   (swank:create-server :port port :dont-close t)
-  (log:info "SWANK started.  You can connect to it by forwarding ports via SSH: `ssh -L~A:127.0.0.1:~A username@server.com'" port port)
+  (log:info
+   "SWANK started.  You can connect to it by forwarding ports via SSH: `ssh -L~A:127.0.0.1:~A username@server.com'"
+   port port)
   (log:info "And then afterwards M-x slime-connect giving localhost and ~A" port))
 
 (defun stop-swank (port)
@@ -214,9 +217,10 @@
            (reply-message bot msg "OwO"))
 
           ((string-equal text "waow")
-           (reply-message bot
-                          (or (message-reply-to-message msg) msg)
-                          "BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED"))
+           (reply-message
+            bot
+            (or (message-reply-to-message msg) msg)
+            "BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED"))
 
           ((string-equal text "what")
            (reply-message bot msg
@@ -232,8 +236,7 @@
                                 (write-string "GIR" s))
                             (if (char= (elt text 3) #\t)
                                 (write-char #\l s)
-                                (write-char #\L s)))))
-          )))
+                                (write-char #\L s))))))))
 
 (defun simplify-cmd (bot cmd)
   (let ((at-idx (position #\@ cmd)))
@@ -273,9 +276,7 @@ Send time: ..."))
             (message-from msg)
             (= (user-id (message-from msg)) (config-owner (bot-config bot))))
        (setf (bot-power-on bot) nil)
-       (reply-message bot msg "Initialising shutdown..." :allow-sending-without-reply t))
-
-          )))
+       (reply-message bot msg "Initialising shutdown..." :allow-sending-without-reply t)))))
 
 (defun report-error (bot evt err)
   (log:error "While handling ~A: ~A" evt err)