Skip to content

Instantly share code, notes, and snippets.

@jl2

jl2/updateql.lisp

Last active August 29, 2015 14:09
Show Gist options
  • Save jl2/9407391490021c4ea7d9 to your computer and use it in GitHub Desktop.
Save jl2/9407391490021c4ea7d9 to your computer and use it in GitHub Desktop.
Download ZIP
Update SBCL from Git
Raw
updateql.lisp
#!/usr/bin/lisp --script
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
(ql:update-dist "quicklisp")
Raw
updatesbcl.lisp
#!/usr/bin/lisp --script
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
(let* ((git-out-string (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t))
(done-str "Already up-to-date")
(len-done (length done-str))
(force-build (string= "--force" (second sb-ext:*posix-argv*))))
(with-output-to-string (s git-out-string)
(run-program "git" (list "pull") :search t :output s :input t :error :output :wait t :directory "/home/jeremiah/oss_src/sbcl"))
(if (or force-build (not (string= done-str (subseq git-out-string 0 len-done))))
(progn
(run-program "sh" (list "make.sh" "--dynamic-space-size=2048" "--fancy") :search t :output t :input t :error :output :wait t :directory "/home/jeremiah/oss_src/sbcl")
(run-program "make" () :search t :output t :input t :error :output :wait t :directory "/home/jeremiah/oss_src/sbcl/doc/manual")
(run-program "sudo" (list "sh" "install.sh") :search t :output t :input t :error :output :wait t :directory "/home/jeremiah/oss_src/sbcl"))
(format t "Already up to date!~%"))
(ql:update-dist "quicklisp"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment