/usr/share/doc/cl-asdf/examples/in-progress.lisp is in cl-asdf 2:3.3.1-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 18 19 20 21 22 23 24 25 26 27 28 29 | (in-package asdf)
(assert
(equalp
(let ((*system-definition-search-functions*
'(sysdef-central-registry-search))
(*central-registry* (list "/tmp/ok-1/" "/tmp/bad" "/tmp/ok-2/")))
(handler-bind
((error (lambda (c)
(when (find-restart 'remove-entry-from-registry)
(invoke-restart 'remove-entry-from-registry)))))
(find-system "a" nil))
*central-registry*)
(list "/tmp/ok-1/" "/tmp/ok-2/"))
)
(assert
(equalp
(let ((*system-definition-search-functions*
'(sysdef-central-registry-search))
(*central-registry* (list "/tmp/ok-1/" "/tmp/bad" "/tmp/ok-2/")))
(handler-bind
((error (lambda (c)
(when (find-restart 'coerce-entry-to-directory)
(invoke-restart 'coerce-entry-to-directory)))))
(find-system "a" nil))
*central-registry*)
(list "/tmp/ok-1/" #p"/tmp/bad/" "/tmp/ok-2/"))
)
|