diff options
| -rw-r--r-- | lisp/clark.lisp | 8 | ||||
| -rw-r--r-- | lisp/commands.lisp | 2 | ||||
| -rw-r--r-- | lisp/make-image.lisp | 2 | ||||
| -rw-r--r-- | lisp/package.lisp | 2 | ||||
| -rw-r--r-- | lisp/queries.lisp | 2 | ||||
| -rwxr-xr-x | run-clark | 2 |
6 files changed, 9 insertions, 9 deletions
diff --git a/lisp/clark.lisp b/lisp/clark.lisp index 3b10a6a..e421d58 100644 --- a/lisp/clark.lisp +++ b/lisp/clark.lisp @@ -17,7 +17,7 @@ ;;; Code: -(in-package :org.ryuslash.clark) +(in-package :clark) (defvar *db* nil "The database connection.") @@ -144,14 +144,14 @@ the help command." (defun load-rc () "Load the RC file." - (let ((*package* (in-package :org.ryuslash.clark))) + (let ((*package* (in-package :clark))) (load (get-rc-location) :if-does-not-exist nil))) (eval-when (:compile-toplevel :load-toplevel :execute) (defun make-command-name (base) "Turn BASE into the name of a possible command." (intern (concatenate 'string (string-upcase base) "-COMMAND") - :org.ryuslash.clark))) + :clark))) (defun parse-args (args) "Parse command-line arguments ARGS. @@ -159,7 +159,7 @@ the help command." The executable name should already have been removed." (loop while (and args (char= (char (car args) 0) #\-)) do (case (intern (string-upcase (string-left-trim "-" (car args))) - :org.ryuslash.clark) + :clark) (script (setf *script* t args (cdr args))) (t (with-error-and-help 1 "help" "Unknown option: ~a~%" (car args))))) diff --git a/lisp/commands.lisp b/lisp/commands.lisp index dedd46c..e92c8b2 100644 --- a/lisp/commands.lisp +++ b/lisp/commands.lisp @@ -17,7 +17,7 @@ ;;; Code: -(in-package :org.ryuslash.clark) +(in-package :clark) (defcommand add (url name description &rest tags) "Add a new bookmark." diff --git a/lisp/make-image.lisp b/lisp/make-image.lisp index c0a3b91..f1e7b74 100644 --- a/lisp/make-image.lisp +++ b/lisp/make-image.lisp @@ -29,6 +29,6 @@ "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*) + (clark:clark sb-ext:*posix-argv*) 0) :executable t) diff --git a/lisp/package.lisp b/lisp/package.lisp index 0da0070..f6b2e53 100644 --- a/lisp/package.lisp +++ b/lisp/package.lisp @@ -17,6 +17,6 @@ ;;; Code: -(defpackage :org.ryuslash.clark +(defpackage :clark (:use :cl :sqlite) (:export :clark)) diff --git a/lisp/queries.lisp b/lisp/queries.lisp index b0de420..0ffb302 100644 --- a/lisp/queries.lisp +++ b/lisp/queries.lisp @@ -17,7 +17,7 @@ ;;; Code: -(in-package :org.ryuslash.clark) +(in-package :clark) (defmacro sql (&body body) (apply 'concatenate 'string @@ -24,4 +24,4 @@ sbcl --eval "(require 'sqlite)" \ --load lisp/package.lisp --load lisp/clark.lisp \ - --eval "(org.ryuslash.clark:clark sb-ext:*posix-argv*)" + --eval "(clark:clark sb-ext:*posix-argv*)" |