anchor.diff:        (pdef pdef-name pattern))
       pattern))
   
  +(pushnew 'pbind *patterns*)
  +
   (setf (documentation 'pbind 'type) (documentation 'pbind 'function))
   
   (defmethod print-object ((pbind pbind) stream)
  
positive.code:                     (max 2 (round (1+ (abs (- end start))))))))
      (pseries start (/ (- end start) (1- length)) length)))
  
  ;;; pgeom
  
  (defpattern pgeom (pattern)
  
negative.code: (defmacro pf (&body body)
    "Convenience macro for `pfunc' that automatically wraps BODY in a lambda."
    `(pfunc (lambda () ,@body)))
  
  (pushnew 'pf *patterns*)
  
  ;;; pr
  
  