diff options
author | Tom Willemse | 2013-10-06 14:30:15 +0200 |
---|---|---|
committer | Tom Willemse | 2013-10-06 14:30:15 +0200 |
commit | 97d631db555dd5d663d4f81987ab86ebc2aa4d9a (patch) | |
tree | 3fc5faf66cb865c98cca4c4c8b41b72932c47812 /lisp | |
parent | 31f1be23f268f8ec6f592ed14bf8e914395e86a0 (diff) | |
download | clark-97d631db555dd5d663d4f81987ab86ebc2aa4d9a.tar.gz clark-97d631db555dd5d663d4f81987ab86ebc2aa4d9a.zip |
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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/clark.lisp | 8 | ||||
-rw-r--r-- | lisp/commands.lisp | 2 | ||||
-rw-r--r-- | lisp/make-image.lisp | 2 | ||||
-rw-r--r-- | lisp/package.lisp | 2 | ||||
-rw-r--r-- | lisp/queries.lisp | 2 |
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 |