/usr/share/common-lisp/source/postmodern/postmodern.asd is in cl-postmodern 20151031-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 | (defpackage :postmodern-system
(:use :common-lisp :asdf)
(:export :*threads*))
(in-package :postmodern-system)
;; Change this to manually turn threading support on or off.
(eval-when (:compile-toplevel :load-toplevel :execute)
#+(or allegro armedbear cmu corman (and digitool ccl-5.1)
ecl lispworks openmcl sbcl)
(pushnew :postmodern-thread-safe *features*)
#+(or allegro clisp ecl lispworks mcl openmcl cmu sbcl)
(pushnew :postmodern-use-mop *features*))
(defsystem :postmodern
:description "PostgreSQL programming API"
:author "Marijn Haverbeke <marijnh@gmail.com>"
:license "BSD"
:depends-on (:cl-postgres :s-sql #+postmodern-use-mop :closer-mop
#+postmodern-thread-safe :bordeaux-threads)
:components
((:module :postmodern
:components ((:file "package")
(:file "connect" :depends-on ("package"))
(:file "query" :depends-on ("connect"))
(:file "prepare" :depends-on ("query"))
(:file "util" :depends-on ("query"))
(:file "transaction" :depends-on ("query"))
(:file "namespace" :depends-on ("query"))
#+postmodern-use-mop
(:file "table" :depends-on ("util" "transaction"))
(:file "deftable" :depends-on
("query" #+postmodern-use-mop "table"))))))
(defsystem :postmodern-tests
:depends-on (:postmodern :eos :simple-date :simple-date-postgres-glue)
:components
((:module :postmodern
:components ((:file "tests")))))
(defmethod perform ((op asdf:test-op) (system (eql (find-system :postmodern))))
(asdf:oos 'asdf:load-op :postmodern)
(asdf:oos 'asdf:load-op :cl-postgres-tests)
(asdf:oos 'asdf:load-op :postmodern-tests)
(funcall (intern (string :prompt-connection) (string :cl-postgres-tests))
(eval (intern (string :*test-connection*) (string :postmodern-tests))))
(funcall (intern (string :run!) (string :Eos)) :postmodern))
|