diff options
author | Robert Brown <robert.brown@gmail.com> | 2023-04-30 17:27:43 -0400 |
---|---|---|
committer | Robert Brown <robert.brown@gmail.com> | 2023-04-30 17:27:43 -0400 |
commit | 55865176d9577f6460b7745591fae0954dc2ecf4 (patch) | |
tree | 2b47c4cb8788156e53b8390f33f9f871327d26ff | |
parent | dd0ff41c09687fb86561f16ad45c320cbeaf4ba8 (diff) |
The intent was to swap just the FOR and REPEAT clauses but the COLLECT clause
ended up in the wrong place.
Thanks to Yehouda Harpaz for reporting this problem.
-rw-r--r-- | swank-client-test.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/swank-client-test.lisp b/swank-client-test.lisp index d8c83eb..d5385d3 100644 --- a/swank-client-test.lisp +++ b/swank-client-test.lisp @@ -67,7 +67,7 @@ (let* ((server-ports (loop repeat +server-count+ collect (create-swank-server))) (connections (loop for port in server-ports collect (slime-connect "localhost" port))) (work (make-array +server-count+ - :initial-contents (loop for i from 2 collect i repeat +server-count+))) + :initial-contents (loop for i from 2 repeat +server-count+ collect i))) (golden (map 'vector (lambda (x) (* x 2)) work))) (unwind-protect (let ((results (make-array +server-count+ :initial-element nil)) |