error.lisp

(defun call-get-method (url &key parameters)
  "Alternative to CALL-REST-METHOD that uses a stream; this is more
   memory efficient, but it may cause problems if YASON:PARSE takes
   too long to parse the stream and the stream may be cut due to
   timeout."
  (with-open-stream (s (drakma:http-request url
					    :parameters parameters
					    :external-format-out :utf-8
					    :method :get
					    :connection-timeout 120
					    :want-stream t))
    (setf (flexi-streams:flexi-stream-external-format s) :utf-8)
    (yason:parse s :object-as :hash-table)))

(defun fetch-docs (limit)
  (let* ((l (format nil "~a" limit))
	 (out (call-get-method "http://localhost:8983/solr/wn/select?"
			       :parameters `(("q" . "-rdf_type:Nominalization")
					     ("wt" . "json")
					     ("rows" . ,l)))))
    (gethash "docs" (gethash "response" out))))