Tits

eliza.lisp

@@ -24,7 +24,7 @@
      (в жопу себе его засунь) (хуюровень) ,@*fuck-off*)
     (((?* ?a) (?is ?x ,(lambda (i) (search "ХАХА" (symbol-name i)))) (?* ?b))
      (очень смешно) (клоунов тут нашел?) (посмейся мне еще) ,@*fuck-off*)
-    (((?* ?a) (?or сиськи титьки буфера tits) (?* ?b))
+    (((?* ?a) (?or сиськи сисяндры титьки буфера tits) (?* ?b))
      (#'tumblr-random-photo))
     (((?* ?a) (?or ты бот ботяра) (?* ?x))
      (сам ?x) (сам ты ?x) (а по ебалу?) (сейчас мы разберемся кто еще тут ?x) ,@*fuck-off*)

tumblr.lisp

@@ -25,7 +25,9 @@
   (when roll
     (let* ((domain (random-elt roll))
            (total (aget "posts-total" (tumblr-read domain :num 1 :type type)))
-           (res (tumblr-read domain :num 1 :type type :start (random total))))
+	   (start (random total))
+           (res (tumblr-read domain :num 1 :type type :start start)))
+      (log:info "Post" start "from" domain)
       (aget "photo-url-1280"
             (first (aget "posts" res))))))