anchor.diff:  	   (<= low object))
          (or (eq high '*)
   	   (<= object high))))
  +
  +(defmethod presentation-type-of ((object integer))
  +  'integer)
  +
  +(define-presentation-method present (object (type integer) stream
  +				     (view textual-view)
  +				     &key acceptably for-context-type)
  +  (declare (ignore acceptably for-context-type))
  +  (let ((*print-base* base)
  +	(*print-radix* radix))
  +    (princ object stream)))
   
   (define-presentation-type ratio (&optional low high)
     :options ((base 10) radix)
  
positive.code: 			(return-from %presentation-typep nil))))))
    t)
  
  (define-presentation-type-abbreviation token-or-type (tokens type)
    `(or (member-alist ,tokens) ,type))
  
  
negative.code:        (or (eq high '*)
  	   (<= object high))))
  
  (defmethod presentation-type-of ((object rational))
    'rational)
  
  (define-presentation-method present (object (type rational) stream
  				     (view textual-view)
  				     &key acceptably for-context-type)
    (declare (ignore acceptably for-context-type))
    (let ((*print-base* base)
  	(*print-radix* radix))
      (princ object stream)))
  
  (define-presentation-type integer (&optional low high)
    :options ((base 10) radix)
    :inherit-from `((rational ,low ,high) :base ,base :radix ,radix))
  