- fixed slot types declaration to allow compilation with newer SBCL.

src/api-client.lisp

@@ -486,7 +486,7 @@ database."
     :initform nil
     :initarg  :id
     :accessor id
-    :type string
+    :type (or null string)
     :documentation "The conversation ID")
    (status-tree
     :initform nil
@@ -498,13 +498,13 @@ database."
     :initform nil
     :initarg  :last-status
     :accessor last-status
-    :type tooter:status
+    :type     (or null tooter:status)
     :documentation "The lastest status that forms this conversation")
    (root
     :initform nil
     :initarg  :root
     :accessor root
-    :type tooter:status
+    :type     (or null tooter:status)
     :documentation "The first status that forms this conversation"))
   (:documentation "Represents a tree of message belonging to a conversation"))
 

src/follow-requests.lisp

@@ -19,9 +19,9 @@
 (defclass follow-requests-window (focus-marked-window simple-line-navigation-window)
   ((requests
     :initarg  :requests
-    :initform ()
+    :initform nil
     :accessor requests
-    :type tooter:account
+    :type     (or null tooter:account)
     :documentation "All the accounts that request to follow you")
    (header-message-lines
     :initarg  :header-message-lines