(let 
((*TRANSFOR.LSP-TODAY* *HIDDEN-GUIDEMAP*)) 
(SEND *TRANSFOR.LSP-TODAY* :TITLE "Transform Data") 
(SEND *TRANSFOR.LSP-TODAY* :NUM-ICONS 8) 
(SEND *TRANSFOR.LSP-TODAY* :CONNECTION-LIST (QUOTE ((5 6) (5 6) (5 6) (5 6) (5 6) (NIL) (NIL) (NIL)))) 
(SEND *TRANSFOR.LSP-TODAY* :X (QUOTE (89 89 89 89 89 140 35 284))) 
(SEND *TRANSFOR.LSP-TODAY* :Y (QUOTE (40 77 118 159 200 232 232 134))) 
(SEND *TRANSFOR.LSP-TODAY* :ICON-TYPE (QUOTE (6 6 6 6 6 6 6 7))) 
(SEND *TRANSFOR.LSP-TODAY* :ICON-TITLE (QUOTE ("Transpose Data" "Normalize Data ... " "Orthogonalize Data" "Sort-Permute ... " "Ranks" "GoTo:New Data" "Return" "Return"))) 
(SEND *TRANSFOR.LSP-TODAY* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *TRANSFOR.LSP-TODAY* :REDRAW-ORDER (QUOTE (7 0 1 2 3 4 5 6))) 
(SEND *TRANSFOR.LSP-TODAY* :SELECTED-ICON 6) 
(SEND *TRANSFOR.LSP-TODAY* :TOOLBAR T) 
(SEND *TRANSFOR.LSP-TODAY* :NUM-DATA-ICONS 0) 
(SEND *TRANSFOR.LSP-TODAY* :NUM-MODEL-ICONS 0) 
(SEND *TRANSFOR.LSP-TODAY* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *TRANSFOR.LSP-TODAY* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *TRANSFOR.LSP-TODAY* :SELECTED-DATA-ICON NIL) 
(SEND *TRANSFOR.LSP-TODAY* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *TRANSFOR.LSP-TODAY* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *TRANSFOR.LSP-TODAY* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *TRANSFOR.LSP-TODAY* :ACTIVE-BUTTON-LIST (QUOTE (0 1 2 3 4))) 
(LET ((N (QUOTE 8)) (X (QUOTE (89 89 89 89 89 140 35 284))) (Y (QUOTE (40 77 118 159 200 232 232 134))) (ICON-TITLE (QUOTE ("Transpose Data" "Normalize Data ... " "Orthogonalize Data" "Sort-Permute ... " "Ranks" "GoTo:New Data" "Return" "Return"))) (ICON-TYPE (QUOTE (6 6 6 6 6 6 6 7))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *TRANSFOR.LSP-TODAY* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *TRANSFOR.LSP-TODAY* :ICON-LIST (REST ICON-LIST)))) 
(SEND *TRANSFOR.LSP-TODAY* :DATA-ICON-LIST (SELECT (SEND *TRANSFOR.LSP-TODAY* :ICON-LIST) (SEND *TRANSFOR.LSP-TODAY* :DATA-ICON-NUMBER-LIST))) 
(SEND *TRANSFOR.LSP-TODAY* :MODEL-ICON-LIST (SELECT (SEND *TRANSFOR.LSP-TODAY* :ICON-LIST) (SEND *TRANSFOR.LSP-TODAY* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *TRANSFOR.LSP-TODAY* :ICON-LIST) 7) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *TRANSFOR.LSP-TODAY* :ICON-LIST) 7) :NUM-IN-CONNECTED-NOW 0) )