/usr/share/doc/cl-asdf/examples/test-defsystem-errors.script is in cl-asdf 2:3.1.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ;;; -*- Lisp -*-
(defun defsystem-error-handler (form &optional (error 'error))
(handler-case (eval form)
(error () t)
(:no-error (&rest values)
(declare (ignore values))
(error "Expected an error out of ~S" form))))
(defmacro defsystem-error ((&optional (error 'error)) &rest r)
`(defsystem-error-handler '(def-test-system ,@r) ',error))
(defsystem-error (non-system-system)
:foo :class :cl-source-file)
(defsystem-error (non-toplevel-system)
:foo :components ((:system :bar)))
|