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

Modified Files: lisppaste.asd persistent-pastes.lisp Log Message: added persistent-pastes to the asdf file

Date: Sat Jan 17 13:02:15 2004 Author: bmastenbrook

Index: lisppaste2/lisppaste.asd diff -u lisppaste2/lisppaste.asd:1.2 lisppaste2/lisppaste.asd:1.3 --- lisppaste2/lisppaste.asd:1.2 Sat Jan 17 12:54:13 2004 +++ lisppaste2/lisppaste.asd Sat Jan 17 13:02:14 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.asd,v 1.2 2004/01/17 17:54:13 bmastenbrook Exp $ +;;;; $Id: lisppaste.asd,v 1.3 2004/01/17 18:02:14 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.asd,v $

;;;; See the LICENSE file for licensing information. @@ -29,6 +29,8 @@ (:file "web-server" :depends-on ("encode-for-pre")) (:file "lisppaste" + :depends-on ("web-server")) + (:file "persistent-pastes" :depends-on ("web-server"))))

Index: lisppaste2/persistent-pastes.lisp diff -u lisppaste2/persistent-pastes.lisp:1.1 lisppaste2/persistent-pastes.lisp:1.2 --- lisppaste2/persistent-pastes.lisp:1.1 Sat Jan 17 12:53:31 2004 +++ lisppaste2/persistent-pastes.lisp Sat Jan 17 13:02:14 2004 @@ -7,6 +7,7 @@ (cons 'title (paste-title paste)) (cons 'contents (paste-contents paste)) (cons 'universal-time (paste-universal-time paste)) + (cons 'channel (paste-channel paste)) (cons 'annotations (mapcar #'paste-alist (paste-annotations paste)))))

(defun save-pastes-to-file (file-name)