[CM] ilisp and emacs 21.3

[Orm Finnendahl]

Am 17. Oktober 2003, 06:49 Uhr (-0500) schrieb Rick Taube:
>
> if it doesnt work for you then please send me the error trace


I just checked out latest cvs to be sure. If I start plain vanilla
emacs 21.3.1 (without any .emacs), I get the following error output
(the listener.el file returns 't' and clisp is called with the correct
path):

-----------------------------------------------------------------------------
Debugger entered--Lisp error: (void-function search)
  (search y x)
  (if (search y x) (return (setq a e)))
  (progn (if (search y x) (return ...)) (setq --dolist-temp-- (cdr --dolist-temp--)))
  (while --dolist-temp-- (setq y (car --dolist-temp--)) (progn (if ... ...) (setq --dolist-temp-- ...)))
  (let ((--dolist-temp-- ...) y) (while --dolist-temp-- (setq y ...) (progn ... ...)) nil)
  (dolist (y (cddr e)) (if (search y x) (return ...)))
  (progn (dolist (y ...) (if ... ...)) (if a (return a)) (setq --dolist-temp-- (cdr --dolist-temp--)))
  (while --dolist-temp-- (setq e (car --dolist-temp--)) (progn (dolist ... ...) (if a ...) (setq --dolist-temp-- ...)))
  (let ((--dolist-temp-- lisp-implementations) e) (while --dolist-temp-- (setq e ...) (progn ... ... ...)) nil)
  (dolist (e lisp-implementations) (dolist (y ...) (if ... ...)) (if a (return a)))
  (let ((a nil)) (dolist (e lisp-implementations) (dolist ... ...) (if a ...)) a)
  (if (stringp x) (let (...) (dolist ... ... ...) a) (if x (dolist ... ...) nil))
  find-implementation("clisp")
  (let ((type ...) (this ...)) (if type (setq lisp-implementation type) (setq lisp-implementation nil)) (if (not ...) (progn ... ... ... ... ... ... ...)) (if (and listener-own-frame ...) (progn ... ... ... ... ... ...)) (if listener-own-frame (progn ... ... ...) (pop-to-buffer inferior-lisp-buffer)) (values))
  lisp-listener("clisp")
  eval((lisp-listener "clisp"))
  eval-expression((lisp-listener "clisp") nil)
  call-interactively(eval-expression)

-----------------------------------------------------------------------------


Using my .emacs file, I get the following error:


-----------------------------------------------------------------------------
Debugger entered--Lisp error: (wrong-type-argument arrayp backspace)
  define-key((keymap (24 keymap (98 . listener-select-buffer) (6 . listener-open-file) (67108910 . lisp-abort-error) (1 . lisp-arglist) (8 . lisp-eval-buffer) (13 . lisp-macroexpand-selection) (5 . lisp-eval-selection)) (menu-bar keymap (signals "Signals" keymap ... ... ... ... ... ... "Signals") (inout "In/Out" keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... "In/Out") (completion "Complete" keymap ... ... ... ... "Complete")) (mouse-2 . comint-insert-clicked-input) (4 . comint-delchar-or-maybe-eof) (13 . comint-send-input) (3 keymap (118 . lisp-show-variable-documentation) (102 . lisp-show-function-documentation) (100 . lisp-describe-sym) (97 . lisp-show-arglist) (107 . lisp-compile-file) (108 . lisp-load-file) (22 . lisp-show-variable-documentation) (6 . lisp-show-function-documentation) (11 . lisp-compile-file) (19 . comint-write-output) (4 . lisp-describe-sym) (16 . comint-previous-prompt) (14 . comint-next-prompt) (12 . lisp-load-file) (5 . comint-show-maximum-output) (18 . comint-show-output) (15 . comint-delete-output) (13 . comint-copy-old-input) (28 . comint-quit-subjob) (26 . comint-stop-subjob) (3 . comint-interrupt-subjob) (23 . backward-kill-word) (21 . comint-kill-input) (1 . lisp-show-arglist) (24 . comint-get-next-from-history) (32 . comint-accumulate) (27 keymap ... ...)) (C-down . comint-next-input) (C-up . comint-previous-input) (27 keymap (12 . comint-show-output) (115 . comint-next-matching-input) (114 . comint-previous-matching-input) (110 . comint-next-input) (112 . comint-previous-input) keymap (17 . indent-sexp)) keymap (127 . backward-delete-char-untabify) (27 keymap (17 . indent-sexp)) (9 . lisp-indent-line)) backspace listener-delete-backward-char)
  install-listener-commands()
  (progn (install-listener-commands) (inferior-lisp cmd) (if listener-menubar (set-buffer-menubar listener-menubar)) (make-local-variable (quote frame-title-format)) (setq frame-title-format "%S") (make-local-variable (quote buffers-menu-switch-to-buffer-function)) (make-local-variable (quote buffers-menu-omit-function)))
  (if (not (inferior-lisp-p)) (progn (install-listener-commands) (inferior-lisp cmd) (if listener-menubar ...) (make-local-variable ...) (setq frame-title-format "%S") (make-local-variable ...) (make-local-variable ...)))
  (let ((type ...) (this ...)) (if type (setq lisp-implementation type) (setq lisp-implementation nil)) (if (not ...) (progn ... ... ... ... ... ... ...)) (if (and listener-own-frame ...) (progn ... ... ... ... ... ...)) (if listener-own-frame (progn ... ... ...) (pop-to-buffer inferior-lisp-buffer)) (values))
  lisp-listener("/usr/local/bin/clisp")
  eval((lisp-listener "/usr/local/bin/clisp"))
  eval-expression((lisp-listener "/usr/local/bin/clisp") nil)
  call-interactively(eval-expression)
-----------------------------------------------------------------------------

--
Orm