When any error occurs, after putting ",a", the source code window
doesn't resume.
And tab completion doesn't work well.
*To MIT-Scheme developer*: It might be a bug in *MIT-Scheme*.
Error occurs
The object nil, passed as an argument to string-ci=?, is not a string.
[wrong-type-argument]
Restarts:
0: [abort] Return to SLIME top-level.
Backtrace:
0: ;undefined expression
1: (if make(not (and (string? string1) (string? string2)))
(guarantee-2-strings/fail string1 string2 (quote string-ci=?)))
2: (if (string? pstring) (string-ci=? *buffer-pstring*
"COMMON-LISP-USER") #t)
3: (pstring->env pstring)
4: (emacs-rex socket sexp pstring)
5: (with-simple-restart (quote abort) "Return to SLIME top-level."
(lambda () (let ((in-temp (find-restart (quote abort))) (out-temp))
(shallow-fluid-bind (lambda () (set! out-temp (set! *top-level-restart*
(set! in-temp))) #!unspecific) (lambda () (process-one-message socket
0)) (lambda () (set! in-temp (set! *top-level-restart* (set! out-temp)))
#!unspecific)))))
6: (start-swank)
I attached the log file.
[---Sent---] 0.17
(:emacs-rex (swank:connection-info) nil #t 1)
[-Received-] 0.17
(:return (:ok (:pid 3116 :package (:name "(user)" :prompt "(user)") :lisp-implementation (:type "MIT/GNU Scheme" :version "9.1") :version "20100404")) 1)
[Actionlist] 0.17
1: finished :connection-info
params: [':pid', '3116', ':package', [':name', '"(user)"', ':prompt', '"(user)"'], ':lisp-implementation', [':type', '"MIT/GNU Scheme"', ':version', '"9.1"'], ':version', '"20100404"']
Package:(user) Prompt:(user)
[---Sent---] 0.19
(:emacs-rex (swank:create-repl nil) "(user)" #t 2)
[-Received-] 0.19
(:return (:ok ("environment-14" "environment-14")) 2)
[Actionlist] 0.19
2: finished :create-repl
params: ['"environment-14"', '"environment-14"']
[---Sent---] 0.23
(:emacs-rex (swank:simple-completions "make" "(user)") nil #t 3)
[-Received-] 0.23
(:debug 0 1 ("The object nil, passed as an argument to string-ci=?, is not a string." " [wrong-type-argument]" nil) (("abort" "Return to SLIME top-level.")) ((0 ";undefined expression") (1 "(if (not (and (string? string1) (string? string2))) (guarantee-2-strings/fail string1 string2 (quote string-ci=?)))") (2 "(if (string? pstring) (string-ci=? *buffer-pstring* \"COMMON-LISP-USER\") #t)") (3 "(pstring->env pstring)") (4 "(emacs-rex socket sexp pstring)") (5 "(with-simple-restart (quote abort) \"Return to SLIME top-level.\" (lambda () (let ((in-temp (find-restart (quote abort))) (out-temp)) (shallow-fluid-bind (lambda () (set! out-temp (set! *top-level-restart* (set! in-temp))) #!unspecific) (lambda () (process-one-message socket 0)) (lambda () (set! in-temp (set! *top-level-restart* (set! out-temp))) #!unspecific)))))") (6 "(start-swank)")) ())
[-Received-] 0.25
(:debug-activate 0 1)
_______________________________________________
MIT-Scheme-devel mailing list
MIT-Scheme-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/mit-scheme-devel
