reimplement extname

wemeetagain · Nov 1, 2015 · 96ef8ac · 96ef8ac
1 parent 7dd82fb
commit 96ef8ac
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/posix.lisp b/src/posix.lisp
@@ -128,10 +128,10 @@
     base))
 
 (defun extname (path)
-  (let ((pathname (pathname path)))
-    (if (pathname-type pathname)
-	(format nil ".~A" (pathname-type pathname))
-	"")))
+  (multiple-value-bind (root dir base ext)
+      (posix-split-path path)
+    (declare (ignore root dir base))
+    ext))
 
 (defun parse (path)
   (multiple-value-bind (root dir base ext)