Don't load on nalunch command

chatikbot.lisp

@@ -164,16 +164,16 @@
   (log:info "handle-cmd-akb" chat-id message-id args)
   (handler-case
       (progn
-	(let ((total-aneks
-	       (aget "count" (vk-wall-get :domain +akb-vk-domain+ :count 1 :offset 10000000))))
-	  (dolist (post (aget "items" (vk-wall-get :domain +akb-vk-domain+
-						   :count (or (ignore-errors (parse-integer (car args))) 1)
-						   :offset (random total-aneks))))
-	    (handler-case
-		(telegram-send-message chat-id
-				       (format-akb post)
-				       :disable-web-preview 1)
-	      (error (e) (log:error e))))))
+    (let ((total-aneks
+           (aget "count" (vk-wall-get :domain +akb-vk-domain+ :count 1 :offset 10000000))))
+      (dolist (post (aget "items" (vk-wall-get :domain +akb-vk-domain+
+                           :count (or (ignore-errors (parse-integer (car args))) 1)
+                           :offset (random total-aneks))))
+        (handler-case
+        (telegram-send-message chat-id
+                       (format-akb post)
+                       :disable-web-preview 1)
+          (error (e) (log:error e))))))
     (error (e)
       (log:error "~A" e)
       (telegram-send-message chat-id "Ошибочка вышла"))))
@@ -237,15 +237,15 @@
     (telegram-send-message
      chat-id
      (if location
-	 (handler-case
-	     (forecast-format (forecast
-			       (aget "latitude" location)
-			       (aget "longitude" location)
-			       :hourly (find "hourly" args :key #'string-downcase :test #'equal)
-			       :daily (find "daily" args :key #'string-downcase :test #'equal)))
-	   (error (e)
-	     (log:error "~A" e)
-	     "Ошибочка вышла"))
+     (handler-case
+         (forecast-format (forecast
+                   (aget "latitude" location)
+                   (aget "longitude" location)
+                   :hourly (find "hourly" args :key #'string-downcase :test #'equal)
+                   :daily (find "daily" args :key #'string-downcase :test #'equal)))
+       (error (e)
+         (log:error "~A" e)
+         "Ошибочка вышла"))
      "Так а ты чьих будешь?"))))
 
 
@@ -568,7 +568,10 @@
   (log:info "handle-cmd-nalunch" chat-id message-id args)
   (handler-case
       (if (member chat-id *admins*)
-          (send-response chat-id (nalunch-format (nalunch-recent)))
+          (send-response chat-id (nalunch-format
+                                  (or *nalunch-last-result*
+                                      (setf *nalunch-last-result*
+                                            (nalunch-recent)))))
           (send-dont-understand chat-id))
     (error (e)
       (log:error "~A" e)