(let 
((*DATA-ANA* *HIDDEN-GUIDEMAP*)) 
(SEND *DATA-ANA* :TITLE "Data Analysis") 
(SEND *DATA-ANA* :NUM-ICONS 6) 
(SEND *DATA-ANA* :CONNECTION-LIST (QUOTE ((1) (3 2) (3) (4) (5 2) (NIL)))) 
(SEND *DATA-ANA* :X (QUOTE (100 100 70 100 100 100))) 
(SEND *DATA-ANA* :Y (QUOTE (24 53 98 135 173 216))) 
(SEND *DATA-ANA* :ICON-TYPE (QUOTE (7 6 6 6 6 6))) 
(SEND *DATA-ANA* :ICON-TITLE (QUOTE (" " "Link:Explore" "Link:Transform" "Link:Analyze" "GoTo:Model" "Link:Load Data"))) 
(SEND *DATA-ANA* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *DATA-ANA* :REDRAW-ORDER (QUOTE (5 4 2 3 0 1))) 
(SEND *DATA-ANA* :SELECTED-ICON 1) 
(SEND *DATA-ANA* :TOOLBAR T) 
(SEND *DATA-ANA* :NUM-DATA-ICONS 0) 
(SEND *DATA-ANA* :NUM-MODEL-ICONS 0) 
(SEND *DATA-ANA* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *DATA-ANA* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *DATA-ANA* :SELECTED-DATA-ICON NIL) 
(SEND *DATA-ANA* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *DATA-ANA* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *DATA-ANA* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *DATA-ANA* :ACTIVE-BUTTON-LIST (QUOTE (1))) 
(LET ((N (QUOTE 6)) (X (QUOTE (100 100 70 100 100 100))) (Y (QUOTE (24 53 98 135 173 216))) (ICON-TITLE (QUOTE (" " "Link:Explore" "Link:Transform" "Link:Analyze" "GoTo:Model" "Link:Load Data"))) (ICON-TYPE (QUOTE (7 6 6 6 6 6))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *DATA-ANA* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *DATA-ANA* :ICON-LIST (REST ICON-LIST)))) 
(SEND *DATA-ANA* :DATA-ICON-LIST (SELECT (SEND *DATA-ANA* :ICON-LIST) (SEND *DATA-ANA* :DATA-ICON-NUMBER-LIST))) 
(SEND *DATA-ANA* :MODEL-ICON-LIST (SELECT (SEND *DATA-ANA* :ICON-LIST) (SEND *DATA-ANA* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *DATA-ANA* :ICON-LIST) 0) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *DATA-ANA* :ICON-LIST) 0) :NUM-IN-CONNECTED-NOW 0) )