/usr/share/doc/cl-asdf/examples/test-inline-methods.script is in cl-asdf 2:3.1.4-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 | ;;; -*- Lisp -*-
(defparameter *a* 0)
(def-test-system :foo
:components
((:file "file1"
:perform (load-op :before (o c)
(incf *a*)
(format t "Method run before ~A - *a* = ~S~%~%" (action-description o c) *a*)))
(:file "file2" :depends-on ("file1")
:perform (load-op (o c)
(incf *a*)
(format t "Method run for ~A - *a* = ~S~%" (action-description o c) *a*)
(call-next-method)))))
;;; Note: not calling load-system, because on ECL that would be a load-fasl-op,
;;; and at most the file load-op happen, whereas the second .o is linked and never loaded.
(operate 'load-op :foo)
(assert-equal *a* 2)
|