Change that crazy name

Practical Common Lisp suggested that most Lisp projects used Java-like
naming schemes. I have not seen this happen in the real world so much.

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)))))

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."

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)

lisp/package.lisp

@@ -17,6 +17,6 @@
 
 ;;; Code:
 
-(defpackage :org.ryuslash.clark
+(defpackage :clark
   (:use :cl :sqlite)
   (:export :clark))

lisp/queries.lisp

@@ -17,7 +17,7 @@
 
 ;;; Code:
 
-(in-package :org.ryuslash.clark)
+(in-package :clark)
 
 (defmacro sql (&body body)
   (apply 'concatenate 'string

run-clark

@@ -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*)"