anchor.diff:  	      ((string= "I" line :end2 1)
   	       ;; initial distributions
   	       (setf line (read-line in nil)
  -		     (get-initial-distributions hstate) (make-array-per-space line)))
  +		     (get-initial hstate) (make-array-per-space line)))
   	      ((string= "T" line :end2 1)
   	       ;; transition matrix
   	       (let ((str-lst nil))
  
positive.code: 				  (read-line in nil)))
  		       ((null str-line))
  		     (push str-line str-lst))
  		   (setf (get-measure-matrix hstate) (make-matrix-per-space (reverse str-lst))))))
  	      ((string= #\Space line))
  	      ;; jump over space
  	      (t
  
negative.code: (defpackage :hmm-algorithms
    (:nicknames :hmm :cl-hmm)
    (:use :cl)
    (:export :get-states
  	   :get-observations
  	   :get-initial
  	   :get-transition
  	   :get-measure
  	   :init-hmm
  	   :init-from-file
  	   :print-to-file
  	   :forward
  