anchor.diff:  ;;; Helper Macros
   
   (defmacro mc-with-pool-y/n ((memcache use-pool stream) &body body)
  -  (let ((conn (gensym "US-")))
  +  (let ((conn (gensym "MC-")))
       `(let (,conn)
          (if ,use-pool
   	   (setf ,conn (pooler:fetch-from+ (mc-pool ,memcache)))
  
positive.code:        do (format t "~%~A ~25T: ~A" (string-capitalize (substitute #\Space #\_ (first x))) (rest x)))))
  
  
  ;;;EOF
  
negative.code: ;;; "cas" is a check and set operation which means 'store this data but
  ;;;  only if no one else has updated since I last fetched it.'
  
  (defun mc-cas (key data cas-unique &key (memcache *memcache*) (timeout 0) (flags 0) (noreply nil) (external-format *mc-default-encoding*) (mc-use-pool *mc-use-pool*))
    "Check And Set Operation : Store this data buy only if no one else has updated since I last fetched it"
    (let ((unsigned-byte-data (if (equal (array-element-type data) '(UNSIGNED-BYTE 8))
  				data
  				(flex:string-to-octets data :external-format external-format))))
      (mc-store key unsigned-byte-data :memcache memcache :command :cas :timeout timeout :flags flags :noreply noreply :cas-unique cas-unique :mc-use-pool mc-use-pool)))
  
  
  
  