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

[Brian Mastenbrook]

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 , at 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)))