Freeze for SLIME 2.4

Sun Feb 23 16:32:03 UTC 2014

On 02/23/2014 07:47 AM, Luís Oliveira wrote:
> Hello everyone,
>
> As discussed a few weeks ago, I intend to release SLIME 2.4 next weekend.
>
> In the meantime, in a similar vein to the SBCL release process, I'd
> like to propose a freeze period where we focus on testing and fixing
> regressions since the move to GitHub.
>
> (Helmut, does this process sound good to you?)
>
> So, I invite users to go to https://github.com/slime/slime to grab the
> latest SLIME via either Git or the ZIP download link, and report any
> issues using GitHub's issue tracker. Pull requests are likewise most
> welcome. :-)
>
> Cheers,
>
Hello Luis,

I just downloaded the latest slime rom github. I ran the test suite 
(happens as part of the download process in my script for the default 
SBCL) but I also ran it for CCL and CCL32 (CCL is 64-bit, CCL32 is 32-bit).

The test suite for SBCL completed with no unexpected failures.

The test suite for CCL completed, but with 9 unexpected results:
FAILED autodoc-tests-16
FAILED autodoc-tests-20
FAILED autodoc-tests-22
FAILED autodoc-tests-23
FAILED autodoc-tests-24
FAILED autodoc-tests-25
FAILED autodoc-tests-26
FAILED autodoc-tests-27
FAILED autodoc-tests-34

Test autodoc-tests-16 backtrace:
signal(ert-test-failed (((should (equal "(symbol-status symbol &opti
ert-fail(((should (equal "(symbol-status symbol &optional ===> (pack
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-16 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-16 condition:
(ert-test-failed
((should
(equal "(symbol-status symbol &optional ===> (package (symbol-package 
symbol)) <===)"
(slime-autodoc-to-string)))
:form
(equal "(symbol-status symbol &optional ===> (package (symbol-package 
symbol)) <===)" "(symbol-status symbol &optional ===> package <===)")
:value nil :explanation
(arrays-of-different-length 76 50 "(symbol-status symbol &optional ===> 
(package (symbol-package symbol)) <===)" "(symbol-status symbol 
&optional ===> package <===)" first-mismatch-at 37)))
FAILED 8/113 autodoc-tests-16

Test autodoc-tests-20 backtrace:
signal(ert-test-failed (((should (equal "(apply #'eval-for-emacs &op
ert-fail(((should (equal "(apply #'eval-for-emacs &optional form buf
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-20 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-20 condition:
(ert-test-failed
((should
(equal "(apply #'eval-for-emacs &optional form buffer-package id &rest 
args)"
(slime-autodoc-to-string)))
:form
(equal "(apply #'eval-for-emacs &optional form buffer-package id &rest 
args)" "(apply (function eval-for-emacs) &optional form buffer-package 
id &rest args)")
:value nil :explanation
(arrays-of-different-length 68 77 "(apply #'eval-for-emacs &optional 
form buffer-package id &rest args)" "(apply (function eval-for-emacs) 
&optional form buffer-package id &rest args)" first-mismatch-at 7)))
FAILED 13/113 autodoc-tests-20

Test autodoc-tests-22 backtrace:
signal(ert-test-failed (((should (equal "(apply #'eval-for-emacs &op
ert-fail(((should (equal "(apply #'eval-for-emacs &optional form ===
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-22 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-22 condition:
(ert-test-failed
((should
(equal "(apply #'eval-for-emacs &optional form ===> buffer-package <=== 
id &rest args)"
(slime-autodoc-to-string)))
:form
(equal "(apply #'eval-for-emacs &optional form ===> buffer-package <=== 
id &rest args)" "(apply (function eval-for-emacs) &optional form ===> 
buffer-package <=== id &rest args)")
:value nil :explanation
(arrays-of-different-length 78 87 "(apply #'eval-for-emacs &optional 
form ===> buffer-package <=== id &rest args)" "(apply (function 
eval-for-emacs) &optional form ===> buffer-package <=== id &rest args)" 
first-mismatch-at 7)))
FAILED 15/113 autodoc-tests-22

Test autodoc-tests-23 backtrace:
signal(ert-test-failed (((should (equal "(error 'simple-condition &r
ert-fail(((should (equal "(error 'simple-condition &rest arguments &
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-23 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-23 condition:
(ert-test-failed
((should
(equal "(error 'simple-condition &rest arguments &key format-arguments 
format-control)"
(slime-autodoc-to-string)))
:form
(equal "(error 'simple-condition &rest arguments &key format-arguments 
format-control)" "(error 'simple-condition &rest args &key 
format-arguments format-control)")
:value nil :explanation
(arrays-of-different-length 78 73 "(error 'simple-condition &rest 
arguments &key format-arguments format-control)" "(error 
'simple-condition &rest args &key format-arguments format-control)" 
first-mismatch-at 34)))
FAILED 16/113 autodoc-tests-23

Test autodoc-tests-24 backtrace:
signal(ert-test-failed (((should (equal "(cerror \"Foo\" 'simple-con
ert-fail(((should (equal "(cerror \"Foo\" 'simple-condition &rest ar
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-24 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-24 condition:
(ert-test-failed
((should
(equal "(cerror \"Foo\" 'simple-condition &rest arguments &key 
format-arguments format-control)"
(slime-autodoc-to-string)))
:form
(equal "(cerror \"Foo\" 'simple-condition &rest arguments &key 
format-arguments format-control)" "(cerror \"Foo\" 'simple-condition 
&rest args &key format-arguments format-control)")
:value nil :explanation
(arrays-of-different-length 85 80 "(cerror \"Foo\" 'simple-condition 
&rest arguments &key format-arguments format-control)" "(cerror \"Foo\" 
'simple-condition &rest args &key format-arguments format-control)" 
first-mismatch-at 41)))
FAILED 17/113 autodoc-tests-24

Test autodoc-tests-25 backtrace:
signal(ert-test-failed (((should (equal "(with-retry-restart (&key =
ert-fail(((should (equal "(with-retry-restart (&key ===> (msg \"Retr
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-25 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-25 condition:
(ert-test-failed
((should
(equal "(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)"
(slime-autodoc-to-string)))
:form
(equal "(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body 
body)" "(with-retry-restart (&key ===> (msg retry.) <===) &body body)")
:value nil :explanation
(arrays-of-different-length 63 61 "(with-retry-restart (&key ===> (msg 
\"Retry.\") <===) &body body)" "(with-retry-restart (&key ===> (msg 
retry.) <===) &body body)" first-mismatch-at 36)))
FAILED 18/113 autodoc-tests-25

Test autodoc-tests-26 backtrace:
signal(ert-test-failed (((should (equal "(with-retry-restart (&key =
ert-fail(((should (equal "(with-retry-restart (&key ===> (msg \"Retr
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-26 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-26 condition:
(ert-test-failed
((should
(equal "(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body body)"
(slime-autodoc-to-string)))
:form
(equal "(with-retry-restart (&key ===> (msg \"Retry.\") <===) &body 
body)" "(with-retry-restart (&key ===> (msg retry.) <===) &body body)")
:value nil :explanation
(arrays-of-different-length 63 61 "(with-retry-restart (&key ===> (msg 
\"Retry.\") <===) &body body)" "(with-retry-restart (&key ===> (msg 
retry.) <===) &body body)" first-mismatch-at 36)))
FAILED 19/113 autodoc-tests-26

Test autodoc-tests-27 backtrace:
signal(ert-test-failed (((should (equal "(start-server port-file &ke
ert-fail(((should (equal "(start-server port-file &key (style swank:
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-27 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-27 condition:
(ert-test-failed
((should
(equal "(start-server port-file &key (style swank:*communication-style*) 
===> (dont-close swank:*dont-close*) <===)"
(slime-autodoc-to-string)))
:form
(equal "(start-server port-file &key (style swank:*communication-style*) 
===> (dont-close swank:*dont-close*) <===)" "(start-server port-file 
&key style ===> dont-close <===)")
:value nil :explanation
(arrays-of-different-length 107 56 "(start-server port-file &key (style 
swank:*communication-style*) ===> (dont-close swank:*dont-close*) <===)" 
"(start-server port-file &key style ===> dont-close <===)" 
first-mismatch-at 29)))
FAILED 20/113 autodoc-tests-27

Test autodoc-tests-34 backtrace:
signal(ert-test-failed (((should (equal "(foo ===> x <=== y)" (slime
ert-fail(((should (equal "(foo ===> x <=== y)" (slime-autodoc-to-str
#[nil "\306\307!\210\310 \210\311\312!▒q\210\313\216\314\315 \210
byte-code("\306\307\310\311\31D\313FE\314\211\315\211\316H
byte-code("\301\302!▒q\210\303\216\304\213\210+\305 \207" [temp-bu
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test autodoc-tests-34 "Check autodoc wor
ert-run-or-rerun-test([cl-struct-ert--stats (tag contrib) [[cl-struc
ert-run-tests((tag contrib) #[(event-type &rest event-args) \306=\
ert-run-tests-batch((tag contrib))
slime-batch-test((tag contrib))
eval((slime-batch-test (quote (tag contrib))))
command-line-1(("-L" "." "-L" ".." "-L" "test" "--eval" "(require (q
command-line()
normal-top-level()
Test autodoc-tests-34 condition:
(ert-test-failed
((should
(equal "(foo ===> x <=== y)"
(slime-autodoc-to-string)))
:form
(equal "(foo ===> x <=== y)" "(labels (&rest ===> bindings <===) &body 
body)")
:value nil :explanation
(arrays-of-different-length 19 46 "(foo ===> x <=== y)" "(labels (&rest 
===> bindings <===) &body body)" first-mismatch-at 1)))
FAILED 28/113 autodoc-tests-34

The test suite for CCL32 completed, but with 9 unexpected results:
FAILED autodoc-tests-16
FAILED autodoc-tests-20
FAILED autodoc-tests-22
FAILED autodoc-tests-23
FAILED autodoc-tests-24
FAILED autodoc-tests-25
FAILED autodoc-tests-26
FAILED autodoc-tests-27
FAILED autodoc-tests-34

The backtrace info for CCL32 looks very similar to that for CCL. I can 
provide it if needed.

Paul Bowyer