[Erbot-cvs] Changes to erbot/erbot.el

[D . Goel]

Index: erbot/erbot.el
diff -u erbot/erbot.el:1.28 erbot/erbot.el:1.29
--- erbot/erbot.el:1.28 Tue Mar 29 19:14:26 2005
+++ erbot/erbot.el      Tue Mar 29 19:24:33 2005
@@ -1,5 +1,5 @@
 ;;; erbot.el --- Another robot for ERC.
-;; Time-stamp: <2005-03-29 13:59:29 deego>
+;; Time-stamp: <2005-03-29 14:24:11 deego>
 ;; Emacs Lisp Archive entry
 ;; Filename: erbot.el
 ;; Package: erbot
@@ -703,8 +703,8 @@
     (mapcar*
      (lambda (a b c) 
        (let ((foo (get a 'setf-method)))
-        (put b 'setf-method foo)
-        (put c 'setf-method foo)))
+        (when (fboundp b) (put b 'setf-method foo))
+        (when (fboundp c) (put c 'setf-method foo))))
      syms fssyms fsisyms)))