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

[Brian Mastenbrook]

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

Modified Files:
	lisppaste.lisp 
Log Message:
Small fix for no-channel pasting.

Date: Wed Jun  9 13:05:31 2004
Author: bmastenbrook

Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.20 lisppaste2/lisppaste.lisp:1.21
--- lisppaste2/lisppaste.lisp:1.20	Wed Jun  9 12:46:35 2004
+++ lisppaste2/lisppaste.lisp	Wed Jun  9 13:05:31 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.20 2004/06/09 19:46:35 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.21 2004/06/09 20:05:31 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -53,6 +53,8 @@
                                  :port port)))
     (setf *connection* connection)
     (setf *channels* channels)
+    (if *no-channel-pastes*
+        (pushnew "None" *channels* :test #'string-equal))
     (read-pastes-from-file *paste-file*)
     (format t "Populating lookup table...~%")
     (clhs-lookup:populate-table)