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)