( 
d -- 
flag )
      
      flag is true if and only if 
d is less than zero.
      
        
       
    Testing:
    
      T{                0. D0< -> <FALSE> }T 
      T{                1. D0< -> <FALSE> }T 
      T{  MIN-INT        0 D0< -> <FALSE> }T 
      T{        0  MAX-INT D0< -> <FALSE> }T 
      T{          MAX-2INT D0< -> <FALSE> }T 
      T{               -1. D0< -> <TRUE>  }T 
      T{          MIN-2INT D0< -> <TRUE>  }T