test-defsystem-loop.script 180 Bytes
Newer Older
1 2
;;; -*- Lisp -*-

3
(signals formatted-system-definition-error
4 5
 (def-test-system "foo" :perform ((test-op (o c)))))

6
(leave-test "correctly detected ill-formed system definition." 0)