From 7a0c81f5e04c203f78fb81f973ff5658f69a8954 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Mon, 27 Jul 2009 11:13:49 -0600 Subject: [PATCH] New upstream and debian-specific file updates --- ChangeLog | 5 +++++ debian/changelog | 9 +++++++++ debian/compat | 2 +- debian/control | 4 ++-- impl.lisp | 9 ++++++--- 5 files changed, 23 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index e07a5f9..d07a4b0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +26 Jul 2009 Kevin Rosenberg + * Version 1.99 + * impl.lisp: Update SBCL internal call for probe-directory + (Thanks to Cyrus Harmon) + 28 Jan 2008 Kevin Rosenberg * Version 1.98 * {datetime,strings,tests}.lisp: Add remove-char-string diff --git a/debian/changelog b/debian/changelog index f9ef78f..15948a5 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,12 @@ +cl-kmrcl (1.99-1) unstable; urgency=low + + * New upstream + * Update debhelper compat version + * Change section to lisp + * Update standards version + + -- Kevin M. Rosenberg Mon, 27 Jul 2009 11:10:24 -0600 + cl-kmrcl (1.98-1) unstable; urgency=low * New upstream 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 831a0b1..9a0e2fc 100644 --- a/debian/control +++ b/debian/control @@ -1,9 +1,9 @@ Source: cl-kmrcl -Section: devel +Section: lisp Priority: optional Maintainer: Kevin M. Rosenberg Build-Depends: debhelper (>= 4.0.0) -Standards-Version: 3.7.3.0 +Standards-Version: 3.8.1 Package: cl-kmrcl Architecture: all diff --git a/impl.lisp b/impl.lisp index 52193ab..762d27f 100644 --- a/impl.lisp +++ b/impl.lisp @@ -51,9 +51,12 @@ path) #+lispworks (when (lw:file-directory-p path) path) - #+sbcl (when (eq :directory - (sb-unix:unix-file-kind (namestring path))) - 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)) #-(or allegro clisp cmu lispworks sbcl scl) (probe-file path))) (if probe -- 2.34.1