;;; Paths for files
-(defparameter *release* "2011AA")
+(defparameter *release* "2017AA")
(defparameter *umls-path*
(make-pathname :directory (list :absolute "srv" "umls" *release* *release*))
(defmethod print-object ((obj ucol) s)
(print-unreadable-object (obj s :type t)
(format s "~A" (col obj))))
-
-