anchor.diff:  (defparameter *cut-off* 50)
   (defparameter *print-search-results?* nil)
   
  -(defun quicksearch (search-word
  -                    &key (?web t) (?description nil) (?url nil) (?cut-off 50)
  -                         (?quicklisp t) (?cliki t) (?github t) (?bitbucket t))
  -  "Search for CL projects with SEARCH-WORD in Quicklisp, Cliki, GitHub and BitBucket.
  -SEARCH-WORD must be a string, number or symbol (symbol will be automatically converted into downcase-string).
  +(defun quicksearch (search-word &key (?web         t)
  +                                     (?description nil)
  +                                     (?url         nil)
  +                                     (?cut-off     50)
  +                                     (?quicklisp   t)
  +                                     (?cliki       t)
  +                                     (?github      t)
  +                                     (?bitbucket   t))
  +
  +  "Search for CL projects with `search-word' in Quicklisp, Cliki, GitHub
  +and BitBucket. `search-word' must be a string, number or symbol (symbol
  +will be automatically converted into downcase-string).
   
   Keywords:
  - * If ?WEB is NIL, it does not search in Cliki, GitHub and BitBucket.
  - * If ?QUICKLISP is NIL, it does not search in Quicklisp (also ?CLIKI, ?GITHUB, ?BITBUCKET).
  + * If `?web' is NIL, it does not search in Cliki, GitHub and BitBucket.
  + * If `?quicklisp' is NIL, it does not search in Quicklisp (also
  +   `?cliki', `?github', `?bitbucket').
    * At least one search-space must be specified.
  - * If ?DESCRIPTION is T, it displays project's descriptions (except for Quicklisp-search).
  - * If ?URL is T, it display project's url.
  - * ?CUT-OFF is the max number of printing repositories each space.
  + * If `?description' is T, it displays project's descriptions (except
  +   for Quicklisp-search).
  + * If `?url' is T, it display project's url.
  + * `?cut-off' is the max number of printing repositories each space.
   
   Note:
  - * keyword ?CUT-OFF controls only printing results,
  -   nothing to do with the maximum number of fetching repositories (c.f. function CONFIG documentation).
  -
  - * About #\\Space in SEARCH-WORD:
  -   In case search-word contains #\\Space, Quicklisp-search is OR-search,
  -   whereas Cliki-search, GitHub-, BitBucket- is AND-search.
  + * keyword `?cut-off' controls only printing results, nothing to do with
  +   the maximum number of fetching repositories (c.f. function CONFIG
  +   documentation).
  +
  + * About #\\Space in `search-word':
  +   In case `search-word' contains #\\Space, Quicklisp-search is
  +   OR-search, whereas Cliki-search, GitHub-, BitBucket- is AND-search.
      e.g. (quicksearch \"foo bar\")
           Quicklisp-search for \"foo\" OR \"bar\",
           Cliki-search, GitHub-, BitBucket- for \"foo\" AND \"bar\"."
  
positive.code:     ;; Don't exchange the following conditional-clause
      ;; (ql:where-is-system (ql-dist:name sys)).
      ;; ql:where-is-system contains asdf:find-system, and
      ;; (asdf:find-system "asdf-encodings") causes disaster.
      (aif (nth-value 2 (asdf:locate-system (ql-dist:name sys)))
           (str (directory-namestring it)
                #.(format nil "~%      ")
  
negative.code: ;;--------------------------------------------------------------------
  
  (defun ? (search-word &rest options)
  
    "? is abbreviation wrapper for function QUICKSEARCH.
  `search-word' must be a string, number or symbol. `options' must be a
  non-negative integer (as Cut-Off) and/or some keywords which consists of
  some Option-Chars.
  
  Options:
   * Cut-Off:
  