fix google again

google.lisp

@@ -6,10 +6,10 @@
   (loop
      for result across (clss:select ".g" (xml-request +google-search-url+
                                                       :parameters (list (cons "q" query))))
-     for a = (elt (clss:select ".r>a" result) 0)
-     for uri = (quri:uri (plump:get-attribute a "href"))
-     for q = (aget "q" (quri:url-decode-params (quri:uri-query uri)))
-     when q
+     for a = (ignore-errors (elt (clss:select ".r>a" result) 0))
+     for uri = (and a (quri:uri (plump:get-attribute a "href")))
+     for q = (and uri (aget "q" (quri:url-decode-params (quri:uri-query uri))))
+     when (and q (equal (quri:uri-path uri) "/url"))
      collect (list
               (cons :url q)
               (cons :title (select-text "" a))