This file is indexed.

/usr/share/common-lisp/source/quri/quri.asd is in cl-quri 20150804-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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#|
  This file is a part of quri project.
  Copyright (c) 2014 Eitaro Fukamachi (e.arrows@gmail.com)
|#

#|
  Author: Eitaro Fukamachi (e.arrows@gmail.com)
|#

(in-package :cl-user)
(defpackage quri-asd
  (:use :cl :asdf))
(in-package :quri-asd)

(defsystem quri
  :version "0.1.0"
  :author "Eitaro Fukamachi"
  :license "BSD 3-Clause"
  :depends-on (:babel
               :alexandria
               :split-sequence
               :cl-utilities
               #+sbcl :sb-cltl2)
  :components ((:module "src"
                :components
                ((:file "quri" :depends-on ("uri" "uri-classes" "domain" "parser" "decode" "encode" "error"))
                 (:file "uri" :depends-on ("port"))
                 (:module "uri-classes"
                  :pathname "uri"
                  :depends-on ("uri" "port" "encode" "decode")
                  :components
                  ((:file "ftp")
                   (:file "http")
                   (:file "ldap")
                   (:file "file")))
                 (:file "domain" :depends-on ("uri" "etld"))
                 (:file "etld")
                 (:file "parser" :depends-on ("error" "util"))
                 (:file "decode" :depends-on ("error" "util"))
                 (:file "encode")
                 (:file "port")
                 (:file "util")
                 (:file "error"))))
  :description "Yet another URI library for Common Lisp"
  :long-description
  #.(with-open-file (stream (merge-pathnames
                             #p"README.markdown"
                             (or *load-pathname* *compile-file-pathname*))
                            :if-does-not-exist nil
                            :direction :input
                            :element-type #+lispworks :default #-lispworks 'character
                            :external-format #+clisp charset:utf-8 #-clisp :utf-8)
      (when stream
        (let ((seq (make-array (file-length stream)
                               :element-type 'character
                               :fill-pointer t)))
          (setf (fill-pointer seq) (read-sequence seq stream))
          seq)))
  :in-order-to ((test-op (test-op quri-test))))