Plaster

(ql:quickload :drakma) (ql:quickload :yason) (ql:quickload :quri) (defun google-search-uri (querystring) (quri:render-uri (quri:make-uri :scheme "https" :host "suggestqueries.google.com" :path "/complete/search" :query `(("output" . "firefox") ("q" . ,querystring))))) (defun google-search-suggestion (querystring) (nth 1 (let ((stream (drakma:http-request (google-search-uri querystring) :want-stream t))) (setf (flexi-streams:flexi-stream-external-format stream) :utf-8) (yason:parse stream :object-as :plist)))) (google-search-suggestion "lisp")