anchor.diff:  	(subseq arg 1 last)
   	arg
   	)))
  +
   (defun process-args (args)  (mapcar #'process-arg args))
   (defvar *args* (process-args sb-ext:*posix-argv*)
     "The command line arguments")
  
positive.code: 
  (manifest-search:close-index)
  
  (defun process-arg (arg)
    "Removes quotes if they exist"
    (let ((last (- (length arg) 1)))
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (cl-user::setup-source-registry))
  (ql:quickload :swank)
  (ql:quickload :manifest-search-web)
  (defpackage :manifest-search-web-binary
    (:use :cl :cl-user :manifest-search :manifest-search-web))
  