anchor.diff:  		(coerce 0 (type-of x)))
   	       (t '*)))))
   
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Descriptors for rational numbers.
   ;;;
  
positive.code: 		most-positive-fixnum)
  	       (t '*)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Combine rational descriptors using OR.
  
  
negative.code: 	     nil
  	     descriptor1))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; NULL descriptor.
  ;;;
  