anchor.diff:                             (nth 2 arglist))
                      *default-pathname-defaults*))
   
  -(defun print-parsed ()
  +(defun print-parsed (ch)
     "unfinished experimental code"
  -  (let* ((ch '("PNS" "Zj" 21))
  -         (downloaded (chapter-path "downloaded" ch)))
  +  ;;(ch '("PNS" "Zj" 21))
  +  (let* ((downloaded (chapter-path "downloaded" ch)))
       (with-open-file (stream downloaded)
         (html-parse:parse-html stream))))
   
  
positive.code:      when (and (equal (nth 1 x) "Zj")
                 (eq (nth 2 x) 21))
       collect x))
  
  (defun translation-books (translation)
    (loop for x in (each-translation-book-chapter)
  
negative.code:                                            (1+ zchapter))))))))
      results))
  
  ;;; let closing over several functions ;; start ;;;;;;;;;
  (let ((result))
    (defun walk-init ()
      (setq result nil))
  
    (defun walk (x)
      (let ((head (car x))
            (tail (cdr x)))
        (if (equalp head '(:DIV :ID "blok_versu"))
            (setf result (nconc result x))
            (progn
              (when (listp head) (walk head))
              (when tail (walk tail))))))
  
    (defun walk-tree (x)
      (walk-init)
      (walk x)
      result))
  ;;; let closing over several functions ;; end ;;;;;;;
  
  (defun genesis-1 ()
    (loop for x in (each-translation-book-chapter)
  