From 4290d744e5eb60be0b5ff4dbf83b30acf76e84d1 Mon Sep 17 00:00:00 2001
From: SANO Masatoshi <snmsts@gmail.com>
Date: Fri, 14 Nov 2014 11:57:15 +0900
Subject: [PATCH] turn off quicklisp option if not installed

---
 src/cmds/run/sbcl.c | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/cmds/run/sbcl.c b/src/cmds/run/sbcl.c
index dfc9544..5f462bc 100644
--- a/src/cmds/run/sbcl.c
+++ b/src/cmds/run/sbcl.c
@@ -39,9 +39,16 @@ char** cmd_run_sbcl(int argc,char** argv,struct sub_command* cmd)
     offset+=1;
   if(script)
     offset+=1;
-  if(quicklisp)
-    offset+=2;
-
+  if(quicklisp) {
+    char* setup_file=
+      cat(home,"impls",SLASH,"ALL",SLASH,"ALL",SLASH,"quicklisp",SLASH,"setup.lisp",NULL);
+    if(file_exist_p(setup_file)) {
+      offset+=2;
+    }else {
+      quicklisp=0;
+    }
+    s(setup_file);
+  }
   if(program||script)
     offset+=4;