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") ,@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