/usr/share/doc/cl-asdf/examples/test-urls-2.script 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 30 31 32 33 34 35 36 37 | ;;; -*- Lisp -*-
#+scl
(require :http-library)
(progn
(setf asdf:*central-registry* '("http://www.scieneer.com/files/"))
;; Compare the source files with local versions before loading them.
#+(and (or abcl scl) trust-the-net)
(flet ((compare (url local)
(with-open-file (stream1 url :element-type 'character
:external-format :utf-8)
(with-open-file (stream2 local :element-type 'character
:external-format :utf-8)
(loop
(let ((ch1 (read-char stream1 nil nil))
(ch2 (read-char stream2 nil nil)))
(unless (eql ch1 ch2)
(error "Unexpected source content."))
(unless (and ch1 ch2)
(return))))))))
(let ((url (system-definition-pathname "test-urls-2")))
(compare url "test-urls-2.asd"))
(let* ((system (asdf:find-system "test-urls-2"))
(url (component-pathname
(find-component system "test"))))
(compare url "test.lisp"))
(load-system 'test-urls-2)
;; Test that it compiled
(let* ((path (component-pathname
(find-component "test-urls-2" "test")))
(test (test-fasl path))
(test-date (file-write-date test)))
(format t "~&test-urls-2 1: ~S ~S~%" test test-date)
(assert test-date))))
|