anchor.diff:    (loop WITH prev = 0
   	FOR i FROM 1 BELOW (length line)
   	FOR fv = (generate-fv line i)
  -    DO
  -    (print (s "=="i"=="))
  -    (print (mapcar (lm (get-word $ svm)) fv))
  -    (print (svm.dotproduct svm fv))
  -    
       WHEN (>= (svm.dotproduct svm fv) 0.0)
       COLLECT (prog1 (subseq line prev i)
   	      (setf prev i)) INTO words
  
positive.code: 		       #1=(gethash (f-key ft) (svm-words svm))
      (when (and (not exists?)
  	       create-if-not-exists)
        (setf val (setf #1# (init-feature (f-surface ft) (f-type ft)))))
      val))
  
  (defun get-last-update (ft svm &optional create-if-not-exists)
  
negative.code:     (incf example-n)))
  
  ;;;;;;;;;;;
  (let ((svm (make-svm))
        (cnt 0))
    (each-sentence (sentence "okw.corpus") ;"kokoro.corpus")
      (when (zerop (mod (incf cnt) 10000))
        (print cnt))
      (train-sentence svm sentence))
    (defparameter *svm* svm))
  
  