anchor.diff:  		    nil)))
   	 (mapcar #'second (sort seq-index #'first-predicate)))))
       (vector
  -     (let* ((seq-list (:texonomy-util::1d-array-to-list seq))
  +     (let* ((seq-list (1d-array-to-list seq))
  +					;:texonomy-util::1d-array-to-list seq))
   	    (seq-index (mapcar #'list seq-list (make-1-to-n-list (length seq)))))
          (flet ((first-predicate (lst1 lst2)
   		(if (funcall predicate (first lst1) (first lst2))
  
positive.code: 	       (setf (aref out i) ith))))
      out))
  
  ;;; Untested.
  (defun softthresh (vec param)
    "Apply the soft threshold PARAM to VEC."
    (declare (type vector vec)
  
negative.code:   (let* ((len (length vec))
  	 (out (make-array len :initial-element 0)))
      (loop for i from 0 to (1- len) do
  	 (let* ((sign (signum (aref vec i)))
  		(abs-value (abs (aref vec i)))
  		(temp (- abs-value param)))
  	   (setf (aref out i) (* sign (/ (+ temp (abs temp)) 2)))))
      out))
  
  ;;; Untested.
  