aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/clark.lisp8
-rw-r--r--lisp/commands.lisp2
-rw-r--r--lisp/make-image.lisp2
-rw-r--r--lisp/package.lisp2
-rw-r--r--lisp/queries.lisp2
5 files changed, 8 insertions, 8 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