07/10/25 19:02:46 kEYfm17K0
(require "junk/http")
(defvar *google-suggest-url* "URLﾘﾝｸ(www.google.com))
(defun google-suggest-query(string)
(with-open-stream (stream
(junk::junk-http-get-url
(concat *google-suggest-url* string)))
(remove nil (mapcar #'(lambda(x)(if(string-match string x)(string-trim " \"" x)))
(split-string (read-line stream nil) #\,)))))
補完候補を悪名高き先生から