(XLISP::CHECK-FSL-VERSION 1 4) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: &optional DATA-OBJECT &key NEW-DATA Shows a datasheet for DATA-OBJECT (or current-data if not specified). NEW-DATA is t for new data, nil otherwise" FUNCTION-DOCUMENTATION SHOW-DATASHEET %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SHOW-DATASHEET #K(#(77 3 1 1 5 0 0 4 3 3 0 1 2 9 0 1 6 0 6 7 21 0 2 1 7 38 6 6 38 7 7 23 8 7 2 6 7 0 7 8 21 0 3 4 8 38 9 9 23 8 0 3 7 9 5 38 10 9 23 8 0 3 7 9 4 38 11 9 23 8 0 3 7 9 4 38 12 9 23 8 0 3 7 9 4 38 13 9 23 8 0 4 7 9 3 3 38 14 9 38 15 10 23 8 10 2 7 10 38 16 11 23 8 11 2 7 11 38 17 12 23 8 12 2 7 12 38 18 13 23 8 13 2 7 13 38 19 14 23 8 14 2 7 14 23 8 0 7 7 9 10 11 12 13 14 38 20 9 23 8 0 2 7 9 38 21 9 23 8 0 2 7 9 1 5 38 9 9 23 22 7 3 6 9 5 0 7 8 21 0 6 7 8 38 23 9 23 8 0 3 7 9 4 38 7 9 23 8 9 2 6 9 38 24 10 23 8 0 3 9 10 5 38 25 9 23 8 0 3 7 9 2 38 26 9 23 8 0 3 7 9 4 11 0 5) #(0 25 28 45 175 185 193 242) #(0 NIL T (NIL) (:NEW-DATA) #(NIL) CURRENT-DATA :DATASHEET-OBJECT SEND :EDITABLE :HOT-CELL :HOT-CELL-READY :HOT-CELL-STRING :SCROLL :SET-WINDOW-SIZE :FIELD-WIDTH :FIELD-HEIGHT :LABEL-WIDTH :NVAR :NOBS :REDRAW :SHOW-WINDOW DATASHEET :ENABLE-VISTA-MENUS&TOOLS :ENABLE-MENU-ITEMS :NEW-DATA :EDITED) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: DATA-OBJECT Function to show a non-editable datasheet for browsing DATA-OBJECT" FUNCTION-DOCUMENTATION BROWSE-DATA %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(BROWSE-DATA #K(#(77 1 1 1 2 2 0 1 4 0 1 4 0 4 5 21 0 2 1 5 38 3 4 38 4 5 23 5 5 2 4 5 21 0 3 4 5 38 4 6 23 5 6 2 4 6 38 6 7 23 5 0 3 6 7 3 38 4 6 23 5 6 2 4 6 38 7 7 23 5 0 2 6 7 1 5 38 6 6 23 8 0 3 4 6 3 38 4 5 23 5 4 2 4 5 38 9 5 23 5 0 3 4 5 3 11 0 2) #(0 20 23 37 76 86) #(T NIL #(NIL) CURRENT-DATA :DATASHEET-OBJECT SEND :EDITABLE :SHOW-WINDOW DATASHEET :ENABLE-MENU-ITEMS) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: DATA-OBJECT &KEY EDITABLE Constructor function for constructing datasheet for editing or browsing DATA-OBJECT" FUNCTION-DOCUMENTATION DATASHEET %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(DATASHEET #K(#(77 3 2 0 0 0 26 25 25 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 19 38 27 28 38 28 29 38 29 30 38 30 31 23 31 31 2 1 31 38 32 32 38 33 33 23 34 34 2 27 26 38 35 35 2 43 34 35 34 38 36 35 23 31 28 11 28 29 25 30 31 32 24 33 34 35 23 38 37 29 23 31 29 2 1 29 38 38 30 23 31 30 2 1 30 38 39 31 38 28 32 23 31 31 3 31 32 22 38 40 32 38 28 33 38 41 34 51 7 35 1 28 23 31 32 5 32 33 21 34 35 38 40 33 38 28 34 38 41 35 51 6 36 1 28 23 31 33 5 33 34 20 35 36 38 40 34 38 28 35 38 41 36 23 31 34 5 34 35 19 36 18 38 40 35 38 28 36 38 41 37 23 31 35 5 35 36 17 37 16 38 40 36 38 28 37 38 41 38 51 5 39 1 28 23 31 36 5 36 37 15 38 39 38 40 37 38 28 38 38 41 39 51 4 40 1 28 23 31 37 5 37 38 14 39 40 38 42 38 23 31 38 3 28 38 13 38 43 39 23 31 39 3 1 39 12 38 44 40 39 45 41 23 46 39 4 11 39 40 41 38 44 40 39 45 41 23 46 39 4 23 39 40 41 21 0 1 2 39 23 47 40 1 39 23 48 40 1 40 23 49 40 2 40 6 23 50 39 1 40 1 3 0 10 39 2 43 39 25 39 2 77 10 39 39 38 42 40 23 31 40 3 28 40 9 38 42 41 23 31 41 3 28 41 8 2 42 38 39 42 23 51 40 4 42 40 41 10 38 52 41 23 31 41 2 28 41 38 53 42 23 31 42 2 28 42 23 51 41 3 41 42 7 0 23 42 38 37 43 23 31 0 3 28 43 29 38 54 43 38 55 44 23 31 44 2 1 44 23 56 44 1 44 23 31 0 3 28 43 44 38 57 43 38 58 44 23 31 44 2 1 44 23 56 44 1 44 23 31 0 3 28 43 44 38 59 43 23 31 0 3 28 43 1 2 42 6 38 43 39 31 44 38 42 45 38 60 46 23 31 46 2 28 46 23 61 44 4 44 28 45 46 23 48 44 1 44 2 43 10 44 44 23 48 42 3 43 40 44 38 62 43 38 63 44 38 28 45 23 31 44 2 44 45 38 63 45 38 28 46 23 31 45 2 45 46 23 31 0 10 31 43 32 33 44 34 35 45 36 37 38 64 43 23 31 0 3 28 43 1 38 38 43 23 31 0 3 28 43 30 38 65 43 23 31 0 3 28 43 5 38 66 43 23 31 0 3 28 43 5 38 67 43 23 31 0 3 28 43 40 38 68 43 23 31 0 3 28 43 41 38 69 43 23 31 0 3 28 43 42 38 70 43 23 31 0 3 28 43 25 38 71 43 23 31 0 3 28 43 39 38 72 43 23 31 0 2 28 43 38 73 43 23 31 0 3 28 43 2 38 74 43 23 31 0 3 28 43 4 38 75 43 23 31 0 3 28 43 31 38 76 43 23 31 0 2 28 43 38 77 43 23 31 0 7 28 43 40 41 42 29 30 38 78 42 2 42 3 40 43 23 31 0 4 28 42 40 43 38 79 42 2 42 6 41 43 23 31 0 4 28 42 41 43 49 80 28 0 38 81 29 23 31 0 3 1 29 28 38 82 29 23 31 0 3 1 29 4 11 0 28 80 2 0 1 38 83 2 25 31 0 2 1 2 80 2 0 1 38 84 2 25 31 0 2 1 2 80 2 0 1 38 85 2 25 31 0 2 1 2 80 2 0 1 38 86 2 25 31 0 2 1 2) #(0 303 326 329 765 778 791 804) #(4 T 0 10 3 "-" "." 6 "?" (:VARIATE) "9" "Save Datasheet as" "Save Datasheet" NEW-VARIABLES "New Variables" NEW-OBSERVATIONS "New Observations" "Number of Decimals" "Width of Columns" "DataSheet" NIL (475 280) 2 20 24 (NIL) (:EDITABLE) DATASHEET-PROTO :NEW :TITLE :NAME SEND :SIZE :LOCATION LIST LOCATION11 :SHOW :NVAR :NOBS MENU-PROTO MENU-ITEM-PROTO :ACTION :TEXT-WIDTH :ACTIVE-DATA :TEST EQUAL REMOVE ABS MAX LOG CEILING + :TEXT-ASCENT :TEXT-DESCENT :VARIABLE-STRINGS :VARIABLES COPY-LIST :TYPE-STRINGS :VTYPES :CREATE-LABEL-STRINGS :LABEL-STRINGS MAP-ELEMENTS :APPEND-ITEMS DASH-ITEM-PROTO :DATA-OBJECT :NEWVAR :NEWOBS :FIELD-WIDTH :FIELD-HEIGHT :LABEL-WIDTH :NUMBER-OF-DECIMALS :NUMBER-OF-COLUMNS :CREATE-DATA-MATRIX-STRINGS :EDITABLE :REDRAW-NOW :MENU :SHOW-WINDOW :SET-WINDOW-SIZE :H-SCROLL-INCS :V-SCROLL-INCS *DATASHEET* :DATASHEET-OBJECT :DATASHEET-OPEN :SAVE-AS :SAVE :SET-DEC-DIALOG :SET-FW-DIALOG) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 3 0 1 2 4 38 3 4 39 4 5 23 5 6 1 4 21 0 1 2 6 0 4 6 1 3 23 6 6 1 4 23 7 4 2 5 6 0 3 5 16 5 6 21 1 4 5 5 38 8 7 23 9 0 3 4 7 6 17 5 5 16 5 6 21 1 4 5 5 38 10 7 23 9 0 4 4 7 2 1 23 11 0 2 2 4 11 0 2) #(0 23 28 33 50 71) #((DATA-OBJECT DATA-MATRIX-STRINGS VARIABLE-STRINGS LABEL-STRINGS TYPE-STRINGS EDITABLE EDITED NVAR NOBS FIELD-WIDTH FIELD-HEIGHT LABEL-WIDTH HOT-CELL HOT-CELL-READY HOT-CELL-STRING MENU-STATES NEW-DATA NUMBER-OF-COLUMNS NUMBER-OF-DECIMALS NEWVAR NEWOBS REDRAW-NOW) DATASHEET-PROTO NIL GRAPH-PROTO MAKE-OBJECT LISTP LIST APPLY :ADD-SLOT SEND :MAKE-PROTOTYPE SET) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ISNEW #K(#(77 2 2 0 0 1 39 0 3 25 1 0 2 3 2) #(0) #(CALL-NEXT-METHOD APPLY) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ISNEW) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional obj-id) Sets or retrieves the object-id of the data object for this datasheet." :DATA-OBJECT #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DATA-OBJECT #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATA-OBJECT) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional matrix) Sets or retrieves the data matrix with data as strings." :DATA-MATRIX-STRINGS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DATA-MATRIX-STRINGS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATA-MATRIX-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional list) Sets or retrieves the list of variable strings." :VARIABLE-STRINGS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL VARIABLE-STRINGS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VARIABLE-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional list) Sets or retrieves the list of label strings." :LABEL-STRINGS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL LABEL-STRINGS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:LABEL-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional list) Sets or retrieves the list of type strings." :TYPE-STRINGS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL TYPE-STRINGS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:TYPE-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether the datasheet is editable." :EDITABLE #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL EDITABLE #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EDITABLE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether the datasheet is editable." :EDITED #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL EDITED #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EDITED) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of observations in the datasheet." :NOBS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NOBS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NOBS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of variables in the datasheet." :NVAR #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NVAR #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NVAR) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of observations in the datasheet." :NEWOBS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NEWOBS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NEWOBS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of variables in the datasheet." :NEWVAR #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NEWVAR #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NEWVAR) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the field width of the datasheet." :FIELD-WIDTH #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL FIELD-WIDTH #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:FIELD-WIDTH) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the field height of the datasheet." :FIELD-HEIGHT #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL FIELD-HEIGHT #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:FIELD-HEIGHT) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the label width of the datasheet." :LABEL-WIDTH #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL LABEL-WIDTH #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:LABEL-WIDTH) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number-list) Sets or retrieves a list of the row and column of the highlighted cell." :HOT-CELL #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL HOT-CELL #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:HOT-CELL) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether the hot cell is ready for typing." :HOT-CELL-READY #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL HOT-CELL-READY #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:HOT-CELL-READY) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional string) Sets or retrieves the hot cell string." :HOT-CELL-STRING #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL HOT-CELL-STRING #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:HOT-CELL-STRING) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether the hot cell is ready for typing." :MENU-STATES #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL MENU-STATES #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:MENU-STATES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether the hot cell is ready for typing." :NEW-DATA #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NEW-DATA #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NEW-DATA) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of decimals displayed in the datasheet." :NUMBER-OF-DECIMALS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NUMBER-OF-DECIMALS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NUMBER-OF-DECIMALS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional number) Sets or retrieves the number of columns displayed in the datasheet." :NUMBER-OF-COLUMNS #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL NUMBER-OF-COLUMNS #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NUMBER-OF-COLUMNS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: (&optional logical) Sets or retrieves whether redraw should be done (t) or delayed (nil)." :REDRAW-NOW #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL REDRAW-NOW #(%NOT-SUPPLIED)) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:REDRAW-NOW) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-WINDOW-SIZE #K(#(80 7 3 0 1 2 3 38 3 10 23 4 11 0 23 5 11 2 11 9 2 43 8 5 12 2 42 2 12 12 23 6 12 3 8 4 12 2 77 11 12 11 23 7 0 3 1 10 11 38 8 10 23 4 11 0 23 5 11 2 11 8 2 43 7 6 12 2 42 3 12 12 2 43 8 12 12 2 77 11 12 11 25 7 0 3 1 10 11) #(0) #(3 1 0 :HAS-H-SCROLL SCREEN-SIZE SELECT + SEND :HAS-V-SCROLL) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-WINDOW-SIZE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ENABLE-VISTA-MENUS&TOOLS #K(#(77 1 2 1 3 3 0 1 2 2 64 2 6 21 2 1 2 2 0 2 7 1 3 0 5 7 21 0 4 7 6 21 0 5 6 7 38 4 6 38 5 7 25 6 0 3 6 7 3 38 4 6 38 5 7 25 6 0 3 6 7 4 11 0 5) #(0 18 23 26 31 36 49 62) #("MV" "Disabled" NIL #(%NOT-SUPPLIED) CURRENT-DATA :SET-MENU&TOOL-STATES SEND) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ENABLE-VISTA-MENUS&TOOLS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Message args: nil Creates and stores the string version of the data matrix." :CREATE-DATA-MATRIX-STRINGS #K(#(80 2 4 0 1 2 3 9 38 4 6 23 5 6 2 1 6 38 6 7 23 5 6 2 6 7 38 7 7 23 5 7 2 1 7 38 8 8 23 5 8 2 1 8 38 9 9 23 5 9 2 1 9 38 10 10 23 5 10 2 1 10 23 11 11 2 7 8 23 12 11 1 11 0 5 12 37 60 1 4 12 7 0 5 13 37 60 2 3 13 8 68 6 12 13 14 23 13 14 5 4 3 10 9 14 23 14 14 2 2 14 67 11 12 13 14 0 61 112 13 13 37 60 2 3 13 8 61 112 12 12 37 60 1 4 12 7 38 15 13 25 5 0 3 1 13 11) #(0 82 91 127 137) #(" " "~v,vf" NIL 0 :DATA-OBJECT SEND :DATA-MATRIX :NOBS :NVAR :NUMBER-OF-DECIMALS :NUMBER-OF-COLUMNS LIST MAKE-ARRAY FORMAT STRING-TRIM :DATA-MATRIX-STRINGS) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CREATE-DATA-MATRIX-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :CREATE-LABEL-STRINGS #K(#(80 3 0 2 38 0 3 38 1 4 23 2 4 2 2 4 23 3 4 1 4 25 2 0 3 1 3 4) #(0) #(:LABEL-STRINGS :VLABELS SEND COPY-LIST) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CREATE-LABEL-STRINGS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ACTIVATE #K(#(80 3 1 0 2 23 1 0 1 2 21 0 1 6 2 23 2 4 0 50 2 2 5 1 4 38 3 4 23 4 4 2 1 4 38 5 5 50 0 3 4 5 4 11 0 3 23 6 0 1 4 49 7 1 0 57 0 11 0 3 11 0 3) #(0 15 25 43 46 57 60) #(NIL CALL-NEXT-METHOD FRONT-WINDOW :DATA-OBJECT SEND CURRENT-DATA SETCD *DATASHEET*) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ACTIVATE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :DO-CLICK #K(#(80 6 5 0 1 2 3 4 15 38 5 11 23 6 0 2 1 11 38 7 11 23 6 11 2 1 11 38 8 12 23 6 12 2 1 12 38 9 13 23 6 13 2 1 13 38 10 14 23 6 14 2 1 14 38 11 15 23 6 15 2 1 15 38 12 16 23 6 16 2 1 16 38 13 17 23 6 17 2 1 17 0 10 18 0 10 19 0 10 20 0 10 21 0 10 22 38 14 23 23 6 0 3 1 23 9 38 15 23 23 6 23 2 1 23 21 0 1 33 23 23 16 23 2 3 12 2 45 23 8 18 2 45 2 13 23 23 16 19 2 23 11 0 18 23 37 60 2 3 23 7 3 60 19 7 23 1 4 0 10 23 21 0 5 6 23 0 10 23 1 9 37 76 7 8 18 16 3 76 19 17 23 1 9 0 10 23 21 0 10 11 23 0 9 22 38 10 24 23 17 25 2 18 19 23 6 0 3 1 24 25 38 18 24 23 6 0 7 1 24 18 19 13 11 12 0 22 23 21 0 24 12 23 0 18 24 37 61 13 14 24 6 2 43 7 17 25 3 61 19 25 24 1 15 0 10 24 21 0 16 17 24 0 9 21 1 18 0 10 21 0 18 24 2 43 7 16 25 37 61 19 20 24 25 3 60 19 7 24 1 21 0 10 24 21 0 22 23 24 0 9 20 1 24 0 10 20 21 0 25 26 14 16 14 18 71 2 2 14 19 38 18 23 23 6 0 8 1 23 18 19 13 11 12 15 21 0 30 27 22 38 10 23 23 6 0 3 1 23 10 0 21 23 21 0 29 28 23 21 0 29 30 20 38 19 23 23 6 0 5 1 23 21 20 7 21 0 31 32 15 38 11 11 25 6 0 3 1 11 10 11 0 10 11 0 10) #(0 120 151 158 161 166 171 177 184 187 192 225 233 242 254 257 262 267 270 284 291 294 299 304 307 312 335 340 358 363 375 380 390 393) #(-1 1 2 T NIL :DATA-OBJECT SEND :FIELD-WIDTH :FIELD-HEIGHT :LABEL-WIDTH :HOT-CELL :HOT-CELL-READY :NOBS :NVAR :EDITED :EDITABLE CEILING LIST :REVERSE-CELL-COLOR :EXPAND-MV-DATASHEET) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DO-CLICK) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-WINDOW-SCROLL-SIZE #K(#(80 4 0 6 38 0 4 23 1 4 2 1 4 38 2 5 23 1 5 2 1 5 38 3 6 23 1 6 2 1 6 38 4 7 23 1 7 2 1 7 38 5 8 23 1 8 2 1 8 38 6 9 25 1 0 7 1 9 4 5 6 8 7) #(0) #(:FIELD-WIDTH SEND :FIELD-HEIGHT :LABEL-WIDTH :NOBS :NVAR :SET-WINDOW-SIZE) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-WINDOW-SCROLL-SIZE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-WINDOW-SCROLL #K(#(80 9 3 0 1 2 6 2 42 7 5 12 2 43 6 12 12 2 43 11 8 13 2 42 13 4 13 23 3 12 2 12 13 38 4 13 23 5 13 2 1 13 38 6 14 23 5 14 2 1 14 21 0 1 2 2 71 2 2 12 15 2 43 15 4 15 71 2 2 13 16 71 2 2 14 17 2 43 16 17 16 3 62 15 16 15 1 3 0 10 15 21 0 4 5 15 71 2 2 14 16 2 43 16 4 16 47 9 14 16 0 39 5 16 38 6 17 23 7 0 4 16 1 17 14 21 0 6 7 3 16 12 15 2 43 15 5 15 16 13 16 16 14 17 2 43 16 17 16 3 62 15 16 15 1 8 0 10 15 21 0 9 10 15 16 14 15 2 43 15 5 15 78 14 15 0 39 5 15 38 6 16 25 7 0 4 15 1 16 14 11 0 10) #(0 56 88 91 96 125 130 156 159 164 190) #(1 NIL 2 LIST :SIZE SEND :SCROLL APPLY) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-WINDOW-SCROLL) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NEW-OBSERVATION #K(#(80 1 3 0 1 2 2 38 3 4 38 4 5 25 5 0 5 4 5 3 2 1) #(0) #(1 T NIL *DATASHEET* :EXPAND-MV-DATASHEET SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NEW-OBSERVATIONS #K(#(77 1 1 1 6 6 0 1 2 3 4 5 4 0 1 8 0 8 9 37 61 1 2 9 3 38 7 10 38 8 11 23 9 0 3 10 11 7 38 10 10 23 11 10 3 2 10 5 16 10 8 21 0 3 6 8 0 8 9 37 60 4 5 9 5 23 12 0 1 4 38 7 9 38 13 10 25 9 0 5 9 10 7 6 8 11 0 7) #(0 25 51 56 65 70 85) #("Number of New Observations" 0 "You Must Add at Least 1 New Observation." 1 T NIL #(0) *DATASHEET* :REDRAW-NOW SEND :INITIAL GET-VALUE-DIALOG ERROR :EXPAND-MV-DATASHEET) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NEW-VARIABLE #K(#(80 1 3 0 1 2 2 38 3 4 38 4 5 25 5 0 5 4 5 3 2 1) #(0) #(1 NIL T *DATASHEET* :EXPAND-MV-DATASHEET SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NEW-VARIABLES #K(#(77 1 1 1 6 6 0 1 2 3 4 5 4 0 1 8 0 8 9 37 61 1 2 9 3 38 7 10 38 8 11 23 9 0 3 10 11 7 38 10 10 23 11 10 3 2 10 5 16 10 8 21 0 3 6 8 0 8 9 37 60 4 5 9 5 23 12 0 1 4 38 7 9 38 13 10 25 9 0 5 9 10 6 7 8 11 0 7) #(0 25 51 56 65 70 85) #("Number of New Variables" 0 "You Must Add at Least 1 New Variable." 1 T NIL #(0) *DATASHEET* :REDRAW-NOW SEND :INITIAL GET-VALUE-DIALOG ERROR :EXPAND-MV-DATASHEET) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :EXPAND-LABELS #K(#(80 3 0 5 38 0 3 23 1 3 2 1 3 23 2 3 1 3 38 0 4 38 0 5 23 1 5 2 1 5 23 3 6 1 2 51 1 7 1 3 23 4 6 2 7 6 23 5 5 2 5 6 25 1 0 3 1 4 5 80 3 3 6 7 8 1 2 43 1 2 6 25 9 0 4 5 4 3 6) #(0 59) #(:LABEL-STRINGS SEND LENGTH ISEQ MAPCAR APPEND "" "~a~d" NIL FORMAT) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EXPAND-LABELS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :EXPAND-NAMES #K(#(80 4 0 5 38 0 4 23 1 4 2 1 4 23 2 4 1 4 38 0 5 38 0 6 23 1 6 2 1 6 23 3 7 1 2 51 1 8 2 3 4 23 4 7 2 8 7 23 5 6 2 6 7 25 1 0 3 1 5 6 80 4 2 6 7 1 2 43 2 3 6 25 8 0 4 5 4 1 6) #(0 60) #(:VARIABLE-STRINGS SEND LENGTH ISEQ MAPCAR APPEND "~a~d" NIL FORMAT) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EXPAND-NAMES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: new-var new-obs n Method to add N new variables (when NEW-VAR is t) and/or observations (when NEW-OBS is t) to a multivariate datasheet." :EXPAND-MV-DATASHEET #K(#(80 5 5 0 1 2 3 4 7 38 5 10 23 6 0 2 1 10 38 7 10 23 6 10 2 1 10 38 8 11 23 6 0 2 1 11 38 9 11 23 6 11 2 1 11 38 10 12 23 6 12 2 1 12 21 0 1 2 2 38 9 13 2 43 11 4 14 23 6 0 3 1 13 14 38 11 13 38 11 14 23 6 14 2 1 14 2 43 14 4 14 23 6 0 3 1 13 14 38 12 13 23 6 0 4 1 13 4 6 38 7 13 23 13 14 2 5 4 23 14 14 2 10 14 23 6 0 3 1 13 14 38 15 13 38 15 14 23 6 14 2 1 14 23 16 15 2 12 4 2 42 12 4 16 23 13 16 2 7 16 23 17 15 2 15 16 23 18 14 2 14 15 23 6 0 3 1 13 14 21 0 3 4 3 38 10 13 2 43 12 4 14 23 6 0 3 1 13 14 38 19 13 38 19 14 23 6 14 2 1 14 2 43 14 4 14 23 6 0 3 1 13 14 38 20 13 23 6 0 3 1 13 4 38 15 13 38 15 14 23 6 14 2 1 14 23 16 15 2 4 11 2 42 4 11 16 23 13 16 2 7 16 23 17 15 2 15 16 23 21 14 2 14 15 23 6 0 3 1 13 14 38 22 10 23 6 0 3 1 10 9 38 23 10 23 6 0 4 1 10 3 2 38 24 10 23 6 0 3 1 10 9 38 25 10 25 6 0 2 1 10) #(0 59 179 184 281) #("variate" "Var" "?" NIL T :VARIABLE-STRINGS SEND :TYPE-STRINGS :LABEL-STRINGS :NVAR :NOBS :NEWVAR :EXPAND-NAMES REPEAT APPEND :DATA-MATRIX-STRINGS LIST MATRIX BIND-COLUMNS :NEWOBS :EXPAND-LABELS BIND-ROWS :EDITED :SET-WINDOW-SCROLL-SIZE :REDRAW-NOW :REDRAW) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EXPAND-MV-DATASHEET) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: row col lw fw fh & optional ready Reverses color of cell at intersection of col and row, where (in pixels) lw is label width, fw is field (cell) width, fh is field height. Ready indicates if cell ready for typing." :REVERSE-CELL-COLOR #K(#(77 1 7 1 5 6 0 1 2 2 3 4 8 38 6 14 23 7 14 2 1 14 38 8 15 23 7 15 2 1 15 0 13 16 0 13 17 0 13 18 0 13 19 0 12 20 37 60 1 2 3 11 2 45 5 4 20 2 45 3 11 21 2 42 21 5 21 23 9 16 4 4 11 20 21 0 16 21 37 60 3 4 21 11 0 11 16 2 43 2 11 21 2 42 21 6 21 2 43 10 21 17 23 10 18 3 5 11 20 23 10 19 3 6 11 12 3 61 3 12 20 21 0 6 5 20 3 61 3 15 20 21 0 7 8 20 61 109 18 18 3 61 2 12 20 21 0 10 9 20 3 61 2 14 20 21 0 11 12 20 61 109 19 19 38 11 20 23 7 0 3 1 20 9 38 12 20 23 7 0 6 1 20 16 17 18 19 38 11 14 25 7 0 3 1 14 8) #(0 52 57 84 87 126 131 136 140 150 155 160 164) #(NORMAL XOR 1 0 NIL #(NIL) :NOBS SEND :NVAR + - :DRAW-MODE :FRAME-RECT) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:REVERSE-CELL-COLOR) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :CELL-SIZE-LOCATION #K(#(80 7 3 0 1 2 7 0 9 10 0 9 11 0 9 12 0 9 13 0 9 14 0 9 15 37 61 1 2 8 2 0 8 15 1 3 0 7 15 37 61 4 5 8 3 0 8 14 1 6 0 7 14 37 60 7 8 3 8 2 45 5 4 14 2 45 3 8 16 2 42 16 5 16 23 3 10 4 4 8 14 16 0 10 16 37 60 9 10 16 8 0 8 10 2 43 2 8 16 2 42 16 6 16 23 3 11 3 8 15 16 23 4 12 3 5 8 14 23 4 13 3 6 8 15 25 5 0 4 10 11 12 13) #(0 31 36 39 45 50 53 59 64 91 94) #(0 1 NIL + - LIST) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CELL-SIZE-LOCATION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method Args: c m1 m2 Senses character c and shift (m1=t) or option (m2=t)" :DO-KEY #K(#(80 5 3 0 1 2 12 38 3 8 23 4 8 2 1 8 38 5 9 23 4 9 2 1 9 38 6 10 23 4 10 2 1 10 38 7 11 23 4 11 2 1 11 38 8 12 23 4 12 2 1 12 38 9 13 23 4 13 2 1 13 38 10 14 23 4 14 2 1 14 0 7 15 0 7 16 21 0 1 6 8 21 0 2 5 9 16 9 17 49 11 17 0 71 2 2 9 17 49 12 17 0 38 12 17 61 109 17 17 2 42 10 17 17 23 13 15 3 12 6 17 38 11 17 2 43 6 17 17 2 42 11 17 17 2 43 6 17 16 60 2 5 4 3 38 14 13 38 11 14 38 12 15 25 4 0 8 1 13 2 14 15 12 10 11 38 15 17 38 11 18 38 12 19 25 4 0 13 1 17 2 18 19 14 13 15 16 12 10 11 3 11 0 7 11 0 7) #(0 81 86 144 165 191 194) #(#((#\; #\Return #\[ #\' #\Tab)) 1 NIL :EDITABLE SEND :HOT-CELL :FIELD-WIDTH :FIELD-HEIGHT :LABEL-WIDTH :NOBS :NVAR ROW COL + :STORE-AND-SHOW-CHAR :MOVE-CELL) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DO-KEY) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method Args: c row col lw fw fh Method to store and show a non cursor moving character c when in row and col of datasheet with lw label width, fw and fh field width and height." :STORE-AND-SHOW-CHAR #K(#(80 8 13 0 1 2 3 4 5 6 7 8 9 10 11 12 11 38 13 21 23 14 21 2 1 21 38 15 22 23 14 22 7 1 22 3 4 5 6 7 38 5 23 23 14 0 2 1 23 16 22 23 71 2 2 22 24 71 3 4 22 25 23 16 26 1 22 21 0 1 5 21 50 0 2 4 2 10 38 17 27 23 14 27 2 1 27 23 18 27 1 27 37 62 3 8 27 18 38 17 27 38 17 28 23 14 28 2 1 28 38 17 29 23 14 29 2 1 29 23 18 29 1 29 61 109 29 29 23 19 28 3 28 18 29 23 14 0 3 1 27 28 1 8 38 17 27 38 17 28 23 14 28 2 1 28 23 20 29 1 2 23 21 29 2 29 9 23 22 28 2 28 29 23 14 0 3 1 27 28 1 8 38 13 27 23 14 0 3 1 27 11 38 23 27 61 112 23 28 61 112 24 29 2 45 25 12 30 2 45 26 12 31 23 14 0 6 1 27 28 29 30 31 50 0 6 7 2 10 38 17 27 23 14 0 3 1 27 8 1 8 38 17 27 23 20 28 1 2 23 21 28 2 28 9 23 14 0 3 1 27 28 37 62 9 10 3 18 3 62 4 18 27 1 11 0 17 27 21 0 12 13 27 38 24 27 61 109 3 28 61 109 4 29 25 14 0 16 1 27 1 13 3 4 23 24 25 26 6 7 5 12 28 29 37 60 14 15 4 20 38 24 27 61 109 3 28 25 14 0 15 1 27 1 14 3 4 23 24 25 26 6 7 5 18 28 37 61 16 17 3 19 38 24 27 61 109 4 28 25 14 0 15 1 27 1 15 3 4 23 24 25 26 6 7 5 20 28 37 61 18 19 3 18 38 24 27 61 109 4 28 25 14 0 15 1 27 1 16 3 4 23 24 25 26 6 7 5 20 28 11 0 17) #(0 72 78 98 144 182 229 241 262 268 275 278 283 314 320 346 352 378 384 410) #("" STRING #\Backspace T 2 :DATA-MATRIX-STRINGS :LABEL-STRINGS :VARIABLE-STRINGS :TYPE-STRINGS NIL 0 -1 1 :HOT-CELL-READY SEND :CELL-SIZE-LOCATION FOURTH :HOT-CELL-STRING LENGTH SUBSEQ LIST COERCE STRCAT :ERASE-RECT :DRAW-CELL-TEXT) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:STORE-AND-SHOW-CHAR) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: Object - dataobj; message - message sent to data-object; row col - of data sheet; x y w h - position and size of cell; fw fh lw field sizes of sheet; justify - 0 1 2 left center right; element1 element2 row and col of dataobj" :DRAW-CELL-TEXT #K(#(77 1 15 1 8 8 0 1 2 3 4 5 6 7 7 0 23 24 0 22 25 21 0 1 2 15 23 9 26 2 2 3 38 10 27 23 9 27 2 1 27 23 11 0 4 26 14 15 27 1 3 23 9 26 2 2 3 38 10 27 23 9 27 2 1 27 23 11 0 3 26 14 27 38 12 26 2 43 6 21 27 2 43 7 21 28 2 45 8 20 29 2 45 9 20 30 23 9 0 6 1 26 27 28 29 30 21 0 4 5 15 23 9 26 2 2 3 23 13 24 3 26 14 15 1 6 23 9 26 2 2 3 23 13 24 2 26 14 37 60 7 8 5 17 0 12 25 1 9 0 10 25 38 14 26 23 9 26 3 1 26 24 2 45 25 19 27 37 62 10 11 26 27 0 16 24 60 13 18 15 14 13 12 11 0 23 38 15 25 2 43 21 4 26 2 42 11 26 26 2 45 26 20 26 25 9 0 7 1 25 24 20 26 22 22 38 15 25 2 42 5 10 26 2 43 12 26 26 2 47 10 21 27 23 16 27 1 27 2 45 26 27 26 2 43 21 4 27 2 42 11 27 27 2 45 27 20 27 25 9 0 7 1 25 24 26 27 17 22 38 15 25 2 42 5 10 26 2 43 12 26 26 2 45 26 20 26 2 43 21 4 27 2 42 11 27 27 2 45 27 20 27 25 9 0 7 1 25 24 26 27 21 22) #(0 26 51 73 111 126 138 144 149 152 173 176 183 186 215 269) #("*****" 1 #(2 1 0) 6 3 2 0 NIL #(NIL) SEND :HOT-CELL-STRING SET-SELECT :ERASE-RECT SELECT :TEXT-WIDTH :DRAW-TEXT FLOOR) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DRAW-CELL-TEXT) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method Args: c row col nvar nobs x y lw fw fh m1 Method to move to another cell by simulating a do-click. Movement character is c. In row and col. There are nvar and nobs cols and rows. Simulated click will be at x and y. Fields are fw and fh wide and high. Lables are lw wide. M1 t for shift." :MOVE-CELL #K(#(80 13 9 0 1 2 3 4 5 6 7 8 4 37 60 1 13 4 15 60 2 13 11 6 5 4 2 37 60 3 13 3 6 38 9 22 2 43 8 11 23 23 10 0 6 1 22 7 23 20 20 1 13 38 9 22 2 42 5 10 23 23 11 23 3 9 18 23 2 42 6 11 24 23 11 24 3 17 11 24 23 10 0 6 1 22 23 24 20 20 1 13 38 9 22 2 43 9 17 23 2 42 16 11 24 2 43 24 17 24 23 10 0 6 1 22 23 24 20 20 1 13 21 0 7 9 12 37 62 8 13 3 15 38 9 22 2 45 8 11 23 23 10 0 6 1 22 17 23 20 20 1 13 37 60 10 13 3 6 38 9 22 2 43 8 11 23 23 10 0 6 1 22 17 23 20 20 1 13 37 62 12 13 3 15 38 9 22 2 45 8 11 23 23 10 0 6 1 22 7 23 20 20 37 62 14 60 4 21 60 2 19 48 40 26 21 18 17 16 15 11 0 20 38 9 22 2 42 5 10 23 23 11 23 3 9 18 23 2 42 6 11 24 23 11 24 3 17 11 24 25 10 0 6 1 22 23 24 20 20 38 9 22 2 43 9 17 23 2 42 16 11 24 2 43 24 17 24 25 10 0 6 1 22 23 24 20 20 37 60 19 20 3 6 38 9 22 2 43 8 11 23 25 10 0 6 1 22 7 23 20 20 11 0 20 3 62 3 15 22 21 0 23 22 22 3 61 3 21 22 21 0 24 25 22 38 9 22 2 45 8 11 23 25 10 0 6 1 22 7 23 20 20 11 0 20 37 62 27 28 3 15 3 60 3 6 22 1 29 0 20 22 21 0 30 33 22 21 0 31 32 12 38 9 22 2 43 9 17 23 2 45 8 11 24 25 10 0 6 1 22 23 24 20 20 38 9 22 2 43 9 17 23 2 43 8 11 24 25 10 0 6 1 22 23 24 20 20 37 61 34 36 3 15 21 0 36 35 12 38 9 22 2 43 9 17 23 2 43 8 11 24 25 10 0 6 1 22 23 24 20 20 37 61 37 39 3 6 21 0 38 39 12 38 9 22 2 43 9 17 23 2 45 8 11 24 25 10 0 6 1 22 23 24 20 20 11 0 20 37 61 41 42 4 5 3 61 3 6 22 1 43 0 20 22 21 0 44 45 22 11 0 20 37 60 46 47 4 5 38 9 22 2 43 7 10 23 25 10 0 6 1 22 23 8 20 20 38 9 22 2 43 9 17 23 2 43 8 11 24 25 10 0 6 1 22 23 24 20 20 37 61 49 50 4 15 3 61 3 15 22 1 51 0 20 22 21 0 59 52 22 37 61 53 54 4 15 3 61 3 14 23 1 55 0 20 23 21 0 59 56 23 37 62 57 58 4 15 38 9 23 2 45 7 10 24 25 10 0 6 1 23 24 8 20 20 38 9 23 2 42 5 10 24 23 11 24 3 9 18 24 2 45 8 11 25 25 10 0 6 1 23 24 25 20 20 11 0 20 11 0 20) #(0 19 27 33 53 92 122 127 133 153 159 179 185 203 209 220 223 260 288 294 312 315 325 330 335 353 356 362 369 372 377 382 405 428 434 439 462 468 473 496 499 505 512 515 520 523 529 547 570 576 583 586 591 597 604 607 612 618 636 666 669) #(#((#\; #\[) #\Tab #\C-A #\C-D) -1 1 2 3 -3 #(#\; (#\C-] #\Return #\C-C #\Newline) #\Tab #\[ #\' #\C-A #\C-D) NIL 0 :DO-CLICK SEND +) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:MOVE-CELL) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: nilt If nilt is t, enable items that permit changes to datasheet." :ENABLE-MENU-ITEMS #K(#(80 3 4 0 1 2 3 3 38 4 7 23 5 7 2 1 7 38 6 8 23 5 8 2 7 8 23 7 8 2 8 6 38 8 9 23 5 0 3 8 9 2 38 6 8 23 5 8 2 7 8 23 7 8 2 8 5 38 8 9 23 5 0 3 8 9 2 38 6 8 23 5 8 2 7 8 23 7 8 2 8 4 38 8 9 23 5 0 3 8 9 2 38 6 8 23 5 7 2 7 8 23 7 7 2 7 3 38 8 8 25 5 0 3 7 8 2) #(0) #(7 6 4 3 :MENU SEND :ITEMS SELECT :ENABLED) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ENABLE-MENU-ITEMS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: () Dialog Box for Closing Datasheets. Returns nil if cancelled, or a list of one item: 0 for update; 1 for discard; 2 for create." :CLOSE-DIALOG #K(#(80 2 7 0 1 2 3 4 5 6 8 38 7 9 38 8 10 23 9 9 3 9 10 8 38 10 10 38 8 11 23 11 12 3 7 6 5 38 12 13 23 9 10 5 10 11 12 13 4 38 13 11 38 8 12 38 14 13 51 1 14 1 10 23 9 11 5 11 12 3 13 14 38 13 12 38 8 13 23 9 12 3 12 13 2 38 15 13 38 8 14 23 11 15 2 11 12 23 11 15 3 9 10 15 38 16 16 23 9 9 5 13 14 15 16 11 38 17 10 25 9 0 2 9 10 80 2 0 1 38 12 2 25 9 0 2 1 2) #(0 125) #("Cancel" "OK" 2 "Create New Dataset" "Discard All DataSheet Changes" "Update Current Dataset" "Options for Saving DataSheet:" TEXT-ITEM-PROTO :NEW SEND CHOICE-ITEM-PROTO LIST :VALUE MODAL-BUTTON-PROTO :ACTION MODAL-DIALOG-PROTO :DEFAULT-BUTTON :MODAL-DIALOG) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CLOSE-DIALOG) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :MATRIX-FROM-STRINGS-MATRIX #K(#(80 2 3 0 1 2 9 38 3 0 38 4 5 23 5 5 2 1 5 38 6 6 23 5 6 2 1 6 38 7 7 23 5 7 2 1 7 38 8 8 23 5 8 2 1 8 0 4 9 0 3 10 37 60 1 5 10 7 23 9 11 2 6 10 50 2 2 3 11 2 23 10 12 2 5 10 23 11 9 2 9 12 1 4 39 12 12 23 10 13 2 5 10 23 13 12 2 12 13 23 11 9 2 9 12 61 112 10 10 37 60 1 5 10 7 23 14 11 2 7 8 17 9 12 23 15 11 2 11 12 25 16 0 1 11) #(0 58 70 84 105 115) #("text" 0 NIL CURRENT-DATA :DATA-MATRIX-STRINGS SEND :TYPE-STRINGS :NVAR :NOBS SELECT COL COMBINE NUMBER-FROM-STRING MAP-ELEMENTS LIST MATRIX TRANSPOSE) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:MATRIX-FROM-STRINGS-MATRIX) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SHOW-WINDOW #K(#(80 2 1 0 2 38 1 3 23 2 3 2 1 3 38 3 4 23 2 0 3 3 4 2 25 4 0 0) #(0) #(T :DATA-OBJECT SEND :DATASHEET-OPEN CALL-NEXT-METHOD) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SHOW-WINDOW) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-FW-DIALOG #K(#(80 2 8 0 1 2 3 4 5 6 7 6 38 8 10 23 9 10 3 1 10 9 38 8 11 23 9 11 3 1 11 8 38 8 12 23 9 12 3 1 12 7 38 10 13 23 9 0 2 1 13 38 11 13 23 9 13 2 1 13 38 12 14 23 13 13 3 6 14 13 21 0 1 8 13 0 13 14 21 0 3 2 14 23 14 13 1 2 16 13 14 21 0 5 4 14 23 14 13 1 2 16 13 14 37 60 6 7 14 2 23 14 13 1 2 38 15 14 16 13 15 2 42 10 15 15 23 16 15 4 15 12 11 4 23 9 0 3 1 14 15 38 11 14 16 13 15 23 9 0 3 1 14 15 38 17 10 23 9 0 4 1 10 3 3 38 18 10 23 19 11 0 23 20 11 2 11 3 38 21 12 23 9 12 2 1 12 38 15 13 23 9 13 2 1 13 38 22 14 23 9 14 2 1 14 2 43 2 14 14 2 42 13 14 13 23 16 12 3 2 12 13 2 77 11 12 11 23 9 0 3 1 10 11 38 23 10 25 9 0 2 1 10 11 0 5) #(0 75 83 88 96 101 110 115 243) #(1 0 6 NIL "Width of Columns:" "." "-" "9" :TEXT-WIDTH SEND :NUMBER-OF-DECIMALS :NUMBER-OF-COLUMNS :INITIAL GET-VALUE-DIALOG LIST :FIELD-WIDTH + :SCROLL :HAS-H-SCROLL SCREEN-SIZE SELECT :LABEL-WIDTH :NVAR :REDRAW) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-FW-DIALOG) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SET-DEC-DIALOG #K(#(80 2 3 0 1 2 3 38 3 5 23 4 5 2 1 5 38 5 6 23 6 6 3 4 6 5 21 0 1 6 6 16 6 6 0 6 7 21 0 3 2 7 0 5 6 0 6 7 37 60 4 5 7 2 0 5 6 38 3 7 23 4 0 3 1 7 6 38 7 5 23 4 0 2 1 5 38 8 5 25 4 0 2 1 5 11 0 3) #(0 31 42 45 54 57 85) #(0 NIL "Number of Decimals:" :NUMBER-OF-DECIMALS SEND :INITIAL GET-VALUE-DIALOG :CREATE-DATA-MATRIX-STRINGS :REDRAW) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-DEC-DIALOG) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(CONVERT-NUMBER-FROM-STRING #K(#(80 2 10 0 1 2 3 4 5 4 6 7 8 9 52 11 4 12 13 58 12 21 0 3 1 12 23 9 13 1 1 50 2 3 2 4 13 23 10 0 1 3 23 5 0 1 2 11 0 12 34 10 14 54 5 15 16 0 57 12 38 11 17 69 9 8 1 7 70 1 11 49 11 17 0 51 12 19 2 16 14 23 12 19 2 7 19 23 12 19 1 19 38 11 20 23 13 0 2 19 20 72 10 19 6 58 19 21 0 8 9 19 16 19 19 14 19 1 6 23 5 0 1 5 1 6 39 12 0 23 14 0 1 1 53 13 35 14 17 12 2 10 17 53 13 80 4 0 0 36 2 3 0 55 1 11) #(0 26 37 47 50 60 68 71 112 119 126 136 145) #("Bad Numeric Data" "A variate has non-numeric data." "?" "stack overflow" T ERROR (XLISP::*ACTIVE-HANDLERS*) NIL #:BLOCK16812 STRING-DOWNCASE MESSAGE-DIALOG XLISP::*ACTIVE-HANDLERS* LIST XLISP::PUSH-CONDITION-HANDLERS NUMBER-FROM-STRING) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Closes datasheet, offering to save it, if modified." :CLOSE #K(#(80 2 3 0 1 2 4 38 3 5 23 4 5 2 1 5 21 0 1 2 5 38 5 6 23 4 5 2 1 6 1 3 0 3 5 21 0 4 11 5 38 6 6 23 4 6 2 1 6 21 0 5 10 6 60 6 2 9 8 7 6 1 11 38 7 6 23 4 0 2 1 6 1 11 1 11 38 8 6 23 4 0 2 1 6 1 11 11 0 3 38 9 5 23 4 5 2 1 5 38 10 6 23 4 6 2 5 6 38 11 7 23 12 8 2 1 6 23 4 0 4 5 7 4 8 38 13 6 23 4 0 3 5 6 3 38 14 6 23 4 0 3 5 6 3 25 15 0 0) #(0 21 32 35 40 54 61 63 74 76 87 90) #(#(0 1 2) NIL GRAPHS :EDITABLE SEND :EDITED :CLOSE-DIALOG :SAVE-AS :SAVE :DATA-OBJECT :GRAPHS :SLOT-VALUE REMOVE :DATASHEET-OBJECT :DATASHEET-OPEN CALL-NEXT-METHOD) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CLOSE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: args This is a dummy method, for compatibility with ViSta." :ENABLE-VISTA-MENUS&TOOLS #K(#(80 3 1 0 0 11 0 3) #(0) #(NIL) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ENABLE-VISTA-MENUS&TOOLS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :REDRAW #K(#(80 2 16 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 27 38 16 18 23 17 18 2 1 18 21 0 1 25 18 38 18 18 23 17 0 2 1 18 38 19 18 23 17 0 2 1 18 38 20 18 23 17 0 2 1 18 38 21 18 23 17 18 2 1 18 38 22 19 23 17 19 2 1 19 38 23 20 23 17 20 2 1 20 38 24 21 23 17 21 2 1 21 38 25 22 23 17 22 2 1 22 0 17 23 38 26 24 21 0 2 3 24 38 26 25 2 42 25 16 25 2 47 25 9 24 1 4 0 2 24 2 47 20 24 25 23 27 25 1 25 0 17 26 0 17 27 0 17 28 38 28 29 23 17 29 2 1 29 38 29 30 23 17 30 2 1 30 38 30 31 23 17 31 2 1 31 38 31 32 23 17 32 2 1 32 2 42 16 21 23 38 32 33 23 17 0 3 1 33 15 38 33 33 2 42 18 20 34 2 43 22 34 34 23 17 0 6 1 33 14 14 34 14 38 33 33 2 43 16 19 34 2 42 34 21 34 23 17 0 6 1 33 14 14 14 34 38 33 33 2 42 18 20 34 2 43 22 34 34 23 17 0 6 1 33 22 21 34 21 0 14 33 37 60 5 6 33 18 38 33 34 2 43 33 13 35 2 42 35 20 35 2 43 22 35 35 2 43 33 13 36 2 42 36 20 36 2 43 22 36 36 23 17 0 6 1 34 35 14 36 23 61 112 33 33 37 60 5 6 33 18 38 33 34 23 17 0 6 1 34 14 14 22 23 38 34 34 23 17 0 3 1 34 16 38 33 34 2 42 18 20 35 2 43 22 35 35 23 17 0 6 1 34 14 23 35 23 38 33 34 2 43 16 19 35 2 42 35 21 35 23 17 0 6 1 34 22 14 22 35 38 33 34 2 43 16 19 35 2 42 35 21 35 2 42 18 20 36 2 43 22 36 36 2 43 16 19 37 2 42 37 21 37 23 17 0 6 1 34 14 35 36 37 38 33 34 2 42 18 20 35 2 43 22 35 35 2 42 18 20 36 2 43 22 36 36 2 43 16 19 37 2 42 37 21 37 23 17 0 6 1 34 35 14 36 37 38 34 34 23 17 0 3 1 34 13 38 32 34 23 17 0 3 1 34 12 38 35 34 23 36 35 3 17 11 18 2 45 22 10 36 2 45 21 9 37 23 17 0 7 1 34 35 36 37 16 14 38 35 34 23 36 35 3 17 8 19 2 42 16 21 36 2 45 36 9 36 23 17 0 7 1 34 35 9 36 14 14 2 45 19 13 34 0 14 35 37 60 7 8 35 34 38 33 36 2 43 35 9 37 2 42 37 21 37 2 42 18 20 38 2 43 22 38 38 2 43 35 9 39 2 42 39 21 39 23 17 0 6 1 36 14 37 38 39 61 112 35 35 37 60 7 8 35 34 2 45 18 13 36 0 14 37 37 60 9 10 37 36 38 33 38 2 43 37 13 39 2 42 39 20 39 2 43 22 39 39 2 43 37 13 40 2 42 40 20 40 2 43 22 40 40 2 43 16 19 41 2 42 41 21 41 23 17 0 6 1 38 39 23 40 41 61 112 37 37 37 60 9 10 37 36 0 14 38 37 60 11 12 38 18 38 35 39 38 37 40 23 17 40 2 1 40 23 38 40 2 40 38 2 47 20 24 41 23 27 41 1 41 38 37 42 23 17 42 2 1 42 23 38 42 2 42 38 23 39 42 1 42 2 109 41 42 41 23 40 40 3 40 14 41 2 42 20 38 41 2 47 20 16 42 23 27 42 1 42 23 41 41 3 22 41 42 2 45 21 9 42 23 17 0 7 1 39 40 41 42 13 14 38 35 39 38 29 40 23 17 40 2 1 40 23 38 40 2 40 38 2 47 20 24 41 23 27 41 1 41 38 29 42 23 17 42 2 1 42 23 38 42 2 42 38 23 39 42 1 42 2 109 41 42 41 23 40 40 3 40 14 41 2 42 20 38 41 2 47 20 16 42 23 27 42 1 42 23 41 41 3 22 41 42 2 42 16 21 42 2 45 42 9 42 23 17 0 7 1 39 40 41 42 13 14 61 112 38 38 37 60 11 12 38 18 0 14 39 37 60 13 21 39 19 2 42 9 21 40 2 42 39 21 41 2 45 41 9 41 2 43 40 41 26 38 35 40 38 42 41 23 17 41 2 1 41 23 38 41 2 41 39 23 17 0 7 1 40 41 9 26 14 14 0 14 40 37 60 14 20 40 18 2 43 13 40 41 2 42 41 20 41 2 43 22 41 41 2 45 41 9 27 2 45 20 24 41 38 43 42 68 29 39 40 43 23 17 42 3 1 42 43 37 62 15 16 41 42 38 35 43 68 29 39 40 44 23 17 0 7 1 43 44 27 26 16 14 1 19 23 38 43 2 30 40 50 2 17 18 43 4 38 35 43 23 17 0 7 1 43 3 27 26 16 14 1 19 68 29 39 40 43 23 39 44 1 43 2 109 44 25 44 23 44 44 1 44 23 38 43 2 43 44 38 35 44 23 17 0 7 1 44 43 27 26 16 14 61 112 40 40 37 60 14 20 40 18 61 112 39 39 37 60 13 21 39 19 21 0 22 24 31 38 32 40 23 17 0 3 1 40 15 38 33 40 2 43 18 13 41 2 42 20 41 41 2 43 22 41 41 2 43 18 13 42 2 42 20 42 42 2 43 22 42 42 23 17 0 6 1 40 41 14 42 21 38 33 40 2 42 20 18 41 2 43 22 41 41 2 43 18 13 42 2 42 20 42 42 2 43 22 42 42 23 17 0 6 1 40 41 21 42 21 0 7 28 38 35 40 2 43 18 6 41 2 42 20 41 41 2 43 22 41 41 23 27 41 1 41 2 45 21 9 42 23 17 0 7 1 40 28 41 42 13 14 38 33 40 2 43 19 9 41 2 42 21 41 41 2 43 19 9 42 2 42 21 42 42 23 17 0 6 1 40 14 41 22 42 38 34 40 23 17 0 3 1 40 16 38 33 40 2 43 19 16 41 2 42 21 41 41 2 43 19 9 42 2 42 21 42 42 2 45 42 13 42 23 17 0 6 1 40 22 41 22 42 38 34 40 23 17 0 3 1 40 13 0 5 28 38 35 40 2 43 19 9 41 2 42 21 41 41 2 45 41 9 41 23 17 0 7 1 40 28 9 41 14 14 21 0 23 24 32 38 45 40 16 32 41 71 2 2 32 42 38 46 43 23 17 43 2 1 43 23 17 0 8 1 40 41 42 22 20 21 43 38 47 40 25 17 0 2 1 40 11 0 17) #(0 34 117 132 135 283 336 587 640 654 717 726 937 946 1004 1050 1071 1083 1099 1139 1149 1159 1164 1425 1457 1466) #(8 "*****" "variate" "New Obs" 0.5 "New Var" "~d Obs" 3 4 "~d Vars" DASHED 1 0 SOLID 2 NIL :REDRAW-NOW SEND :START-BUFFERING :ERASE-WINDOW :DATA-OBJECT :NVAR :NOBS :FIELD-WIDTH :FIELD-HEIGHT :LABEL-WIDTH *GRAPHICS-FONT-SIZE* FLOOR :DATA-MATRIX-STRINGS :TYPE-STRINGS :EDITABLE :HOT-CELL :LINE-TYPE :DRAW-LINE :LINE-WIDTH :DRAW-TEXT FORMAT :VARIABLE-STRINGS SELECT LENGTH SUBSEQ + :LABEL-STRINGS :TEXT-WIDTH ISEQ :REVERSE-CELL-COLOR :HOT-CELL-READY :BUFFER-TO-SCREEN) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:REDRAW) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: MATRIX &KEY (LIST NIL) Column-list function which can optionally produce its output as a list of lists." FUNCTION-DOCUMENTATION COLUMN-LIST2 %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(COLUMN-LIST2 #K(#(77 3 2 0 0 0 1 0 0 2 21 0 1 2 2 23 2 3 1 1 51 3 4 0 25 3 0 2 4 3 25 2 0 1 1 80 2 1 4 0 25 5 0 2 1 2) #(0 15 30 35) #((NIL) (:LIST) COLUMN-LIST MAPCAR LIST COERCE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: (matrix column-number) Takes a matrix and returns the column specified by column-number. If the keyword argument :LIST is set to t, the row is returned as a list." FUNCTION-DOCUMENTATION COL %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(COL #K(#(77 3 3 0 0 0 1 0 0 1 38 2 4 23 3 4 3 1 4 3 25 4 0 2 4 2) #(0) #((NIL) (:LIST) :LIST COLUMN-LIST2 SELECT) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: &rest strings Catenates the strings in args." FUNCTION-DOCUMENTATION STRCAT %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(STRCAT #K(#(77 2 1 0 1 0 2 39 1 3 23 2 4 2 2 1 25 3 0 2 3 4) #(0) #(STRING CONCATENATE COMBINE APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: args This is a dummy method, for compatibility with ViSta." :SET-MENU&TOOL-STATES #K(#(80 3 1 0 0 11 0 3) #(0) #(NIL) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SET-MENU&TOOL-STATES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns the number of text and variate variables in an Arc dataset." :NVAR #K(#(80 2 1 0 1 38 1 3 23 2 3 3 1 3 2 25 3 0 1 3) #(0) #((:TEXT :VARIATE) :TYPES SEND LENGTH) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NVAR) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns the number of observations in an Arc dataset." :NOBS #K(#(80 2 0 2 38 0 2 23 1 2 2 1 2 16 2 2 38 2 3 25 1 0 2 2 3) #(0) #(:DATALISTS SEND :LENGTH) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NOBS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: variable changes all occurrences of not-a-number in variable to ?" FUNCTION-DOCUMENTATION NAN-TO-? %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NAN-TO-? #K(#(80 2 1 0 2 23 1 3 1 1 51 1 4 0 23 2 4 2 4 3 23 3 4 1 4 23 4 0 3 3 4 2 11 0 3 80 2 0 1 38 5 2 40 1 2 0 57 0) #(0 35) #("?" COPY-LIST MAPCAR WHICH SET-SELECT NOT-A-NUMBER) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns list containing all text and variate variables from Arc dataset, text variables first." :VDATA #K(#(80 2 3 0 1 2 3 38 3 5 23 4 5 3 1 5 4 38 3 6 23 4 6 3 1 6 3 23 5 5 2 5 6 23 6 5 2 2 5 38 7 6 23 4 5 3 1 6 5 38 8 6 23 4 6 2 1 6 38 9 7 23 4 7 2 1 7 23 10 6 2 6 7 23 5 7 1 5 23 11 5 2 6 7 23 12 5 1 5 23 5 5 1 5 25 13 0 1 5) #(0) #(NIL (:VARIATE) (:TEXT) :TYPES SEND COMBINE REMOVE :DATA :NVAR :NOBS LIST MATRIX TRANSPOSE NAN-TO-?) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VDATA) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns list containing all variables of types in ok-types from Arc dataset." :ACTIVE-DATA #K(#(80 3 3 0 1 2 4 38 3 6 38 4 7 39 5 8 23 6 6 4 6 2 7 8 21 0 1 2 6 38 7 7 23 8 6 3 1 7 3 1 3 0 5 6 38 9 7 38 4 8 39 5 9 23 6 7 4 7 2 8 9 21 0 4 5 7 38 7 8 23 8 7 3 1 8 4 1 6 0 5 7 23 10 6 2 6 7 23 11 6 2 5 6 38 12 7 23 8 7 3 1 7 6 23 13 8 1 6 38 14 9 23 8 9 2 1 9 23 15 8 2 8 9 23 10 9 1 7 23 16 6 2 8 9 23 17 6 1 6 23 10 6 1 6 25 18 0 1 6) #(0 29 41 44 66 78 81) #((:TEXT) (:VARIATE) NIL :TEXT :TEST EQUAL MEMBER :TYPES SEND :VARIATE COMBINE REMOVE :DATA LENGTH :NOBS LIST MATRIX TRANSPOSE NAN-TO-?) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ACTIVE-DATA) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns list of names of text and variate variables from Arc dataset, text variables first." :VARIABLES #K(#(80 2 3 0 1 2 2 38 3 5 23 4 5 3 1 5 4 38 3 6 23 4 6 3 1 6 3 23 5 5 2 5 6 25 6 0 2 2 5) #(0) #(NIL (:VARIATE) (:TEXT) :TYPES SEND COMBINE REMOVE) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VARIABLES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :VTYPES #K(#(80 2 5 0 1 2 3 4 4 38 5 7 38 6 8 23 7 8 3 1 8 6 23 7 7 3 1 7 8 23 8 7 1 7 38 5 8 38 6 9 23 7 9 3 1 9 5 23 7 8 3 1 8 9 23 8 8 1 8 23 9 9 2 4 7 23 9 10 2 3 8 23 10 7 2 9 10 25 11 0 2 2 7) #(0) #(NIL "variate" "text" (:VARIATE) (:TEXT) :DATA :TYPES SEND LENGTH REPEAT COMBINE REMOVE) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VTYPES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns data matrix of all text and variate variables from Arc dataset, text variables first." :DATA-MATRIX #K(#(80 2 3 0 1 2 3 38 3 5 23 4 5 3 1 5 4 38 3 6 23 4 6 3 1 6 3 23 5 5 2 5 6 23 6 5 2 2 5 38 7 6 23 4 5 3 1 6 5 38 8 6 23 4 6 2 1 6 38 9 7 23 4 7 2 1 7 23 10 6 2 6 7 23 5 7 1 5 23 11 7 1 7 23 12 5 2 6 7 23 13 5 1 5 11 0 5) #(0) #(NIL (:VARIATE) (:TEXT) :TYPES SEND COMBINE REMOVE :DATA :NVAR :NOBS LIST NAN-TO-? MATRIX TRANSPOSE) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATA-MATRIX) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Returns strings containing the case numbers from the Arc dataset, to be used as obs. labels." :VLABELS #K(#(80 2 1 0 2 38 1 3 23 2 3 3 1 3 2 16 3 3 39 3 4 25 4 0 2 4 3) #(0) #(("case-numbers") :DATA SEND NUM-TO-STRING MAPCAR) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VLABELS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 2 38 1 2 38 2 3 25 3 0 3 2 3 1) #(0) #(DATASHEET-OBJECT DATASET-PROTO :ADD-SLOT SEND) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: &optional (dsobj nil set) Accessor for dataset-object slot." :DATASHEET-OBJECT #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DATASHEET-OBJECT #(%NOT-SUPPLIED)) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATASHEET-OBJECT) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 2 38 1 2 38 2 3 25 3 0 3 2 3 1) #(0) #(DATASHEET-OPEN DATASET-PROTO :ADD-SLOT SEND) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: &optional (dsopen nil set) Accessor for datasheet-open slot." :DATASHEET-OPEN #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DATASHEET-OPEN #(%NOT-SUPPLIED)) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATASHEET-OPEN) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 2 38 1 2 38 2 3 25 3 0 3 2 3 1) #(0) #(OBS-STATES DATASET-PROTO :ADD-SLOT SEND) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: &optional (states nil set) Accessor for obs-states slot." :OBS-STATES #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL OBS-STATES #(%NOT-SUPPLIED)) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:OBS-STATES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 2 38 1 2 38 2 3 25 3 0 3 2 3 1) #(0) #(VAR-STATES DATASET-PROTO :ADD-SLOT SEND) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: &optional (states nil set) Accessor for var-states slot." :VAR-STATES #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL VAR-STATES #(%NOT-SUPPLIED)) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VAR-STATES) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 5 0 1 2 3 4 4 38 5 6 38 6 7 38 5 8 38 6 9 23 7 8 3 8 9 5 23 8 9 4 4 3 2 1 23 9 8 2 8 9 25 7 0 4 6 7 5 8) #(0) #(VAR-STATES OBS-STATES DATASHEET-OPEN DATASHEET-OBJECT INSTANCE-SLOTS DATASET-PROTO :SLOT-VALUE SEND LIST COMBINE) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Display datasheet, no edits permitted." :BROWSE-DATASHEET #K(#(80 2 1 0 2 38 1 3 23 2 3 2 1 3 21 0 1 2 3 38 3 4 23 2 0 2 3 4 49 4 1 0 25 5 0 1 1) #(0 19 28) #(NIL :DATASHEET-OBJECT SEND :CLOSE CURRENT-DATA BROWSE-DATA) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:BROWSE-DATASHEET) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 2 0 1 1 38 2 3 25 3 0 3 2 1 3) #(0) #("Show data sheet" DATASHEET-MENU-ITEM :BROWSE-DATASHEET RC-MENU-ITEM) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Display datasheet, permit edits." :EDIT-DATASHEET #K(#(80 2 1 0 2 38 1 3 23 2 3 2 1 3 21 0 1 2 3 38 3 4 23 2 0 2 3 4 49 4 1 0 25 5 0 1 1) #(0 19 28) #(NIL :DATASHEET-OBJECT SEND :CLOSE CURRENT-DATA SHOW-DATASHEET) 0 NIL) DATASET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:EDIT-DATASHEET) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 2 0 1 1 38 2 3 25 3 0 3 2 1 3) #(0) #("Edit data sheet" EDIT-DATASHEET-MENU-ITEM :EDIT-DATASHEET RC-MENU-ITEM) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #(*ARC-DATASET-MENU-ITEMS* MARK-AS-SPECIAL) 0 NIL) #K(#(80 1 1 0 2 38 1 2 38 2 3 23 3 2 2 2 3 38 0 3 23 4 2 2 2 3 25 5 0 2 1 2) #(0) #(*ARC-DATASET-MENU-ITEMS* DATASHEET-MENU-ITEM EDIT-DATASHEET-MENU-ITEM LIST APPEND SET) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(*ARC-DATASET-MENU-ITEMS*) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 3 0 1 2 2 38 3 4 21 0 1 4 4 23 4 5 1 3 21 0 2 4 5 23 5 5 1 2 21 0 4 3 5 11 0 1 38 6 4 23 7 4 2 3 4 49 6 4 0 38 8 4 38 9 5 23 10 4 2 4 5 49 2 4 0 11 0 3) #(0 15 25 35 38) #(NIL "Variable has a value. Redefine?" *VISTA* *ASK-ON-REDEFINE* BOUNDP Y-OR-N-P *VARIABLES* ADJOIN *OBJECT* :NEW SEND) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SHOW-OBS #K(#(80 2 1 0 0 11 0 2) #(0) #("") 0 NIL) *VISTA* BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SHOW-OBS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 4 0 1 2 3 2 38 4 5 21 0 1 4 5 23 5 6 1 4 21 0 2 4 6 23 6 6 1 2 21 0 4 3 6 11 0 1 38 7 5 23 8 5 2 4 5 49 7 5 0 49 3 3 0 11 0 4) #(0 16 26 36 39) #(NIL "Variable has a value. Redefine?" (0 0) LOCATION11 *ASK-ON-REDEFINE* BOUNDP Y-OR-N-P *VARIABLES* ADJOIN) 0 NIL) #K(#(80 1 1 0 0 49 1 1 0 57 0) #(0) #(NIL *DATASHEET*) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: str Converts a number represented as a string into a number; returns nil if str contains ?" FUNCTION-DOCUMENTATION CONVERT-NUMBER-FROM-STRING %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(CONVERT-NUMBER-FROM-STRING #K(#(80 2 10 0 1 2 3 4 5 4 6 7 8 9 52 11 5 12 13 58 12 21 0 1 2 12 11 0 12 50 2 3 4 4 1 38 9 0 57 0 23 10 0 1 3 25 5 0 1 2 34 10 14 54 6 15 16 0 57 12 38 11 17 69 9 8 1 8 70 1 12 49 11 17 0 51 13 19 2 16 14 23 12 19 2 7 19 23 12 19 1 19 38 11 20 23 13 0 2 19 20 72 11 19 6 58 19 21 0 9 10 19 16 19 19 14 19 1 7 23 5 0 1 5 1 7 39 12 0 23 14 0 1 1 53 13 35 14 17 12 2 10 17 53 13 80 4 0 0 36 2 3 0 55 1 12) #(0 26 29 35 40 50 60 68 71 112 119 126 136 145) #("Bad Numeric Data" "A variate has non-numeric data." "?" "stack overflow" T ERROR (XLISP::*ACTIVE-HANDLERS*) NIL #:BLOCK20006 NOT-A-NUMBER MESSAGE-DIALOG XLISP::*ACTIVE-HANDLERS* LIST XLISP::PUSH-CONDITION-HANDLERS NUMBER-FROM-STRING) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: str If str contains ?, returns NAN, else returns str." FUNCTION-DOCUMENTATION ?-TO-MISSING %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(?-TO-MISSING #K(#(80 2 1 0 0 50 2 1 2 1 2 38 1 0 57 0 11 0 1) #(0 11 16) #("?" NOT-A-NUMBER) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: STRING Converts a number represented as a string into a number." FUNCTION-DOCUMENTATION NUMBER-FROM-STRING %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NUMBER-FROM-STRING #K(#(80 2 1 0 1 23 1 3 1 1 23 2 3 2 3 2 25 3 0 1 3) #(0) #(NIL MAKE-STRING-INPUT-STREAM READ EVAL) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: () Stuffs the data from the datasheet back into an Arc dataset object." :SAVE #K(#(80 2 4 0 1 2 3 14 38 4 6 23 5 0 3 1 6 5 38 6 6 23 5 6 2 1 6 38 7 7 23 5 7 2 6 7 38 8 8 23 5 8 2 1 8 38 9 9 23 5 9 2 1 9 38 10 10 23 5 10 2 1 10 38 11 11 23 5 11 2 1 11 38 12 12 23 5 12 2 1 12 38 13 13 23 5 13 3 6 13 4 38 14 14 38 14 15 23 15 16 1 12 23 5 0 4 13 14 15 16 38 16 13 23 5 0 3 6 13 12 23 15 11 1 11 16 11 12 21 1 1 11 11 23 17 13 2 9 12 23 17 14 2 10 12 50 2 2 3 14 2 38 18 15 1 4 38 19 15 23 20 16 2 8 12 23 21 16 2 16 3 50 2 5 6 14 2 39 22 17 23 23 16 2 17 16 1 7 39 24 17 23 23 16 2 17 16 38 13 17 23 5 17 3 6 17 13 21 0 8 9 17 38 14 18 38 14 19 23 5 0 4 17 18 19 16 1 10 38 14 18 38 7 19 23 5 0 6 6 15 18 16 19 13 17 11 11 16 11 12 21 1 1 11 11 38 25 13 38 26 14 23 5 13 3 13 14 7 38 27 14 25 5 0 2 13 14) #(0 133 151 156 159 177 188 197 212 228 244 255) #("text" LIST "Case-numbers" NIL :EDITED SEND :DATA-OBJECT :NAME :DATA-MATRIX-STRINGS :VARIABLE-STRINGS :TYPE-STRINGS :NVAR :NOBS :FIND-DATALIST :DATA ISEQ :NUM-CASES SELECT :TEXT :VARIATE COL COERCE ?-TO-MISSING MAPCAR CONVERT-NUMBER-FROM-STRING ARC :FIND-DATASET :INTERN-DATA) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SAVE) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Method args: &optional name Creates a new Arc dataset, of name name, if supplied, from the data in the datasheet." :SAVE-AS #K(#(77 1 2 1 1 1 0 8 38 2 4 23 3 0 3 1 4 3 38 4 4 23 3 4 2 1 4 38 5 5 23 3 5 2 1 5 38 6 6 23 3 6 2 1 6 38 7 7 23 3 7 2 1 7 38 8 8 23 9 9 1 7 51 1 10 2 6 4 23 10 9 2 10 9 38 11 10 38 12 11 25 13 0 6 8 9 10 5 11 2 80 4 2 14 15 2 23 16 6 2 2 3 23 17 6 2 6 5 23 18 7 2 1 3 50 2 2 3 7 4 39 19 7 25 10 0 2 7 6 39 20 7 25 10 0 2 7 6) #(0 90 120 129) #(NIL #(NIL) :EDITED SEND :DATA-MATRIX-STRINGS :VARIABLE-STRINGS :TYPE-STRINGS :NVAR :DATA ISEQ MAPCAR :DATA-NAMES :NAME ARC "text" LIST COL COERCE SELECT ?-TO-MISSING CONVERT-NUMBER-FROM-STRING) 0 NIL) DATASHEET-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SAVE-AS) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: () Creates new Arc dataset object and a datasheet for the new dataset." FUNCTION-DOCUMENTATION NEW-DATA %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(NEW-DATA #K(#(80 1 7 0 1 2 3 4 5 6 8 38 7 8 38 8 9 23 9 8 3 8 9 7 38 10 9 38 8 10 38 11 11 23 9 9 5 9 10 6 11 5 38 12 10 38 8 11 38 13 12 51 3 13 1 9 23 9 10 5 10 11 4 12 13 38 12 11 38 8 12 23 9 11 3 11 12 3 38 14 12 38 8 13 23 15 14 2 10 11 23 15 14 3 8 9 14 38 16 15 23 9 8 5 12 13 14 15 10 38 17 9 23 9 8 2 8 9 21 0 1 2 8 38 18 9 38 19 10 23 15 10 1 10 23 15 10 1 10 38 20 11 38 21 12 16 8 13 23 22 0 6 9 10 11 1 12 13 16 8 9 23 23 9 1 9 23 24 9 1 9 23 25 9 1 9 23 26 0 1 9 16 8 8 23 27 8 1 8 23 25 8 1 8 38 28 9 23 9 9 2 8 9 38 29 10 16 9 11 25 9 0 3 8 10 11 11 0 2 80 2 0 1 38 30 2 23 9 2 2 1 2 25 15 0 1 2) #(0 123 216 219) #(("Var0") NIL "Cancel" "OK" 14 "NewData" "Create New Dataset Named:" TEXT-ITEM-PROTO :NEW SEND EDIT-TEXT-ITEM-PROTO :TEXT-LENGTH MODAL-BUTTON-PROTO :ACTION MODAL-DIALOG-PROTO LIST :DEFAULT-BUTTON :MODAL-DIALOG :DATA NOT-A-NUMBER :DATA-NAMES :NAME ARC MAKE-STRING-INPUT-STREAM READ EVAL SHOW-DATASHEET READ-FROM-STRING :DATALISTS :DELETE-DATALIST :TEXT) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 2 0 1 1 38 2 3 25 3 0 3 2 1 3) #(0) #("New Data" NEW-DATA-MENU-ITEM :NEW-SPREADSHEET RC-MENU-ITEM) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :NEW-SPREADSHEET #K(#(80 2 0 0 25 0 0 0) #(0) #(NEW-DATA) 0 NIL) ARC BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NEW-SPREADSHEET) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 1 0 0 25 1 0 1 1) #(0) #(*ARC-MENU-ITEMS2* MARK-AS-SPECIAL) 0 NIL) #K(#(80 1 2 0 1 2 23 2 3 1 2 38 0 4 23 3 3 2 3 4 25 4 0 2 1 3) #(0) #(*ARC-MENU-ITEMS2* NEW-DATA-MENU-ITEM LIST APPEND SET) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(*ARC-MENU-ITEMS2*) 0 NIL)) EVAL) 0 NIL) #K(#(80 1 0 2 38 0 1 38 1 2 23 2 1 2 1 2 38 3 2 25 2 0 2 1 2) #(0) #(ARC :MENU SEND :REMOVE) 0 NIL) #K(#(80 1 2 0 1 2 38 2 3 38 3 4 25 4 0 4 3 4 2 1) #(0) #(NIL MENU ARC :SLOT-VALUE SEND) 0 NIL) #K(#(80 1 0 2 38 0 1 38 1 2 25 2 0 2 1 2) #(0) #(ARC :MENU SEND) 0 NIL) #K(#(80 1 3 0 1 2 2 38 3 4 21 0 1 4 4 23 4 5 1 3 21 0 2 4 5 23 5 5 1 1 21 0 4 3 5 11 0 2 38 6 4 23 7 4 2 3 4 49 6 4 0 49 2 2 0 11 0 3) #(0 15 25 35 38) #("Variable has a value. Redefine?" NIL *GRAPHICS-FONT-SIZE* *ASK-ON-REDEFINE* BOUNDP Y-OR-N-P *VARIABLES* ADJOIN) 0 NIL)