[Lisppaste-cvs] CVS update: lisppaste2/irc-log-link.lisp

[Brian Mastenbrook]

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

Modified Files:
	irc-log-link.lisp 
Log Message:
oops, this won't work quite right when things fail :-)

Date: Tue Feb  3 21:43:57 2004
Author: bmastenbrook

Index: lisppaste2/irc-log-link.lisp
diff -u lisppaste2/irc-log-link.lisp:1.1 lisppaste2/irc-log-link.lisp:1.2
--- lisppaste2/irc-log-link.lisp:1.1	Tue Feb  3 21:41:12 2004
+++ lisppaste2/irc-log-link.lisp	Tue Feb  3 21:43:57 2004
@@ -61,4 +61,4 @@
   (let ((link (fetch-irc-log-link (string-left-trim "#" channel))))
     (if (stringp link)
         (araneida:merge-url (araneida:make-url :scheme "http" :host *meme-host*) link)
-        nil)))
+        "")))