(defun fwoar/hyperspec-lookup (name)
   (interactive (list (common-lisp-hyperspec-read-symbol-name)))
   (let ((browse-url-browser-function 'eww-browse-url))
     (common-lisp-hyperspec name)))