Common Lisp script to open a HyperSpec HTML which corresponds to a specified symbol. (Works only with SBCL on Mac)

clhs.lisp

#!/usr/bin/env sbcl --script
;; -*- mode: common-lisp -*-

;; Usage:
;;   clhs [SYMBOL]

(require 'asdf)

(defparameter *hyperspec-home*
  (merge-pathnames "Dropbox/Documents/HyperSpec/" (user-homedir-pathname))
  "Set a directory where HyperSpec HTML files are in."))

(defun find-clhs-file (target-symbol)
  (let ((map-sym-file (merge-pathnames "Data/Map_Sym.txt" *hyperspec-home*)))
    (with-open-file (in map-sym-file
                        :direction :input)
      (loop with eof = '#:end-of-file
            for symbol = (read-line in nil eof)
            for file = (read-line in nil eof)
            until (eq symbol eof)
            when (string-equal symbol target-symbol)
              do (return (merge-pathnames file map-sym-file))))))

(defun clhs (target-symbol)
  (let ((file (find-clhs-file target-symbol)))
    (if file
        (progn
          (format t "~&Opening ~A~%" file)
          (asdf:run-shell-command "open ~A" file))
        (format *error-output* "~&Symbol not found: ~A~%"
                target-symbol))))

(let ((symbol (second sb-ext:*posix-argv*)))
  (if symbol
      (clhs symbol)
      (format t "~&Usage: clhs [SYMBOL]~%")))