    property are grouped together in a vector: [[dev prop] value]."
   [dev prop]
   [[dev prop] (get-property-value dev prop)])
-       
-(defn get-positions
-  "Get the position list as a vector of MultiStagePositions."
-  ([position-list]
-    (vec (.getPositions (or position-list (.getPositionList gui)))))
-  ([]
-    (get-positions nil)))
 
 (defn get-allowed-property-values
   "Returns a sequence of the allowed property values

  ([idx z-stage z]
    (set-msp-z-position nil idx z-stage z)))  

(defn positions-map [position-list]
  (let [position (map MultiStagePosition-to-map (get-positions))]
    (zipmap
      (map :label position)
      (map :axes position))))

(defn swig-vector-contents
  "Returns a string containing all values in a swig vector
   with spaces in between."

   index number."
  ([position-list idx]
    (when idx
      (when position-list
        (when (pos? (.getNumberOfPositions position-list))
          (.getPosition position-list idx)))))
  ([idx]
    (get-msp nil idx)))

(defn get-msp-z-position
  "Get the z position for a given z-stage from the MultiStagePosition
