anchor.diff:      (dolist (arg args)
         (destructuring-bind (var expr type-spec style) arg
   	(let ((declaration (translate-type-spec type-spec))
  -	      (deallocation (cleanup-alien type-spec expr t)))
  +	      (deallocation (cleanup-alien type-spec var t)))
   	  (cond
   	   ((member style '(:out :in-out))
   	    (alien-types `(* ,declaration))
  
positive.code: (defun find-applicable-type-method (type-spec fname &optional (error t))
    (flet ((find-superclass-method (class)
  	   (when class
  	     (dolist (super (cdr (pcl::class-precedence-list class)))
  	       (return-if (find-type-method super fname)))))
  	 (find-expanded-type-method (type-spec)
  
negative.code: 	 ))))
  
  (deftype-method cleanup-alien string (type-spec c-string &optional weak-ref)
    (when weak-ref
      (unreference-alien type-spec c-string)))
  
  