format-from-wild adds gensym after space
Mon Jun 23 18:40:58 PDT 2008 Ryszard Szopa <ryszard.szopa@gmail.com>
* format-from-wild adds gensym after space
This is necessary so that CouchDB notices that the view has changed (it looks at
the source of the view, not the _rev of the doc) and recomputes it.
diff -rN -u old-cl-couch/view-server/views.lisp new-cl-couch/view-server/views.lisp
--- old-cl-couch/view-server/views.lisp 2014-07-28 19:41:42.000000000 -0700
+++ new-cl-couch/view-server/views.lisp 2014-07-28 19:41:42.000000000 -0700
@@ -117,7 +117,7 @@
from package. This is useful if you have to read `thing' back in a
different package."
(let ((*package* package))
- (format stream "~s" thing))))
+ (format stream "~s ~s" thing (gensym))))) ;; this gensym is to force couchdb to reload the view
(defmacro define-view (name type args &rest body)
(let* ((function-name (intern (format nil "~A-~A" name type)))