From 9d3f4c0c7ba4d68c37178b05593125257450c470 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 8 Jan 2007 06:39:18 +0000
Subject: [PATCH] r11471: update to latest release

---
 data-structures.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/data-structures.lisp b/data-structures.lisp
index 5f86198..c7e3f68 100644
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -20,7 +20,7 @@
 
 ;;; Paths for files
 
-(defparameter *release* "2006AC")
+(defparameter *release* "2006AD")
 
 (defparameter *umls-path*
   (make-pathname :directory (list :absolute "srv" "umls" *release*))
@@ -45,7 +45,9 @@
   (merge-pathnames *net-dir* *umls-path*))
 
 (defun umls-path! (p)
-  (setq *umls-path* p)
+  (setq *umls-path* (etypecase p
+                      (string (parse-namestring p))
+                      (pathname p)))
   (setq *meta-path* (merge-pathnames *meta-dir* *umls-path*))
   (setq *lex-path* (merge-pathnames *lex-dir* *umls-path*))
   (setq *net-path* (merge-pathnames *net-dir* *umls-path*)))
-- 
2.34.1