Don't create index if missing

Author: mmontone

api-server.lisp

@@ -10,7 +10,7 @@
 
 (defparameter *index* (make-instance 'montezuma:index
 				     :path "/home/marian/src/quicklisp-docs-index"
-				     ))
+				     :create-if-missing-p nil))
 
 (defun parse-document (doc)
   (flet ((docvalue (field)

quicklisp-apropos.lisp

@@ -21,7 +21,8 @@
 
 (defun ensure-index ()
   (when (null *index*)
-    (setf *index* (make-instance 'montezuma:index :path *index-path*))))
+    (setf *index* (make-instance 'montezuma:index :path *index-path*
+				 :create-if-missing-p nil))))
 
 (defun format-query (query)
   (when (stringp query)