Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files: lisppaste.lisp Log Message: Small error in make-paste

Date: Thu Jun 24 08:03:22 2004 Author: bmastenbrook

Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.21 lisppaste2/lisppaste.lisp:1.22 --- lisppaste2/lisppaste.lisp:1.21 Wed Jun 9 13:05:31 2004 +++ lisppaste2/lisppaste.lisp Thu Jun 24 08:03:22 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.21 2004/06/09 20:05:31 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.22 2004/06/24 15:03:22 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -85,7 +85,7 @@ &key channel user title &allow-other-keys) (let ((paste-name (gensym))) `(let ((,paste-name (make-paste ,@keys))) - (if (not (string-equal channel "None")) + (if (not (string-equal ,channel "None")) (irc:privmsg *connection* ,channel (if ,annotate (format nil "~A annotated #~A with "~A" at ~A" ,user ,real-number ,title ,url) @@ -124,4 +124,4 @@ :if-does-not-exist :create) (write-string text *trace-output*) (write-string text s) - (finish-output s))) \ No newline at end of file + (finish-output s)))