Browse files

Updating all the queries to not cache. The default variable was not s…

…ticking for some reason. This is necessary because very large jobs tend to fill up the cache so much it crashes sbcl
  • Loading branch information...
1 parent c7bbac5 commit 0ae76c529a4c1285648e122909073e50417b30c0 @TheDarkTrumpet committed Aug 15, 2011
Showing with 6 additions and 6 deletions.
  1. +6 −6 lib/cl-gene-searcher/cl-gene-searcher.lisp
View
12 lib/cl-gene-searcher/cl-gene-searcher.lisp
@@ -29,24 +29,24 @@
((text :initarg :text :reader text)))
-; Maybe a temporary holding ground for some of the simpler functions
+; Maybe a temporary holding ground for some of the simpler fuctions
(defun query-gene-by-name (name)
- (with-generic-sqlite-db (v) (clsql:select 'genes :where [= 'name name] :database v :flatp t)))
+ (with-generic-sqlite-db (v) (clsql:select 'genes :where [= 'name name] :database v :flatp t :caching nil)))
(defun query-ucsc-gene-by-range (&key chr start stop)
(with-generic-sqlite-db (v)
(when (not stop) (setf stop start))
- (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop] [= [slot-value 'genePlatform 'name] "UCSC"]] :database v :flatp t)))
+ (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop] [= [slot-value 'genePlatform 'name] "UCSC"]] :database v :flatp t :caching nil)))
(defun query-refFlat-gene-by-range (&key chr start stop)
(with-generic-sqlite-db (v)
(when (not stop) (setf stop start))
- (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop] [= [slot-value 'genePlatform 'name] "refFlat"]] :database v :flatp t)))
+ (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop] [= [slot-value 'genePlatform 'name] "refFlat"]] :database v :flatp t :caching nil)))
(defun query-gene-by-range (&key chr start stop)
(when (not stop) (setf stop start))
- (with-generic-sqlite-db (v) (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop]] :database v :flatp t)))
+ (with-generic-sqlite-db (v) (clsql:select 'genes :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop]] :database v :flatp t :caching nil)))
(defun query-dgv-by-range (&key chr start stop)
(when (not stop) (setf stop start))
- (with-generic-sqlite-db (v) (clsql:select 'dgv :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop]] :database v :flatp t)))
+ (with-generic-sqlite-db (v) (clsql:select 'dgv :where [and [= 'chr chr] [>= 'stop_region start] [<= 'start_region stop]] :database v :flatp t :caching nil)))

0 comments on commit 0ae76c5

Please sign in to comment.