読者です 読者をやめる 読者になる 読者になる

コマンドラインからquicklispを使うスクリプト

common lisp メモ
#!/usr/local/bin/sbcl --script

(load "~/quicklisp/setup.lisp")

(defun usage ()
  (format t "usage: ql command package
command:
 search
 install
"))

(let ((argv sb-ext:*posix-argv*))
  (if (/= 3 (length argv))
      (usage)
      (destructuring-bind (cmd pkg) (cdr argv)
        (cond ((string= cmd "install")
               (ql::recursively-install pkg))
              ((string= cmd "search")
               (ql:system-apropos pkg))
              (t
               (usage))))))

パスの通った場所にqlとして保存した場合

hogeで探す
$ ql search hoge

hogeをインストール
$ ql install hoge