Lucky Lisp

;;;
;;; File: lucky-lisp.lisp
;;; Author: dydx (ishkur88)
;;; Derived: usocket port of http://bc.tech.coop/blog/041028.html
;;;
 
; having the weirdest issue with resolving package names.
; I can require the file, but I cant actually "use" the
; package... I end up having to use a fully qualified
; package name to get to what I want.
 
(require 'usocket)
 
(defun lucky (string)
"Returns link to I'm Feeling Lucky result of string"
  (let ((string (substitute #\+ #\Space string))
	(sock (usocket:socket-connect "www.google.com" 80)))
    (unwind-protect
	 (progn
	   (format (usocket:socket-stream sock)
		   "GET /search?q=~A&btnI=lucky HTTP/1.1 Host: www.google.com~%~%" string)
	   (force-output (usocket:socket-stream sock))
	   (loop for line = (read-line (usocket:socket-stream sock) nil nil)
		when (> (mismatch line "Location: ") 9)
		return (subseq line 10 (position (code-char 13) line :from-end t)))))))