Commit 7c0e00f0 authored by  Hayley Patton's avatar Hayley Patton 🐢

Muffle compiler notes in SBCL when compiling the discrimination function,...

Muffle compiler notes in SBCL when compiling the discrimination function, lengthen server test timeouts
parent dfef9224
......@@ -46,7 +46,8 @@
`(lambda (interpreter cons-limit cycle-limit)
(declare (optimize (speed 3) (safety 1))
(interpreter interpreter)
((or null fixnum) cons-limit cycle-limit))
((or null fixnum) cons-limit cycle-limit)
#+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))
(loop
(let ((opcode (aref (interpreter-program interpreter)
(interpreter-program-counter interpreter))))
......
......@@ -7,8 +7,8 @@
(defun wait-for-server-to-catch-up ()
;; We should probably wait for the server's internal mailboxes to
;; be empty for a while to ensure that the server has indeed
;; "caught up", but these tests should take less than 100ms to handle.
(sleep 0.1))
;; "caught up", but these tests should take less than 500ms to handle.
(sleep 0.5))
(defun make-test-client ()
(decentralise-system:start-system *system*)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment