[cl-blog-cvs] CVS update: cl-blog/cl-blog.lisp cl-blog/variable.lisp

[Brian Mastenbrook]

Update of /project/cl-blog/cvsroot/cl-blog
In directory common-lisp.net:/tmp/cvs-serv22202

Modified Files:
	cl-blog.lisp variable.lisp 
Log Message:
Add a SBCL link!

Date: Fri Oct 22 03:10:39 2004
Author: bmastenbrook

Index: cl-blog/cl-blog.lisp
diff -u cl-blog/cl-blog.lisp:1.7 cl-blog/cl-blog.lisp:1.8
--- cl-blog/cl-blog.lisp:1.7	Fri Oct 22 03:05:58 2004
+++ cl-blog/cl-blog.lisp	Fri Oct 22 03:10:39 2004
@@ -141,6 +141,9 @@
                                ((a :href ,(archives-url :category i :rss t))
                                 "(RSS)")
                                )))
+           (p)
+           ((a :href "http://www.sbcl.org/" :border "0")
+            (img :src "http://www.sbcl.org/sbclbutton.png" :alt "(get 'sbcl)" :border "0"))
            )
           ((div :id "content")
            , at body))


Index: cl-blog/variable.lisp
diff -u cl-blog/variable.lisp:1.3 cl-blog/variable.lisp:1.4
--- cl-blog/variable.lisp:1.3	Fri Oct 22 03:05:58 2004
+++ cl-blog/variable.lisp	Fri Oct 22 03:10:39 2004
@@ -39,10 +39,11 @@
 
 (defparameter *blog-url-root*
   (merge-url (make-url :scheme "http"
-                       :host "www.iscblog.info")
+                       :host "localhost"
+                       :port 8080)
              "/blog/"))
 
-(defparameter *internal-http-port* 1082)
+(defparameter *internal-http-port* 8080)
 
 ;;; You shouldn't need to edit below this line
 ;;; LINE