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