   (01:46:10) (146.563 -11.063)
\i (01:46:14) skill list1 
   (01:46:14) (146.563 -11.0198)
\i (01:46:21) skill clineStart 
   (01:46:21) (146.563 -11.0198)
\i (01:46:27) skill list2 
   (01:46:27) (146.563 -11.063)
\i (01:46:32) skill clineEnd 
   (01:46:32) (146.563 -11.063)
\i (01:46:40) skill list2==clineEnd 
   (01:46:40) nil
\i (01:47:02) skill car(list2)==car(clineEnd) 
   (01:47:02) t
\i (01:47:15) skill cadr(list2)==cadr(clineEnd) 
   (01:47:15) nil
\i (01:47:21) skill cadr(list2) 
   (01:47:21) -11.063
\i (01:47:35) skill floatp(cadr(list2)) 
   (01:47:35) t
\i (01:47:42) skill cadr(clineEnd) 
   (01:47:42) -11.063
\i (01:47:51) skill floatp(cadr(clineEnd)) 
   (01:47:51) t
\i (01:48:18) skill list1==clineStart 
   (01:48:18) t
\i (01:48:37) skill list2==clineEnd 
   (01:48:37) nil
\i (01:48:44) skill type(list1) 
   (01:48:44) list
\i (01:49:00) skill type(list2) 
   (01:49:00) list
\i (01:49:08) skill type(clineStart) 
   (01:49:08) list
\i (01:49:13) skill type(clineEnd) 
   (01:49:13) list
\i (01:49:19) skill type(car(list1)) 
   (01:49:19) flonum
\i (01:49:32) skill type(cadr(list1)) 
   (01:49:32) flonum
\i (01:49:41) skill type(car(list2)) 
   (01:49:41) flonum
\i (01:49:49) skill type(cadr(list2)) 
   (01:49:49) flonum
\i (01:50:04) skill typ(car(clineStart)) 
   (01:50:04) *Error* eval: undefined function - typ
   (01:50:04) ERROR
\i (01:50:17) skill type(car(clineStart)) 
   (01:50:17) flonum
\i (01:50:26) skill type(cadr(clineStart)) 
   (01:50:26) flonum
\i (01:50:38) skill type(car(clineEnd)) 
   (01:50:38) flonum
\i (01:50:46) skill type(cadr(clineEnd)) 
   (01:50:46) flonum
\i (01:51:09) skill cadr(list2)>cadr(clineEnd) 
   (01:51:09) nil
\i (01:51:21) skill cadr(list2)<cadr(clineEnd) 
   (01:51:21) t
\i (01:51:43) skill fix(cadr(list)) 
   (01:51:43) *Error* eval: unbound variable - list
   (01:51:43) ERROR
\i (01:51:57) skill round(cadr(list2)) 
   (01:51:57) -11
\i (01:52:11) skill 'help round' 
   (01:52:11) Loading skillDev.cxt 
   (01:52:11) Consulting cdsFinder database (may take a while) ...
   (01:52:11)  
   (01:52:11) round( 
   (01:52:11) n_arg 
   (01:52:11) ) 
   (01:52:11) =>  x_result
   (01:52:11)  
   (01:52:11) Rounds a floating-point number to its closest integer value.
   (01:52:11) t
\i (01:52:30) skill 'cadr(list2) * 10000' 
   (01:52:30) -110630.0
\i (01:52:45) skill 'cadr(clineEnd) * 10000' 
   (01:52:45) -110630.0

 