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)))