anchor.diff:  ;;; File: field
   ;;; Description: 
   
  -;;; $Id: field.lisp,v 1.3 2007/10/22 18:50:57 amallavarapu Exp $
  +;;; $Id: field.lisp,v 1.4 2007/10/22 19:17:50 amallavarapu Exp $
   ;;;
   (in-package b)
   
  
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:                  ffun fn)
                  ffun)))))
  
  (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))))
  
  