blob: 24ea7c7e5f83f43426989159133ee087407e4bb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Only in cl-blog: .svn
Only in cl-blog/source: .svn
diff -ur cl-blog.orig/source/variable.lisp cl-blog/source/variable.lisp
--- cl-blog.orig/source/variable.lisp 2005-07-07 09:40:53.000000000 -0500
+++ cl-blog/source/variable.lisp 2005-07-07 11:08:01.000000000 -0500
@@ -1,14 +1,7 @@
(in-package :cl-blog)
(defparameter *blog-pathname-root*
- (make-pathname :directory
- (pathname-directory
- (asdf:component-pathname
- (asdf:find-component
- nil
- #+cl-modules
- #.(cl-modules:current-module-name :downcase t)
- #-cl-modules "cl-blog")))))
+ #p"/etc/cl-blog/")
(defparameter *blog-configuration*
(parse-configuration-file
@@ -43,8 +36,7 @@
(defvar *passwords* nil)
(defparameter *entry-path*
- (merge-pathnames (make-pathname :directory '(:relative "entries"))
- *blog-pathname-root*))
+ #p"/var/lib/cl-blog/entries/")
(defparameter *entry-index*
(merge-pathnames "index" *entry-path*))
|
GitWeb
