(let 
((*ANV* *HIDDEN-GUIDEMAP*)) 
(SEND *ANV* :TITLE "Look at Dataset") 
(SEND *ANV* :NUM-ICONS 3) 
(SEND *ANV* :CONNECTION-LIST (QUOTE ((NIL) (2 0) (NIL)))) 
(SEND *ANV* :X (QUOTE (132 92 52))) 
(SEND *ANV* :Y (QUOTE (79 40 79))) 
(SEND *ANV* :ICON-TYPE (QUOTE (6 7 6))) 
(SEND *ANV* :ICON-TITLE (QUOTE ("GoTo:Results" " " "Return"))) 
(SEND *ANV* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *ANV* :REDRAW-ORDER (QUOTE (1 2 0))) 
(SEND *ANV* :SELECTED-ICON 0) 
(SEND *ANV* :TOOLBAR T) 
(SEND *ANV* :NUM-DATA-ICONS 0) 
(SEND *ANV* :NUM-MODEL-ICONS 0) 
(SEND *ANV* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *ANV* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *ANV* :SELECTED-DATA-ICON NIL) 
(SEND *ANV* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *ANV* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *ANV* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *ANV* :ACTIVE-BUTTON-LIST (QUOTE (2 0))) 
(LET ((N (QUOTE 3)) (X (QUOTE (132 92 52))) (Y (QUOTE (79 40 79))) (ICON-TITLE (QUOTE ("GoTo:Results" " " "Return"))) (ICON-TYPE (QUOTE (6 7 6))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *ANV* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *ANV* :ICON-LIST (REST ICON-LIST)))) 
(SEND *ANV* :DATA-ICON-LIST (SELECT (SEND *ANV* :ICON-LIST) (SEND *ANV* :DATA-ICON-NUMBER-LIST))) 
(SEND *ANV* :MODEL-ICON-LIST (SELECT (SEND *ANV* :ICON-LIST) (SEND *ANV* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *ANV* :ICON-LIST) 1) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *ANV* :ICON-LIST) 1) :NUM-IN-CONNECTED-NOW 0) )