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