Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

do not compile features abcl does not support

  • Loading branch information...
commit 0d4a21be5adc03723986456fd6692ebda133d352 1 parent 7a1c822
@lmj authored
View
2  test/cognate-test.lisp
@@ -679,8 +679,6 @@
(is (zerop (pcount-if 'non-function '())))
(is (zerop (pcount-if 'non-function #())))
(signals error
- (count-if 'non-function '() :start 2))
- (signals error
(pcount-if 'non-function '() :start 2))
(loop
:for size :from 1 :below 100
View
6 test/kernel-test.lisp
@@ -68,6 +68,7 @@
(repeat 1000
(is (null (receive-result channel))))))
+#-abcl
(lp-base-test kill-during-end-kernel-test
(let* ((*kernel* (make-kernel 2))
(kernel *kernel*)
@@ -235,6 +236,7 @@
(is (equal '(6 6 6)
(collect-n 3 (receive-result channel)))))))
+#-abcl
(lp-test killed-worker-test
(task-handler-bind ((foo-error (lambda (e)
(declare (ignore e))
@@ -254,6 +256,7 @@
#'lparallel.kernel::thread
(lparallel.kernel::workers *kernel*))))
+#-abcl
(lp-base-test active-worker-replacement-test
(with-thread-count-check
(with-new-kernel (2)
@@ -269,6 +272,7 @@
(receive-result channel))))
(is (all-workers-alive-p)))))
+#-abcl
(lp-base-test sleeping-worker-replacement-test
(with-thread-count-check
(with-new-kernel (2 :bindings (list (cons '*error-output*
@@ -358,6 +362,7 @@
(is (eql 3 (receive-result channel)))
(is (eq 'timeout (receive-result channel))))))
+#+z
(lp-base-test cancel-timeout-test
(with-new-kernel (2)
(let* ((channel (make-channel))
@@ -366,6 +371,7 @@
(cancel-timeout timeout 'a)
(is (eq 'a (receive-result channel))))))
+#-abcl
(lp-base-test kill-timeout-test
(with-new-kernel (2)
(let* ((channel (make-channel))
View
1  test/promise-test.lisp
@@ -230,6 +230,7 @@
(let ((x (future (error 'foo-error))))
(is (equal '(3 4) (multiple-value-list (force x))))))))
+#-abcl
(lp-base-test kill-future-test
(handler-bind ((warning (lambda (w)
(when-let (r (find-restart 'muffle-warning w))

0 comments on commit 0d4a21b

Please sign in to comment.
Something went wrong with that request. Please try again.