anchor.diff: -;;;; Last modified : 2013-08-10 09:20:49 tkych
  +;;;; Last modified : 2013-08-14 19:40:33 tkych
   
   ;; quicksearch/quicksearch.lisp
   
  
positive.code:               :cache-size 10
                :threading? nil
                :quicklisp-verbose? t)"
    (let ((result nil))
      (if (not (or max-cols-supplied?  max-repos-supplied?
                   cache-size-supplied? clear-cache-supplied?
  
negative.code: ;; Configuration for Quicksearch
  ;;--------------------------------------------------------------------
  
  (defun config (&key
                   ((:maximum-columns-of-description max-cols)
                    80  max-cols-supplied?)
                   ((:maximum-number-of-fetching-repositories max-repos)
                    50  max-repos-supplied?)
                   (cache-size         4   cache-size-supplied?)
                   (clear-cache?       nil clear-cache-supplied?)
                   (threading?         t   threading-supplied?)
                   (quicklisp-verbose? nil quicklisp-verbose-supplied?))
  
    "Function CONFIG customizes printing, fetching or caching.
  If CONFIG is called with no keyword, then it sets default values.
  
  Keywords:
  
   * `:maximum-columns-of-description' (default 80)
     The value must be a plus integer bigger than 5.
     If the length of description-string is bigger than this value,
     then output of description is inserted newline for easy to see.
  
   * `:maximum-number-of-fetching-repositories' (default 50)
     This value controls the number of fetching repositories.
     The value must be a plus integer.
     Increasing this value, the number of fetching repositories increases,
     but also space & time does.
  
   * `:cache-size'
     The value must be a plus integer (default 4).
     This value is the number of stored previous search-results.
     Increasing this value, the number of caching results increases, but
     also space does.
  
   * `:clear-cache?'
     The value must be a boolean (default NIL).
     If value is T, then clear all caches.
  
   * `:threading?'
     The value must be a boolean (default T).
     If value is NIL, then QUICKSEARCH becomes not to use threads for
     searching.
  
     Note:
       Currently on SBCL (1.1.8), threads are part of the default build on
       x86[-64] Linux only. Other platforms (x86[-64] Darwin (Mac OS X),
       x86[-64] FreeBSD, x86 SunOS (Solaris), and PPC Linux)
       experimentally supports threads and must be explicitly enabled at
       build-time. For more details, please see [SBCL manual](http://www.sbcl.org/manual/index.html#Threading).
  
   * `:quicklisp-verbose?'
     The value must be a boolean (default NIL).
     If value is T, then outputs version of quicklisp and whether library
     had installed your local.
  
     Example:
       CL-REPL> (qs:config :QUICKLISP-VERBOSE? t)
  