bldc/tests/test_append_6.lisp

13 lines
215 B
Common Lisp
Raw Normal View History

(define t1 (lambda ()
(append '(1 2 3) 'hej '(4 5 6))))
(spawn-trap t1 50)
(check (eq (recv ((exit-error (? tid) (? e)) e)
((exit-ok (? tid) (? r)) r))
type_error))