[Lisppaste-cvs] CVS update: lisppaste2/README.lisp lisppaste2/package.lisp lisppaste2/persistent-pastes.lisp lisppaste2/variable.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv28257

Modified Files:
	README.lisp package.lisp persistent-pastes.lisp variable.lisp 
Log Message:
Small bugfixes for non-SBCL

Date: Fri May 21 15:30:46 2004
Author: bmastenbrook

Index: lisppaste2/README.lisp
diff -u lisppaste2/README.lisp:1.4 lisppaste2/README.lisp:1.5
--- lisppaste2/README.lisp:1.4	Tue Feb  3 22:03:09 2004
+++ lisppaste2/README.lisp	Fri May 21 15:30:45 2004
@@ -1,4 +1,4 @@
-;;;; $Id: README.lisp,v 1.4 2004/02/04 03:03:09 bmastenbrook Exp $
+;;;; $Id: README.lisp,v 1.5 2004/05/21 19:30:45 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/README.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -23,7 +23,7 @@
 ;;; follows, or simply (load "README").
 
 (require :asdf)
-(require :lisppaste)
+(asdf:operate 'asdf:load-op :lisppaste)
 
 (lisppaste:start-lisppaste :channels '("#lisppaste")
                            :nickname (format nil


Index: lisppaste2/package.lisp
diff -u lisppaste2/package.lisp:1.3 lisppaste2/package.lisp:1.4
--- lisppaste2/package.lisp:1.3	Tue Apr 27 17:03:21 2004
+++ lisppaste2/package.lisp	Fri May 21 15:30:45 2004
@@ -1,4 +1,4 @@
-;;;; $Id: package.lisp,v 1.3 2004/04/27 21:03:21 bmastenbrook Exp $
+;;;; $Id: package.lisp,v 1.4 2004/05/21 19:30:45 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/package.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -7,7 +7,7 @@
 
 (eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :lisppaste
-      (:use :cl :sb-bsd-sockets)
+      (:use :cl #+sbcl :sb-bsd-sockets)
     (:export :start-lisppaste :join-new-channel :shut-up :un-shut-up)))
 
 


Index: lisppaste2/persistent-pastes.lisp
diff -u lisppaste2/persistent-pastes.lisp:1.8 lisppaste2/persistent-pastes.lisp:1.9
--- lisppaste2/persistent-pastes.lisp:1.8	Tue Apr 27 17:47:32 2004
+++ lisppaste2/persistent-pastes.lisp	Fri May 21 15:30:45 2004
@@ -24,13 +24,15 @@
 
 (defun save-pastes-to-file (file-name)
   (let ((*package* (find-package :lisppaste)))
-    (with-open-file (file file-name :direction :output :if-exists :supersede)
+    (with-open-file (file file-name :direction :output :if-exists :supersede
+                          :if-does-not-exist :create)
       (let ((*print-readably* t))
         (format file "~{~S~%~}" (mapcan #'paste-list-alist (reverse *pastes*)))))))
 
 (defun serialize-transaction (file-name paste &optional annotate-number)
   (let ((*package* (find-package :lisppaste)))
-    (with-open-file (file file-name :direction :output :if-exists :append)
+    (with-open-file (file file-name :direction :output :if-exists :append
+                          :if-does-not-exist :create)
       (let ((*print-readably* t))
         (if annotate-number
             (format file "~S~%" (serialized-annotation annotate-number paste))


Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.13 lisppaste2/variable.lisp:1.14
--- lisppaste2/variable.lisp:1.13	Thu Mar 11 09:21:34 2004
+++ lisppaste2/variable.lisp	Fri May 21 15:30:45 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.13 2004/03/11 14:21:34 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.14 2004/05/21 19:30:45 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -51,10 +51,14 @@
 (defparameter *syndication-url*
   (araneida:merge-url *paste-external-url* "syndication"))
 
+(defparameter *stats-url*
+  (araneida:merge-url *paste-external-url* "stats"))
+
 (defvar *paste-listener*
   (let ((fwd-url (araneida:copy-url *paste-url*)))
     (setf (araneida:url-port fwd-url) *internal-http-port*)
-    (make-instance 'araneida:serve-event-reverse-proxy-listener
+    (make-instance #+sbcl 'araneida:serve-event-reverse-proxy-listener
+                   #-sbcl 'araneida:threaded-reverse-proxy-listener
                    :translations
                    `((,(araneida:urlstring *paste-url*)
                       ,(araneida:urlstring fwd-url)))