clark/make-image.lisp

#-sbcl
(error "This lisp implementation iss not supported.")

(require 'asdf)
(require 'sqlite)
(require 'mcclim)

(asdf:oos 'asdf:load-op 'clark)

(save-lisp-and-die
 "clark" :toplevel
 (lambda ()
   (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
   (org.ryuslash.clark:clark sb-ext:*posix-argv*)
   0)
 :executable t)
Initial commit 2013-03-20 21:58:10 +01:00			`#-sbcl`
			`(error "This lisp implementation iss not supported.")`

			`(require 'asdf)`
			`(require 'sqlite)`
			`(require 'mcclim)`

			`(asdf:oos 'asdf:load-op 'clark)`

			`(save-lisp-and-die`
			`"clark" :toplevel`
			`(lambda ()`
			`(sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))`
Make it do something - Add constant `version' which contains the version number of the project. - Change `db-connect' to `check-db'. Update to using sqlite functions instead of cl-sql ones. - Move the bookmark collection loop to `get-bookmarks'. - When starting up, if the length of args is greater than 1 check if the given option is a known "command" and if so, call it with the command line arguments (minus the first). Otherwise show all the bookmarks. 2013-03-21 00:54:06 +01:00			`(org.ryuslash.clark:clark sb-ext:posix-argv)`
Initial commit 2013-03-20 21:58:10 +01:00			`0)`
			`:executable t)`