anchor.diff:  
   (defun remove-spaces-near-brackets (str)
     (let ((cl-ppcre:*use-bmh-matchers* nil))
  -    (reduce (lambda (str rex-pair) (cl-ppcre:regex-replace-all (first rex-pair) str (second rex-pair)))
  +    (reduce (lambda (str rex-pair)
  +              (cl-ppcre:regex-replace-all (first rex-pair) str (second rex-pair)))
               (cons str '(("\\[ " "[") (" \\]" "]") ("\\( " "(") (" \\)" ")"))))))
   
   (defun normalize-js-code (str)
  
positive.code: (defun remove-duplicate-spaces (str)
    (labels ((spacep (char) (and char (char= char #\Space)))
             (rds (list)
               (cond ((null list) nil)
                     ((and (spacep (first list)) (spacep (second list))) (rds (cons #\Space (cddr list))))
                     (t (cons (car list) (rds (cdr list)))))))
      (coerce (rds (coerce str 'list)) 'string)))
  
  (defun trim-spaces (str)
  
negative.code:      (same-space-between-statements
        (normalize-whitespace str))))))
  
  (defmacro test-ps-js (testname parenscript javascript
                        &key (js-target-version *js-target-version*))
    `(test ,testname ()
           (is (string= (normalize-js-code ,javascript)
                        (normalize-js-code
                         (let ((*js-target-version* ,js-target-version))
                           (ps-doc* ',parenscript)))))))
  
  (defun jsarray (contents)
    (cl-js:js-array
  