New upstream and debian-specific file updates

diff --git a/ChangeLog b/ChangeLog
index e07a5f97f7e873e44de11e78a2d020f3bbc55019..d07a4b01cb1899b3f0f34c182282a2afde16c0b7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+26 Jul 2009  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 1.99
+       * impl.lisp: Update SBCL internal call for probe-directory
+       (Thanks to Cyrus Harmon)
+
 28 Jan 2008  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 1.98
        * {datetime,strings,tests}.lisp: Add remove-char-string

diff --git a/debian/changelog b/debian/changelog
index f9ef78f4f636889e91c1a1f1c3dd8df65cb531f6..15948a5954c297465a2060de54b64fb5996ad229 100644 (file)
--- 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 <kmr@debian.org>  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 b8626c4cff2849624fb67f87cd0ad72b163671ad..7ed6ff82de6bcc2a78243fc9c54d3ef5ac14da69 100644 (file)
--- a/debian/compat
+++ b/debian/compat
@@ -1 +1 @@
-4
+5

diff --git a/debian/control b/debian/control
index 831a0b17f7d80aa6d033ad026e5f610ccb15b308..9a0e2fc1158c588c54e90707146795b72c243859 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -1,9 +1,9 @@
 Source: cl-kmrcl
-Section: devel
+Section: lisp
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
 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 52193ab12880360d0e638fa16c7b266c2327b7f6..762d27ffafddeeba3baf772707a3bf3c577f6121 100644 (file)
--- 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