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