From 6d1a3b02e0e83b5e326081826fe63bcbc0ab4686 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 21 Mar 2013 00:54:06 +0100
Subject: 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.
---
 make-image.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'make-image.lisp')

diff --git a/make-image.lisp b/make-image.lisp
index 1221037..733cb8c 100644
--- a/make-image.lisp
+++ b/make-image.lisp
@@ -11,6 +11,6 @@
  "clark" :toplevel
  (lambda ()
    (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
-   (org.ryuslash.clark:clark)
+   (org.ryuslash.clark:clark sb-ext:*posix-argv*)
    0)
  :executable t)
-- 
cgit v1.3-2-g0d8e