Permalink
Browse files

Rename qlfile.snapshot to qlfile.lock.

  • Loading branch information...
1 parent 256fbe6 commit 4c87f136746d5839669bfcf1144d5098ddee8403 @fukamachi committed Jul 31, 2014
Showing with 14 additions and 14 deletions.
  1. +2 −2 .gitignore
  2. +6 −6 README.markdown
  3. +3 −3 src/install.lisp
  4. +3 −3 src/util.lisp
View
@@ -8,5 +8,5 @@
.#*
t/tmp
-qlfile.snapshot
-t/data/qlfile2.snapshot
+qlfile.lock
+t/data/qlfile2.lock
View
@@ -51,15 +51,15 @@ You can install libraries into the project directory via:
(qlot:install :myapp)
```
-It creates `quicklisp/` directory in the project directory and a file `qlfile.snapshot`.
+It creates `quicklisp/` directory in the project directory and a file `qlfile.lock`.
-`qlfile.snapshot` is similar to `qlfile` except the library versions are qualified. This will ensure that other developers or your deployment environment use exactly the same versions of libraries you just installed.
+`qlfile.lock` is similar to `qlfile` except the library versions are qualified. This will ensure that other developers or your deployment environment use exactly the same versions of libraries you just installed.
-Make sure you add `qlfile` and `qlfile.snapshot` to your version controlled repository and make the `quicklisp/` directory ignored.
+Make sure you add `qlfile` and `qlfile.lock` to your version controlled repository and make the `quicklisp/` directory ignored.
```
$ echo quicklisp/ >> .gitignore
-$ git add qlfile qlfile.snapshot
+$ git add qlfile qlfile.lock
$ git commit -m 'Start using qlot.'
```
@@ -79,11 +79,11 @@ You can update the content of `quicklisp/` directory via:
(qlot:update :myapp)
```
-It will also overwrite `qlfile.snapshot`.
+It will also overwrite `qlfile.lock`.
### Deploying your application
-`qlot:install` will use `qlfile.snapshot` if it exists.
+`qlot:install` will use `qlfile.lock` if it exists.
```common-lisp
(qlot:install :myapp)
View
@@ -173,9 +173,9 @@
(uninstall dist)))))
(stop-server)
- (unless (string= (pathname-type file) "snapshot")
+ (unless (string= (pathname-type file) "lock")
(with-quicklisp-home qlhome
- (with-open-file (out (merge-pathnames (format nil "~A.snapshot" (pathname-name file))
+ (with-open-file (out (merge-pathnames (format nil "~A.lock" (pathname-name file))
file)
:direction :output
:if-exists :supersede)
@@ -202,7 +202,7 @@
(let ((object (truename object)))
(if (fad:directory-pathname-p object)
(apply #'install-project
- (or (find-qlfile object :errorp nil :use-snapshot t)
+ (or (find-qlfile object :errorp nil :use-lock t)
(find-qlfile object :errorp nil)
(error "qlfile does not exist in '~S'." object))
args)
View
@@ -30,12 +30,12 @@
finally
(return t)))
-(defun find-qlfile (directory &key (errorp t) use-snapshot)
+(defun find-qlfile (directory &key (errorp t) use-lock)
(check-type directory pathname)
(unless (probe-file directory)
(error "~S does not exist." directory))
- (let ((qlfile (merge-pathnames (if use-snapshot
- "qlfile.snapshot"
+ (let ((qlfile (merge-pathnames (if use-lock
+ "qlfile.lock"
"qlfile")
directory)))
(unless (probe-file qlfile)

0 comments on commit 4c87f13

Please sign in to comment.