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.

1 files changed, 4 insertions, 4 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)))))