update for new version of sbcl, debian infrastructure updates

diff --git a/debian/changelog b/debian/changelog
index c32de5812612c5439b23d8aeafe5831dae779e32..fe4b47d5bdcf8fc33a4b3362463b3e4897af2304 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+vcs-tree (0.3.2-1) unstable; urgency=low
+
+  * New upstream (closes:533984)
+  * control: Update debhelper compat version, standards-version
+  * control: Changed section to lisp
+  
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 27 Jul 2009 11:21:37 -0600
+
 vcs-tree (0.3.1-1) unstable; urgency=low
 
   * Specify an arbitrary, but known to be valid, directory for HOME

diff --git a/debian/compat b/debian/compat
index b8626c4cff2849624fb67f87cd0ad72b163671ad..7ed6ff82de6bcc2a78243fc9c54d3ef5ac14da69 100644 (file)
--- a/debian/compat
+++ b/debian/compat
@@ -1 +1 @@
-4
+5

diff --git a/debian/control b/debian/control
index 79f6fe0b246b63fa4f71e27f53683c3c60e72cbb..9264fa4deebfc146a3bc78213ceb3a9adb916c1b 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -1,9 +1,9 @@
 Source: vcs-tree
-Section: devel
+Section: lisp
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
-Build-Depends: debhelper (>> 4.0.0), sbcl (>= 0.9.4)
-Standards-Version: 3.7.2.2
+Build-Depends: debhelper (>> 5.0.0), sbcl (>= 0.9.4)
+Standards-Version: 3.8.2
 
 Package: vcs-tree
 Architecture: any

diff --git a/kmrcl-excerpt.lisp b/kmrcl-excerpt.lisp
index d425d7101f683275f4ac5a2fe946ca1e3a4915c3..c24bb35438dd1bc8c0c3e1c86e1f2d76d830cb9a 100644 (file)
--- a/kmrcl-excerpt.lisp
+++ b/kmrcl-excerpt.lisp
@@ -90,8 +90,13 @@
                (#+lisp=cl ext:probe-directory #-lisp=cl lisp:probe-directory
                           path)))
     #+(or cmu scl) (eq :directory (unix:unix-file-kind (namestring path)))
+    #+sbcl
+    (let ((file-kind-fun
+           (or (find-symbol "NATIVE-FILE-KIND" :sb-impl)
+               (find-symbol "UNIX-FILE-KIND" :sb-unix))))
+      (when (eq :directory (funcall file-kind-fun (namestring path)))
+        path))
     #+lispworks (lw:file-directory-p path)
-    #+sbcl (eq :directory (sb-unix:unix-file-kind (namestring path)))
     #-(or allegro clisp cmu lispworks sbcl scl)
     (probe-file path)))