* find-definition
** input: (read-from-emacs SWANK)
At the top level (no debugging or pending RPCs)
Definition of `read-from-emacs' is in swank.lisp.
Definition now at point.
Returning from definition restores original buffer/position.
At the top level (no debugging or pending RPCs)
** input: (swank::read-from-emacs CL-USER)
At the top level (no debugging or pending RPCs)
Definition of `swank::read-from-emacs' is in swank.lisp.
Definition now at point.
Returning from definition restores original buffer/position.
At the top level (no debugging or pending RPCs)
** input: (swank:start-server CL-USER)
At the top level (no debugging or pending RPCs)
Definition of `swank:start-server' is in swank.lisp.
Definition now at point.
Returning from definition restores original buffer/position.
At the top level (no debugging or pending RPCs)
* complete-symbol
** input: (cl:compile ((cl:compile cl:compile-file cl:compile-file-pathname cl:compiled-function cl:compiled-function-p cl:compiler-macro cl:compiler-macro-function) cl:compile))
Completion set:
expected: [(("cl:compile" "cl:compile-file" "cl:compile-file-pathname" "cl:compiled-function" "cl:compiled-function-p" "cl:compiler-macro" "cl:compiler-macro-function") "cl:compile")]
  actual: [(("cl:compile" "cl:compile-file" "cl:compile-file-pathname" "cl:compiled-function" "cl:compiled-function-p" "cl:compiler-macro" "cl:compiler-macro-function") "cl:compile")]
** input: (cl:foobar (nil ))
Completion set:
expected: [(nil "")]
  actual: [(nil "")]
** input: (cl::compile-file ((cl::compile-file cl::compile-file-pathname) cl::compile-file))
Completion set:
expected: [(("cl::compile-file" "cl::compile-file-pathname") "cl::compile-file")]
  actual: [(("cl::compile-file" "cl::compile-file-pathname") "cl::compile-file")]
** input: (cl:m-v-l ((cl:multiple-value-list cl:multiple-values-limit) cl:multiple-value-li))
Completion set:
expected: [(("cl:multiple-value-list" "cl:multiple-values-limit") "cl:multiple-value-li")]
  actual: [(("cl:multiple-value-list" "cl:multiple-values-limit") "cl:multiple-value-li")]
* arglist
** input: (swank:start-server (swank:start-server port-file &optional (style *communication-style*) dont-close))
At the top level (no debugging or pending RPCs)
FAILED: Argument list is as expected:
expected: ["(swank:start-server port-file &optional (style *communication-style*) dont-close)"]
  actual: ["(swank:start-server port-file &optional (style *communication-style*)
 dont-close)"]
At the top level (no debugging or pending RPCs)
** input: (swank::compound-prefix-match (swank::compound-prefix-match prefix target))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(swank::compound-prefix-match prefix target)"]
  actual: ["(swank::compound-prefix-match prefix target)"]
At the top level (no debugging or pending RPCs)
** input: (swank::create-socket (swank::create-socket host port))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(swank::create-socket host port)"]
  actual: ["(swank::create-socket host port)"]
At the top level (no debugging or pending RPCs)
** input: (swank::emacs-connected (swank::emacs-connected stream))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(swank::emacs-connected stream)"]
  actual: ["(swank::emacs-connected stream)"]
At the top level (no debugging or pending RPCs)
** input: (swank::compile-string-for-emacs (swank::compile-string-for-emacs string buffer position))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(swank::compile-string-for-emacs string buffer position)"]
  actual: ["(swank::compile-string-for-emacs string buffer position)"]
At the top level (no debugging or pending RPCs)
** input: (swank::connection.socket-io (swank::connection.socket-io \(struct\(ure\)?\|object\|instance\)))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\))"]
  actual: ["(swank::connection.socket-io structure)"]
At the top level (no debugging or pending RPCs)
** input: (cl:lisp-implementation-type (cl:lisp-implementation-type))
At the top level (no debugging or pending RPCs)
Argument list is as expected:
expected: ["(cl:lisp-implementation-type)"]
  actual: ["(cl:lisp-implementation-type)"]
At the top level (no debugging or pending RPCs)
* compile-defun
** input: ((defun cl-user::foo () (cl-user::bar)) (cl-user::bar))
At the top level (no debugging or pending RPCs)
error-location-correct
At the top level (no debugging or pending RPCs)
** input: ((defun cl-user::foo () 
          #\space
          ;;Sdf              
          (cl-user::bar)) (cl-user::bar))
At the top level (no debugging or pending RPCs)
error-location-correct
At the top level (no debugging or pending RPCs)
** input: ((defun cl-user::foo () 
             #+(or)skipped
             #| #||#
                #||# |#
             (cl-user::bar)) (cl-user::bar))
At the top level (no debugging or pending RPCs)
error-location-correct
At the top level (no debugging or pending RPCs)
** input: ((defun cl-user::foo () 
           (list `(1 ,(random 10) 2 ,@(random 10) 3 ,(cl-user::bar)))) (cl-user::bar))
At the top level (no debugging or pending RPCs)
error-location-correct
At the top level (no debugging or pending RPCs)
** input: ((defun cl-user::foo ()
          "\" bla bla \""
          (cl-user::bar)) (cl-user::bar))
At the top level (no debugging or pending RPCs)
error-location-correct
At the top level (no debugging or pending RPCs)
* async-eval-debugging
** input: (1)
At the top level (no debugging or pending RPCs)
At the top level (no debugging or pending RPCs)
Maximum depth reached (1) is 1.
** input: (2)
At the top level (no debugging or pending RPCs)
At the top level (no debugging or pending RPCs)
Maximum depth reached (2) is 2.
** input: (3)
At the top level (no debugging or pending RPCs)
At the top level (no debugging or pending RPCs)
Maximum depth reached (3) is 3.
* loop-interrupt-quit
** input: nil
At the top level (no debugging or pending RPCs)
In eval state.
At the top level (no debugging or pending RPCs)
* loop-interrupt-continue-interrupt-quit
** input: nil
At the top level (no debugging or pending RPCs)
At the top level (no debugging or pending RPCs)
* interactive-eval
** input: nil
At the top level (no debugging or pending RPCs)
At the top level (no debugging or pending RPCs)
Minibuffer contains: "3"
* interrupt-bubbling-idiot
** input: nil
At the top level (no debugging or pending RPCs)
* package-updating
** input: (COMMON-LISP (CL))
In COMMON-LISP package.
FAILED: slime-lisp-package is in ("CL").
** input: (KEYWORD ( KEYWORD))
In KEYWORD package.
slime-lisp-package is in ("" "KEYWORD").
** input: (COMMON-LISP-USER (CL-USER USER))
In COMMON-LISP-USER package.
FAILED: slime-lisp-package is in ("CL-USER" "USER").
* repl-test
** input: ((+ 1 2) SWANK> (+ 1 2)
3
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (+ 1 2)"]
  actual: ["CL-USER> (+ 1 2)"]
FAILED: Buffer contains result:
expected: ["SWANK> (+ 1 2)
3
SWANK> "]
  actual: ["CL-USER> (+ 1 2)
3
CL-USER> "]
** input: ((princ 10) SWANK> (princ 10)
10
10
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (princ 10)"]
  actual: ["CL-USER> (princ 10)"]
FAILED: Buffer contains result:
expected: ["SWANK> (princ 10)
10
10
SWANK> "]
  actual: ["CL-USER> (princ 10)
10
10
CL-USER> "]
** input: ((princ 10)(princ 20) SWANK> (princ 10)(princ 20)
1020
20
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (princ 10)(princ 20)"]
  actual: ["CL-USER> (princ 10)(princ 20)"]
FAILED: Buffer contains result:
expected: ["SWANK> (princ 10)(princ 20)
1020
20
SWANK> "]
  actual: ["CL-USER> (princ 10)(princ 20)
1020
20
CL-USER> "]
** input: ((dotimes (i 10 77) (princ i) (terpri)) SWANK> (dotimes (i 10 77) (princ i) (terpri))
0
1
2
3
4
5
6
7
8
9
77
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (dotimes (i 10 77) (princ i) (terpri))"]
  actual: ["CL-USER> (dotimes (i 10 77) (princ i) (terpri))"]
FAILED: Buffer contains result:
expected: ["SWANK> (dotimes (i 10 77) (princ i) (terpri))
0
1
2
3
4
5
6
7
8
9
77
SWANK> "]
  actual: ["CL-USER> (dotimes (i 10 77) (princ i) (terpri))
0
1
2
3
4
5
6
7
8
9
77
CL-USER> "]
* repl-return
** input: ((+ 1 2)  SWANK> (+ 1 2)
3
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (+ 1 2)"]
  actual: ["CL-USER> (+ 1 2)"]
FAILED: Buffer contains result:
expected: ["SWANK> (+ 1 2)
3
SWANK> "]
  actual: ["CL-USER> (+ 1 2)
3
CL-USER> "]
** input: ((+ 1  2) SWANK> (+ 1 2)
3
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (+ 1 2)"]
  actual: ["CL-USER> (+ 1 2)"]
FAILED: Buffer contains result:
expected: ["SWANK> (+ 1 2)
3
SWANK> "]
  actual: ["CL-USER> (+ 1 2)
3
CL-USER> "]
** input: ((+ 1
 2) SWANK> (+ 1
2)
3
SWANK> )
FAILED: Buffer contains input:
expected: ["SWANK> (+ 1
2)"]
  actual: ["CL-USER> (+ 1
2)"]
FAILED: Buffer contains result:
expected: ["SWANK> (+ 1
2)
3
SWANK> "]
  actual: ["CL-USER> (+ 1
2)
3
CL-USER> "]
* repl-read
** input: ((read-line) foo SWANK> (values (read-line))
foo
"foo"
SWANK> )
FAILED: Buffer contains result
** input: ((read-char) 1 SWANK> (values (read-char))
1
#\1
SWANK> )
FAILED: Buffer contains result
** input: ((read) (+ 2 3
4) SWANK> (values (read))
(+ 2 3
4)
(+ 2 3 4)
SWANK> )
FAILED: Buffer contains result
* repl-read-lines
** input: ((list (read-line) (read-line) (read-line)) (a b c) SWANK> (list (read-line) (read-line) (read-line))
a
b
c
("a" "b" "c")
SWANK> )
FAILED: Buffer contains result
* interactive-eval-output
** input: ((+ 1 2) ;;;; (+ 1 2) ...
SWANK>  nil)
FAILED: Buffer contains result:
expected: [";;;; (+ 1 2) ...
SWANK> "]
  actual: [";;;; (+ 1 2) ...
CL-USER> "]
Buffer visible?:
expected: [nil]
  actual: [nil]
** input: ((princ 10) ;;;; (princ 10) ...
10
SWANK>  t)
FAILED: Buffer contains result:
expected: [";;;; (princ 10) ...
10
SWANK> "]
  actual: [";;;; (princ 10) ...
10
CL-USER> "]
Buffer visible?:
expected: [t]
  actual: [t]
* break
** input: nil
