From 97d631db555dd5d663d4f81987ab86ebc2aa4d9a Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Sun, 6 Oct 2013 14:30:15 +0200
Subject: [PATCH] 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      | 8 ++++----
 lisp/commands.lisp   | 2 +-
 lisp/make-image.lisp | 2 +-
 lisp/package.lisp    | 2 +-
 lisp/queries.lisp    | 2 +-
 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
diff --git a/run-clark b/run-clark
index e39cc97..2f16dc5 100755
--- a/run-clark
+++ b/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*)"