[Ilisp-help] Initialization happens twice?

[Matthew C. <cal...@ma...>]

Hello,

I'm using Ilisp in GNU Emacs 21.3 on Mac OS X, with OpenMCL as my 
inferior lisp. When I do M-x openmcl, the initialization process (or 
parts thereof) seems to happen twice. At least, the "?" prompt is 
printed twice, and when I put a debugging message in lisp-mode-hook, 
the *Messages* buffer seems to bear this out:

Loading ilisp...
Loading ilcompat...
Loading ilfsf21...done
Loading ilcompat...done
Loading comint-ipc...done
Loading extra/hyperspec...
Loading cl-seq...done
Loading cl-extra...done
Loading extra/hyperspec...done
Loading extra/cltl2...done
Loading ilisp-all.elc...done
DEBUG: HITTING ILISP-LOAD-HOOK
Loading menu interface.
'ilisp-*enable-cl-easy-meny-p*' is t
Loading ilisp-cl-easy-menu (source)...
Loading cl-macs...done
Loading ilisp-cl-easy-menu (source)...done
Loading ild...done
Loading ilisp-imenu...done
Loading ilisp...done
DEBUG: HITTING LISP-MODE-HOOK [2 times]
ILISP V5.12.0  Use M-x ilisp-bug for problems and suggestions.
Started initializing ILISP [2 times]
Finished initializing openmcl
Set *openmcl*'s directory to /Users/matthew/


Here's the section of my .emacs that deals with openmcl and ilisp:

(add-hook 'lisp-mode-hook
	'(lambda ()
		(message "DEBUG: HITTING LISP-MODE-HOOK")
		(require 'ilisp)))

(add-hook 'ilisp-load-hook
	'(lambda ()
		(message "DEBUG: HITTING ILISP-LOAD-HOOK")
		(add-hook 'ilisp-init-hook
			'(lambda ()
				(default-directory-lisp ilisp-last-buffer)))))

(setq inferior-lisp-program "/Users/matthew/bin/openmcl")
(setq ilisp-program "/Users/matthew/bin/openmcl")
(setq openmcl-program "/Users/matthew/bin/openmcl")
(autoload 'run-ilisp "ilisp" "Select a new inferior Lisp." t)
(autoload 'openmcl  "ilisp" "Run OpenMCL as inferior Lisp." t)

(set-default 'auto-mode-alist
	     (append '(("\\.lisp$" . lisp-mode)
				   ("\\.lsp$" . lisp-mode)
				   ("\\.cl$" . lisp-mode))
				 auto-mode-alist))

I've been messing around with this configuration for a while, but I 
haven't been able to figure it out. Any insight would be very 
appreciated.

Thanks,
Matt