anchor.diff:  	    label-set))
   
   (defun sort-images (stream not-stream images image-labels label)
  +  ;;; 
     (let ((image (read-line images nil))
   	(image-label (read-line image-labels nil)))
       (when (and image image-label)
  
positive.code: (in-package #:perceptron)
  
  ;;;; Use the following commands to generate the test files (carefull with pathnames,
  ;;;; you might want to change them
  
  
  (defun generate-files ()
    (sort-images-by-labels '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (sort-test-images-by-labels '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")))
  
  
negative.code:       (sort-images stream not-stream images image-labels label))))
  
  (defun next-image-extraction (image)
    ;;; extracts the bitmap from the string and returns a list of integers
    (loop :for (integer position) := (multiple-value-list 
  				    (parse-integer image
                                                     :start (or position 0)
  