anchor.diff:  ;run these tests after the first time you compile this file on a new system.
   
   ;The companion file "XPDOC.TXT" contains brief documentation.
  - 
   
   (shadow '(format formatter))
  
positive.code:   (sys.gray:stream-line-length s))
  (defun output-position (&optional (s *standard-output*))
    (sys.gray:stream-line-column s))
  
  
  
  
negative.code: 	((eq (car spec) 'satisfies)
  	 `(funcall (function ,(cadr spec)) x))
  	(T `(typep x ',(copy-tree spec)))))
  
  ;               ---- XP STRUCTURES, AND THE INTERNAL ALGORITHM ----
  
  