;
;******************************************************
;
; conversions
;
; ena - 3/7/2000.
;
;******************************************************
;
(provide "conversions")
;
(defun vect2list (vect) (coerce vect 'list))
;
(defun list2matrix (list)
   (let*
      (
         (nrow (length list))
         (ncol (length (first list)))
         )
      (make-array (list nrow ncol) :initial-contents list)
      )
   )
;
(defun num2string (num)
   (with-output-to-string (s) (prin1 num s)))
;
(defun string2symbol (string)
   (with-input-from-string (s string) (read s)))