Initial version of asdf-utils.

diff --git a/asdf-utils.asd b/asdf-utils.asd
new file mode 100644 (file)
index 0000000..295f844
--- /dev/null
+++ b/asdf-utils.asd
@@ -0,0 +1,14 @@
+;;; -*- Mode: Lisp ; Syntax: ANSI-Common-Lisp -*-
+;;; ASDF-Utils, a stable interface to utilities from ASDF.
+;;;
+;;; Free Software available under an MIT-style license.
+;;; Copyright (c) 2010 - 2012, Francois-Rene Rideau
+;;;
+
+(defsystem :asdf-utils
+  :licence "MIT"
+  :description "Utilities from ASDF"
+  :long-description "Utilities from ASDF, repackaged"
+  :depends-on ((:version :asdf "2.23"))
+  :components
+  ((:file "package")))

diff --git a/build.xcvb b/build.xcvb
new file mode 100644 (file)
index 0000000..ebe45fa
--- /dev/null
+++ b/build.xcvb
@@ -0,0 +1,6 @@
+;;-*- Lisp -*-
+(module
+ (:fullname "asdf-utils"
+  :build-depends-on ("/asdf")
+  :depends-on
+  ("package")))

diff --git a/package.lisp b/package.lisp
new file mode 100644 (file)
index 0000000..cc2dfa0
--- /dev/null
+++ b/package.lisp
@@ -0,0 +1,35 @@
+(in-package :asdf)
+
+(eval-when (:compile-toplevel :execute)
+  (defparameter *asdf-utils-exports*
+    '(compile-file*
+      compile-file-pathname*
+      resolve-location
+      ;; aif it
+      appendf orf
+      length=n-p
+      remove-keys remove-keyword
+      first-char last-char ends-with
+      directory-pathname-p ensure-directory-pathname
+      absolute-pathname-p ensure-pathname-absolute pathname-root
+      getenv getenv-pathname getenv-pathnames
+      getenv-absolute-directory getenv-absolute-directories
+      probe-file*
+      find-symbol* strcat
+      make-pathname-component-logical make-pathname-logical
+      merge-pathnames* coerce-pathname subpathname subpathname*
+      pathname-directory-pathname pathname-parent-directory-pathname
+      read-file-forms
+      resolve-symlinks truenamize
+      split-string
+      split-name-type
+      subdirectories directory-files
+      while-collecting
+      *wild* *wild-file* *wild-directory* *wild-inferiors*
+      *wild-path* wilden directorize-pathname-host-device))
+
+
+(defpackage :asdf-utils
+  (:use :common-lisp :asdf)
+  (:import-from :asdf . #.*asdf-utils-exports*)
+  (:export . #.*asdf-utils-exports*))