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))) + "")))