projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a418a83
)
r11408: handle sbcl's not allowing a #\. in pathname's name field
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 28 Dec 2006 21:11:26 +0000
(21:11 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 28 Dec 2006 21:11:26 +0000
(21:11 +0000)
parse-common.lisp
patch
|
blob
|
history
diff --git
a/parse-common.lisp
b/parse-common.lisp
index 25d3ee3f11bc0dff11d8d1083dcb5a8bba3911ae..c9adcf740cd7d856a383723af8a99f55922cbf42 100644
(file)
--- 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
"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
(merge-pathnames
- (make-pathname :name
(concatenate 'string filename extension)
)
+ (make-pathname :name
name :type type
)
(case (schar filename 0)
(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)))
(pathname
filename)))