anchor.diff:  
   (defun backslash-encode (string)
     (loop
  -     for i across string
  -     for c = (cdr (assoc i *backslash-encode-assoc*))
  -     when c collect #\\ into r
  -     when c collect it into r
  -     unless c collect i into r
  -      finally (return (coerce r 'string))))
  +    for i across string
  +    for c = (cdr (assoc i *backslash-encode-assoc*))
  +    when c collect #\\ into r
  +    when c collect it into r
  +    unless c collect i into r
  +    finally (return (coerce r 'string))))
   
   (defun download (uri file &key proxy (verbose nil) (output :interactive))
     "Interface to curl4 in the roswell C binary"
     (declare (ignorable proxy))
     (ensure-directories-exist file)
     (roswell:roswell `("roswell-internal-use" "download" ,(backslash-encode uri)
  -                                            ,file ,@(when verbose (list verbose)))
  +                     ,file ,@(when verbose (list verbose)))
                      output nil))
   
   (defun expand (archive dest &key verbose)
  
positive.code:       (homedir)))
  
  (defun clone-github (owner name &key
                                    (alias (format nil "~A/~A" owner name))
                                    branch force-git
                                    (path "templates")
                                    (home (checkoutdir)))
    (format *error-output* "install from github ~A/~A~%" owner name)
    (if (or force-git (which "git"))
        (let ((dir (merge-pathnames (format nil "~A/~A/" path alias) home)))
  
negative.code: 
  (defun module (prefix name)
    "Load external system"
    (and (loop for c across "./\\"
               never (find c name))
         (let ((imp (format nil "roswell.~A.~A" prefix name)))
           (or #1=(ignore-errors
                   (let (*read-eval*)
                     (read-from-string (format nil "~A::~A" imp name))))
               (progn
                 (read-call "ql:register-local-projects")
                 (or
                  (and (or (read-call "ql-dist:find-system" imp)
                           (read-call "ql:where-is-system" imp))
                       (read-call "ql:quickload" imp :silent t))
                  (roswell:include (format nil "~A-~A" prefix name)))
                 #1#)))))
  
  (defun set-opt (item val)
    (let ((found (assoc item (roswell::ros-opts) :test 'equal)))
  