[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp cl-irc/example/Mop_Sym.txt

[Brian Mastenbrook]

Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files:
	cliki.lisp 
Removed Files:
	Mop_Sym.txt 
Log Message:
CLiki: shut-up function; Mop_Sym removed

Date: Thu Jun  3 07:15:16 2004
Author: bmastenbrook

Index: cl-irc/example/cliki.lisp
diff -u cl-irc/example/cliki.lisp:1.7 cl-irc/example/cliki.lisp:1.8
--- cl-irc/example/cliki.lisp:1.7	Tue Jun  1 08:39:15 2004
+++ cl-irc/example/cliki.lisp	Thu Jun  3 07:15:16 2004
@@ -1,4 +1,4 @@
-;;;; $Id: cliki.lisp,v 1.7 2004/06/01 15:39:15 bmastenbrook Exp $
+;;;; $Id: cliki.lisp,v 1.8 2004/06/03 14:15:16 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $
 
 ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL.
@@ -9,9 +9,10 @@
 
 (defpackage :cliki (:use :common-lisp :irc :cl-ppcre)
   (:export :start-cliki-bot :*cliki-nickserv-password*
-	   :*respond-to-general-hellos*))
+	   :*respond-to-general-hellos* :shut-up :un-shut-up))
 (in-package :cliki)
 
+
 (defvar *small-definitions* nil)
 
 (defun read-small-definitions ()
@@ -163,6 +164,13 @@
 
 (defvar *cliki-connection*)
 (defvar *cliki-nickname*)
+
+(defun shut-up ()
+  (setf (irc:client-stream *cliki-connection*) (make-broadcast-stream)))
+
+(defun un-shut-up ()
+  (setf (irc:client-stream *cliki-connection*) *trace-output*))
+
 
 (defmacro aif (test conseq &optional (else nil))
   `(let ((it ,test))