anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; 
  -;;; Function substitute
  +;;; Tests for function substitute
   
   (define-test |substitute seq-type=list start=0 end=nil test=eql count=nil key=identity 1|
     (assert-equal
  
positive.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Function find-if-not
  
  (define-test find-if-not-list.1
    (assert-equal
  
negative.code:   
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for function length
  
  (define-test length.list.1
    (assert-equal
  