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

Modified Files: persistent-pastes.lisp Log Message: stupid bugfix

Date: Sat Jan 17 13:29:41 2004 Author: bmastenbrook

Index: lisppaste2/persistent-pastes.lisp diff -u lisppaste2/persistent-pastes.lisp:1.3 lisppaste2/persistent-pastes.lisp:1.4 --- lisppaste2/persistent-pastes.lisp:1.3 Sat Jan 17 13:07:21 2004 +++ lisppaste2/persistent-pastes.lisp Sat Jan 17 13:29:41 2004 @@ -28,7 +28,7 @@ :title title :contents contents :universal-time universal-time - :channel (if (not channel) (car *channels*)) + :channel (if (not channel) (car *channels*) channel) :annotations (mapcar #'(lambda (e) (make-paste-from-alist e)) annotations))))

(defun read-pastes-from-file (file-name)