use set-var to set note values

[odyssomay]

(defun iget (i prop)
  (get-var (nth i *v*) prop))

(defun iset (i prop value)
  (set-var (nth i *v*) prop value))

[odyssomay]

(defmethod set-var ((self segment) var value)
  (if (assoc var (var-list self))
    (rplacd (assoc var (var-list self)) value)
    (setf (var-list self) (acons var value (var-list self)))
    ))

(defmethod get-var ((self segment) var)
  (cdr (assoc var (var-list self))) )

(defmethod rem-var ((self segment) var)
  (setf (var-list self) (delete (assoc var (var-list self)) (var-list self)) ))

[odyssomay]

Fixed since ca3a2b7.