ILL:CODE;FRAME LISP 

(defflavor ill-frame ....
   
  	tv:(stream-mixin process-mixin notification-mixin    #+LMI select-mixin
	    bordered-constraint-frame-with-shared-io-buffer)
  ....)

(DEFUN CHOOSE-VARIABLE-VALUES-with-locatives ....

      #-LMI (SEND window ':set-value-tab value-tab) #+LMI value-tab

 ....)