;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;;
;;; a general utility -- replace cons list from assoc list
;;; say tmp_list is= (("EXPERT" . 2) ("TEXTSIZE" . 3.5) ("BLIPMODE" . 0))
;;; (KDUB:replace-assoc "TEXTSIZE" 5.0 'tmp_list)
;;; ==>(("EXPERT" . 2)("TEXTSIZE" . 5.0)("BLIPMODE" . 0))
;;; note : Removes first found reference only
;;; to replace the last matching cons in list :
;;; (setq tmp_list (reverse tmp_list)
;;; tmp_list (reverse (KDUB:replace-assoc .... 'tmp_list)))
;;;
(defun kdub:replace
-assoc (assoctag assocval quoted_lst_sym
) )
)
)