From a443b5ed5e4852221ddb425dcde5616305343dd4 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Mon, 27 Jul 2009 11:36:23 -0600 Subject: [PATCH] update for new version of sbcl, debian infrastructure updates --- debian/changelog | 8 ++++++++ debian/compat | 2 +- debian/control | 6 +++--- kmrcl-excerpt.lisp | 7 ++++++- 4 files changed, 18 insertions(+), 5 deletions(-) diff --git a/debian/changelog b/debian/changelog index c32de58..fe4b47d 100644 --- 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 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 b8626c4..7ed6ff8 100644 --- a/debian/compat +++ b/debian/compat @@ -1 +1 @@ -4 +5 diff --git a/debian/control b/debian/control index 79f6fe0..9264fa4 100644 --- a/debian/control +++ b/debian/control @@ -1,9 +1,9 @@ Source: vcs-tree -Section: devel +Section: lisp Priority: optional Maintainer: Kevin M. Rosenberg -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 d425d71..c24bb35 100644 --- 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))) -- 2.34.1