[beirc-cvs] CVS update: beirc/application.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv6047

Modified Files:
	application.lisp 
Log Message:
small bug fix to load-user-init-file: use pathname consistently; don't
try to redraw an *a-f* that isn't there.

Date: Sun Oct  2 11:14:17 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.23 beirc/application.lisp:1.24
--- beirc/application.lisp:1.23	Sun Oct  2 10:59:23 2005
+++ beirc/application.lisp	Sun Oct  2 11:14:16 2005
@@ -272,12 +272,13 @@
          do (unless (gethash join-channel (receivers frame))
               (irc:join connection join-channel)))))
 
-(defun load-user-init-file (&optional (pathname *beirc-user-init-file*))
-  (when (probe-file *beirc-user-init-file*)
+(defun load-user-init-file (&key (pathname *beirc-user-init-file*))
+  (when (probe-file pathname)
     (let ((*package* #.*package*))
      (load pathname))
-    (join-missing-channels *application-frame*)
-    (redraw-all-receivers)))
+    (when *application-frame*
+      (join-missing-channels *application-frame*)
+      (redraw-all-receivers))))
 
 (define-beirc-command (com-reload :name t) ()
   (load-user-init-file))