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: ;;; "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.'
  
  (defmacro 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)))
  
  
  
  
negative.code:   (defmacro mc-make-command (command)
      (let ((mc-function (intern (string-upcase (concatenate 'string "mc-" (symbol-name command))))))
        `(export ',mc-function)
        `(defun ,mc-function (key data &key (memcache *memcache*) (timeout 0) (flags 0) (noreply nil) (external-format *mc-default-encoding*) (mc-use-pool *mc-use-pool*))
  	 (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 ,command :timeout timeout :flags flags :noreply noreply :mc-use-pool mc-use-pool)))))
    )
  
  
  (mc-make-command :set)
  