anchor.diff:                                              *facebook-app-token*)
                                         '("method" . "POST")
                                         (cons typestring
  -                                            (url-compose
  -                                              (strcat "https://kindista.org/"
  -                                                      typestring
  -                                                      "s/"
  -                                                      k-id)))))))))
  +                                            (strcat "https://kindista.org"
  +                                                    (resource-url k-id item)))))))))
     "Works the same as (scrape-facebook-item)"
     (when (= (second reply) 200)
  -    (decode-json-octets (first reply))
  -   ))
  +    (decode-json-octets (first reply))))
   
   (defun scrape-facebook-item
     (url-or-fb-id
  
positive.code: (defun update-facebook-object
    (k-id
     &aux (item (db k-id))
          (facebook-id (getf item :fb-id))
          (typestring (string-downcase (symbol-name (getf item :type))))
          (reply (with-facebook-credentials
                  (multiple-value-list
  
negative.code:       (htm (:meta :property "og:description"
                    :content (escape-for-html it))))
      (:meta :property "og:image"
             :content (s+ "http://kindista.org/" (or image "media/biglogo4fb.jpg")))
      (:meta :property "og:image:secure_url"
             :content (s+ "https://kindista.org/" (or image "media/biglogo4fb.jpg")))))
  
  