anchor.diff:  (defmacro get-measure-matrix (hstate)
     `(hmm-state-measure-matrix ,hstate))
   
  -;;; Error handling routines.
  -(define-condition input-format-error (error)
  -  ((text :initarg :text :reader text)))
  -
   ;;; Helpers, to generate a new HMM state from file.
   (defun list-array (lst)
     (make-array (length lst) :initial-contents lst))
  
positive.code:       (progn
  	(setf nums nil)
  	(dolist (num (split-per-space str))
  	  (push (parse-number num) nums))
  	(progn
  	  (setf nums (reverse nums))
  	  (push nums nums-m))))
  
negative.code: (defun make-array-per-space (str)
    (let ((nums nil))
      (dolist (num (split-per-space str))
        (push (parse-decimal num) nums))
      (list-array (reverse nums))))
  
  (defun make-matrix-per-space (str-lst)
  