From 9ee8e40fc425b639d2a7d37d24e4b0c3d79857d8 Mon Sep 17 00:00:00 2001
From: Leonardo Varuzza <varuzza@gmail.com>
Date: Thu, 31 Jan 2008 21:12:24 -0200
Subject: [PATCH] Missing sageginie file

---
 sagegenie.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 sagegenie.lisp

diff --git a/sagegenie.lisp b/sagegenie.lisp
new file mode 100644
index 0000000..c31bf0f
--- /dev/null
+++ b/sagegenie.lisp
@@ -0,0 +1,9 @@
+(in-package :bioinfo)
+
+(defun update-sage-genie (tag map lst)
+  (setf (third lst) (read-from-string (third lst)))
+  (let ((cur-tag (gethash tag map)))
+    (if cur-tag
+	(when (> (third lst) (second cur-tag))
+	  (setf (gethash tag map) (rest lst)))
+	(setf (gethash tag map) (rest lst)))))
-- 
2.11.4.GIT