-(cond ((not inferior-lisp-mode-map)
- (setq inferior-lisp-mode-map
- (copy-keymap comint-mode-map))
- (setq inferior-lisp-mode-map
- (nconc inferior-lisp-mode-map shared-lisp-mode-map))
- (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
- (define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file)
- (define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file)
- (define-key inferior-lisp-mode-map "\C-c\C-a" 'lisp-show-arglist)
- (define-key inferior-lisp-mode-map "\C-c\C-d" 'lisp-describe-sym)
- (define-key inferior-lisp-mode-map "\C-c\C-f"
- 'lisp-show-function-documentation)
- (define-key inferior-lisp-mode-map "\C-c\C-v"
- 'lisp-show-variable-documentation)))
+(unless inferior-lisp-mode-map
+ (setq inferior-lisp-mode-map (copy-keymap comint-mode-map))
+ (set-keymap-parent inferior-lisp-mode-map lisp-mode-shared-map)
+ (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
+ (define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file)
+ (define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file)
+ (define-key inferior-lisp-mode-map "\C-c\C-a" 'lisp-show-arglist)
+ (define-key inferior-lisp-mode-map "\C-c\C-d" 'lisp-describe-sym)
+ (define-key inferior-lisp-mode-map "\C-c\C-f"
+ 'lisp-show-function-documentation)
+ (define-key inferior-lisp-mode-map "\C-c\C-v"
+ 'lisp-show-variable-documentation))