;; | ----------------------------------------------------------------------------
;; | MI_IsItDottedPair
;; | ----------------------------------------------------------------------------
;; | Function : Check if argument is a dotted pair
;; | Arguments:
;; | Returns  : T if it is a dotted pair else nil
;; | Updated  : January 26, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_IsItDottedPair( x ) 

	(and (listp x) (cdr x) (atom (cdr x)))
)