From 08af5459d3ba7d229a8339d242ef742cfe846861 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 28 Dec 2006 21:11:26 +0000
Subject: [PATCH] r11408: handle sbcl's not allowing a #\. in pathname's name
 field

---
 parse-common.lisp | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/parse-common.lisp b/parse-common.lisp
index 25d3ee3..c9adcf7 100644
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -62,17 +62,23 @@
 "Return pathname for a umls filename with an optional extension"
   (etypecase filename
     (string
+     (let* ((name-list (delimited-string-to-list filename #\.))
+            (name (if (second name-list)
+                      (first name-list)
+                      (concatenate 'string (first name-list) (or extension ""))))
+            (type (when (second name-list)
+                    (concatenate 'string (second name-list) (or extension "")))))
      (merge-pathnames
-      (make-pathname :name (concatenate 'string filename extension))
+      (make-pathname :name name :type type)
       (case (schar filename 0)
-	((#\M #\m)
-	 *meta-path*)
-	((#\L #\l)
-	 *lex-path*)
-	((#\S #\s)
-	 *net-path*)
-	(t
-	 *umls-path*))))
+        ((#\M #\m)
+         *meta-path*)
+        ((#\L #\l)
+         *lex-path*)
+        ((#\S #\s)
+         *net-path*)
+        (t
+         *umls-path*)))))
     (pathname
      filename)))
 
-- 
2.34.1