[Cl-irc-cvs] CVS update: cl-irc/example/specbot.lisp

[Brian Mastenbrook]

Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/tmp/cvs-serv3365/example

Modified Files:
	specbot.lisp 
Log Message:
cocoa lookup

Date: Tue Nov 16 23:35:03 2004
Author: bmastenbrook

Index: cl-irc/example/specbot.lisp
diff -u cl-irc/example/specbot.lisp:1.9 cl-irc/example/specbot.lisp:1.10
--- cl-irc/example/specbot.lisp:1.9	Tue Oct 26 03:38:49 2004
+++ cl-irc/example/specbot.lisp	Tue Nov 16 23:35:02 2004
@@ -1,4 +1,4 @@
-;;;; $Id: specbot.lisp,v 1.9 2004/10/26 01:38:49 bmastenbrook Exp $
+;;;; $Id: specbot.lisp,v 1.10 2004/11/16 22:35:02 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $
 
 ;;;; specbot.lisp - an example IRC bot for cl-irc
@@ -46,6 +46,11 @@
        (funcall (intern "SYMBOL-LOOKUP" :r5rs-lookup)
                 str)))
 
+(defun cocoa-lookup (str)
+  (and (find-package :cocoa-lookup)
+       (funcall (intern "SYMBOL-LOOKUP" :cocoa-lookup)
+                str)))
+
 (defun elisp-lookup (str)
   (and (find-package :elisp-lookup)
        (funcall (intern "SYMBOL-LOOKUP" :elisp-lookup)
@@ -59,6 +64,7 @@
 (defvar *spec-providers*
   '((clhs-lookup "clhs" "The Common Lisp HyperSpec")
     (r5rs-lookup "r5rs" "The Revised 5th Ed. Report on the Algorithmic Language Scheme")
+    (cocoa-lookup "cocoa" "Classes in the Cocoa Foundation and Application kits")
     (elisp-lookup "elisp" "GNU Emacs Lisp Reference Manual")
     (clim-lookup "clim" "Common Lisp Interface Manager II Specification")))