/usr/share/common-lisp/source/uffi/uffi.asd is in cl-uffi 2.1.2-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 | ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: uffi.asd
;;;; Purpose: ASDF system definition file for UFFI package
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
(defpackage #:uffi-system (:use #:asdf #:cl))
(in-package #:uffi-system)
#+(or allegro lispworks cmu openmcl digitool cormanlisp sbcl scl)
(defsystem uffi
:name "uffi"
:author "Kevin Rosenberg <kevin@rosenberg.net>"
:version "2.0.0"
:maintainer "Kevin M. Rosenberg <kmr@debian.org>"
:licence "Lessor Lisp General Public License"
:description "Universal Foreign Function Library for Common Lisp"
:long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
:components
((:module :src
:components
((:file "package")
(:file "i18n" :depends-on ("package"))
(:file "primitives" :depends-on ("i18n"))
#+(or openmcl digitool) (:file "readmacros-mcl" :depends-on ("package"))
(:file "objects" :depends-on ("primitives"))
(:file "aggregates" :depends-on ("primitives"))
(:file "strings" :depends-on ("primitives" "functions" "aggregates" "objects"
#+(or openmcl digitool) "readmacros-mcl"))
(:file "functions" :depends-on ("primitives"))
(:file "libraries" :depends-on ("package"))
(:file "os" :depends-on ("package"))))
))
#+(or allegro lispworks cmu openmcl digitool cormanlisp sbcl scl)
(defmethod perform ((o test-op) (c (eql (find-system 'uffi))))
(oos 'load-op 'uffi-tests)
(oos 'test-op 'uffi-tests :force t))
|