Hand off slime doc search to a website, bound to C-c C-d C-s, defaults to quickdocs.org.

slime-documentation-search.el

;;; -*- lexical-binding: t -*-

(define-slime-contrib slime-documentation-search
  "Hand off a documenation search to a web site."
  (:authors "Ben Hyde <bhyde@pobox.com>")
  (:license "GPL")
  (:on-load
   (define-key slime-doc-map "\C-s" 'slime-documention-search)
   (define-key slime-doc-map "s" 'slime-documention-search)))

(defvar slime-documentation-search-site-format
  "http://quickdocs.org/search?q=%s"
  "Format string to create url to hand off to.")

;; Some alternatives...
;  (setf slime-documentation-search-site-format "http://l1sp.org/search?q=%s")
;  (setf slime-documentation-search-site-format "http://quickdocs.org/search?q=%s")
;  (setf slime-documentation-search-site-format "http://lispdoc.com/?q=%s&search=Full+text+search")
;  (setf slime-documentation-search-site-format "http://lisp-search.acceleration.net/search?q=%s")

(require 'browse-url)

(defun slime-documention-search (name)
  "Hand off search request to a web site."
  (interactive (list (slime-read-symbol-name "search for: ")))
  (browse-url (format slime-documentation-search-site-format
                      (browse-url-encode-url name))))

(provide 'slime-documentation-search)

I wrote a refactoring of this for my own personal use:

https://gist.github.com/aarvid/6250845