[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.asd lisppaste2/persistent-pastes.lisp

[Brian Mastenbrook]

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)