;(deftest test-data ()
;  (let ((tmp (make-data1)))    
;    (check
;      (samep tmp "
; #(TABLE
; :NAME WEATHER
; :COLUMNS #S(COUNTED
;             :ALL (#S(HEADER
;                      :NAME FORECAST
;                      :NUMERICP NIL
;                      :CLASSP NIL
;                      :IGNOREP NIL)
;                   #S(HEADER
;                      :NAME TEMP
;                      :NUMERICP NIL
;                      :CLASSP NIL
;                      :IGNOREP NIL)
;                   #S(HEADER
;                      :NAME HUMIDTY
;                      :NUMERICP NIL
;                      :CLASSP NIL
;                      :IGNOREP NIL)
;                   #S(HEADER
;                      :NAME $WINDY
;                      :NUMERICP T
;                      :CLASSP NIL
;                      :IGNOREP NIL)
;                   #S(HEADER
;                      :NAME PLAY
;                      :NUMERICP NIL
;                      :CLASSP T
;                      :IGNOREP NIL))
;             :N 5
;             :SORTED NIL)
;  :CLASS 4
;  :CAUTIONS#(CAUTION :ALL ((SUNNY HOT HIGH YES) wrong size) :PATIENCE 19)
;  :ALL #S(COUNTED
;          :ALL (#S(EG :FEATURES (SUNNY HOT HIGH TRUE 2) :CLASS 2)
;                #S(EG :FEATURES (SUNNY HOT HIGH FALSE 1) :CLASS 1))
;          :N 2
;          :SORTED NIL) )"))))