;; Macintosh HD:lisp:qbc:data:quantity1 
(PROG1 (SETF QUANTITY669 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY669 'NAME) "Revenue") (SETF (SLOT-VALUE QUANTITY669 'SYNONYMS) (LIST 'REVENUES)) (SETF (SLOT-VALUE QUANTITY669 'IMPORTANCE) 'A) (SETF (SLOT-VALUE QUANTITY669 'DIMENSION) (LIST 'DOLLARS)) (SETF (SLOT-VALUE QUANTITY669 'FORMULA) (LIST 'PRICE '* 'VOLUME)) (SETF (SLOT-VALUE QUANTITY669 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY669 'DATE-OPEN) (LIST->DATE '(8 17 1994))) (SETF (SLOT-VALUE QUANTITY669 'SYMBOL) 'QUANTITY669))
(INSERT-ITEM QUANTITY QUANTITY669)
(DEFVAR QUANTITY668)
(PROG1 (SETF QUANTITY668 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY668 'NAME) "Share Price") (SETF (SLOT-VALUE QUANTITY668 'SYNONYMS) (LIST 'PPS 'SHARE-PRICE)) (SETF (SLOT-VALUE QUANTITY668 'IMPORTANCE) 'B) (SETF (SLOT-VALUE QUANTITY668 'NORM) 'HIGH) (SETF (SLOT-VALUE QUANTITY668 'DIMENSION) (LIST 'DOLLARS)) (SETF (SLOT-VALUE QUANTITY668 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY668 'DATE-OPEN) (LIST->DATE '(8 18 1994))) (SETF (SLOT-VALUE QUANTITY668 'SYMBOL) 'QUANTITY668))
(INSERT-ITEM QUANTITY QUANTITY668)
(DEFVAR QUANTITY101)
(PROG1 (SETF QUANTITY101 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY101 'NAME) "Short-term-debt") (SETF (SLOT-VALUE QUANTITY101 'IMPORTANCE) 'B) (SETF (SLOT-VALUE QUANTITY101 'NORM) 'LOW) (SETF (SLOT-VALUE QUANTITY101 'DIMENSION) (LIST 'DOLLARS)) (SETF (SLOT-VALUE QUANTITY101 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY101 'DATE-OPEN) (LIST->DATE '(6 1 1996))) (SETF (SLOT-VALUE QUANTITY101 'SYMBOL) 'QUANTITY101))
(INSERT-ITEM QUANTITY QUANTITY101)
(DEFVAR QUANTITY804)
(PROG1 (SETF QUANTITY804 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY804 'NAME) "Sodium") (SETF (SLOT-VALUE QUANTITY804 'IMPORTANCE) 'C) (SETF (SLOT-VALUE QUANTITY804 'NORM) 'LOW) (SETF (SLOT-VALUE QUANTITY804 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY804 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE QUANTITY804 'SYMBOL) 'QUANTITY804))
(INSERT-ITEM QUANTITY QUANTITY804)
(DEFVAR QUANTITY1114)
(PROG1 (SETF QUANTITY1114 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY1114 'NAME) "Standby Letters of Credit") (SETF (SLOT-VALUE QUANTITY1114 'SYNONYMS) (LIST 'SLOC)) (SETF (SLOT-VALUE QUANTITY1114 'IMPORTANCE) 'C) (SETF (SLOT-VALUE QUANTITY1114 'NORM) 'HIGH) (SETF (SLOT-VALUE QUANTITY1114 'DIMENSION) (LIST 'DOLLARS)) (SETF (SLOT-VALUE QUANTITY1114 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY1114 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE QUANTITY1114 'SYMBOL) 'QUANTITY1114))
(INSERT-ITEM QUANTITY QUANTITY1114)
(DEFVAR QUANTITY1539)
(PROG1 (SETF QUANTITY1539 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY1539 'NAME) "Temperature") (SETF (SLOT-VALUE QUANTITY1539 'IMPORTANCE) 'C) (SETF (SLOT-VALUE QUANTITY1539 'NORM) 'HIGH) (SETF (SLOT-VALUE QUANTITY1539 'DIMENSION) (LIST 'DEGREES)) (SETF (SLOT-VALUE QUANTITY1539 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY1539 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE QUANTITY1539 'SYMBOL) 'QUANTITY1539))
(INSERT-ITEM QUANTITY QUANTITY1539)
(DEFVAR QUANTITY644)
(PROG1 (SETF QUANTITY644 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY644 'NAME) "Volume") (SETF (SLOT-VALUE QUANTITY644 'IMPORTANCE) 'B) (SETF (SLOT-VALUE QUANTITY644 'NORM) 'HIGH) (SETF (SLOT-VALUE QUANTITY644 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY644 'DATE-OPEN) (LIST->DATE '(8 17 1994))) (SETF (SLOT-VALUE QUANTITY644 'SYMBOL) 'QUANTITY644))
(INSERT-ITEM QUANTITY QUANTITY644)
(DEFVAR QUANTITY854)
(PROG1 (SETF QUANTITY854 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY854 'NAME) "Weight") (SETF (SLOT-VALUE QUANTITY854 'IMPORTANCE) 'B) (SETF (SLOT-VALUE QUANTITY854 'NORM) 'LOW) (SETF (SLOT-VALUE QUANTITY854 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY854 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE QUANTITY854 'SYMBOL) 'QUANTITY854))
(INSERT-ITEM QUANTITY QUANTITY854)
(DEFVAR QUANTITY102)
(PROG1 (SETF QUANTITY102 (MAKE-INSTANCE 'QUANTITY)) (SETF (SLOT-VALUE QUANTITY102 'NAME) "long-term-debt") (SETF (SLOT-VALUE QUANTITY102 'IMPORTANCE) 'B) (SETF (SLOT-VALUE QUANTITY102 'NORM) 'HIGH) (SETF (SLOT-VALUE QUANTITY102 'DIMENSION) (LIST 'DOLLARS)) (SETF (SLOT-VALUE QUANTITY102 'STATUS) "Active") (SETF (SLOT-VALUE QUANTITY102 'DATE-OPEN) (LIST->DATE '(6 1 1996))) (SETF (SLOT-VALUE QUANTITY102 'SYMBOL) 'QUANTITY102))
(INSERT-ITEM QUANTITY QUANTITY102)