diff options
Diffstat (limited to 'lisp/clark.lisp')
| -rw-r--r-- | lisp/clark.lisp | 8 |
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))))) |