anchor.diff:                   ffun fn)
                   ffun)))))
   
  -(defmethod print-object ((o anonymous-fld-function) stream)
  -  (print-object (list* 'fld (anonymous-fld-function-object o) (anonymous-fld-function-field o) (anonymous-fld-function-args o)) stream))
  -
  +(defun anonymous-fld-function-printer (stream o)
  +  (let ((*print-case* :downcase))
  +    (print-object
  +     (list* 'fld 
  +            (anonymous-fld-function-object o)
  +            (anonymous-fld-function-field o)
  +            (anonymous-fld-function-args o)) stream)))
  +  
   (defmethod fld ((object (eql ?)) field &rest args)
     (make-anonymous-fld-function object field args (lambda (o) (apply #'fld o field args))))
   
  
positive.code:    (args :initarg :args :reader anonymous-fld-function-args))
    (:metaclass port:funcallable-standard-class))
  
  (set-pprint-dispatch 'function nil) 
  (defun make-anonymous-fld-function-key (object field args)
    (vector 'anonymous-fld-function object field args))
  
  
negative.code: ;;; File: field
  ;;; Description: 
  
  ;;; $Id: field.lisp,v 1.4 2007/10/22 19:17:50 amallavarapu Exp $
  ;;;
  (in-package b)
  
  