(let 
((*MULTIVAR* *HIDDEN-GUIDEMAP*)) 
(SEND *MULTIVAR* :TITLE "Choose Stat Transform") 
(SEND *MULTIVAR* :NUM-ICONS 8) 
(SEND *MULTIVAR* :CONNECTION-LIST (QUOTE ((6 7) (6 7) (6 7) (6 7) (6 7) (6 7) (NIL) (NIL)))) 
(SEND *MULTIVAR* :X (QUOTE (97 97 97 97 97 97 22 170))) 
(SEND *MULTIVAR* :Y (QUOTE (20 92 57 128 163 199 236 251))) 
(SEND *MULTIVAR* :ICON-TYPE (QUOTE (6 6 6 6 6 6 6 6))) 
(SEND *MULTIVAR* :ICON-TITLE (QUOTE ("Ranks" "Sort-Permute" "Normal Scores" "Normalize Data" "Orthogonalize Data" "Transpose Data" "Return" "GoTo:New Data"))) 
(SEND *MULTIVAR* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MULTIVAR* :REDRAW-ORDER (QUOTE (7 6 0 2 1 3 4 5))) 
(SEND *MULTIVAR* :SELECTED-ICON 5) 
(SEND *MULTIVAR* :TOOLBAR T) 
(SEND *MULTIVAR* :NUM-DATA-ICONS 0) 
(SEND *MULTIVAR* :NUM-MODEL-ICONS 0) 
(SEND *MULTIVAR* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MULTIVAR* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MULTIVAR* :SELECTED-DATA-ICON NIL) 
(SEND *MULTIVAR* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *MULTIVAR* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *MULTIVAR* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *MULTIVAR* :ACTIVE-BUTTON-LIST (QUOTE (0 2 1 3 4 5))) 
(LET ((N (QUOTE 8)) (X (QUOTE (97 97 97 97 97 97 22 170))) (Y (QUOTE (20 92 57 128 163 199 236 251))) (ICON-TITLE (QUOTE ("Ranks" "Sort-Permute" "Normal Scores" "Normalize Data" "Orthogonalize Data" "Transpose Data" "Return" "GoTo:New Data"))) (ICON-TYPE (QUOTE (6 6 6 6 6 6 6 6))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *MULTIVAR* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *MULTIVAR* :ICON-LIST (REST ICON-LIST)))) 
(SEND *MULTIVAR* :DATA-ICON-LIST (SELECT (SEND *MULTIVAR* :ICON-LIST) (SEND *MULTIVAR* :DATA-ICON-NUMBER-LIST))) 
(SEND *MULTIVAR* :MODEL-ICON-LIST (SELECT (SEND *MULTIVAR* :ICON-LIST) (SEND *MULTIVAR* :MODEL-ICON-NUMBER-LIST))) )