anchor.diff:  	 ))))
   
   (deftype-method cleanup-alien string (type-spec c-string &optional weak-ref)
  -  (declare (ignore type-spec))
     (when weak-ref
       (unreference-alien type-spec c-string)))
   
  
positive.code:     (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)))
  	  (cond
  	   ((member style '(:out :in-out))
  	    (alien-types `(* ,declaration))
  
negative.code: (defun find-applicable-type-method (type-spec fname &optional (error t))
    (flet ((find-superclass-method (class)
  	   (when class
    	     (unless (class-finalized-p class)		   
  	       (finalize-inheritance class))
  	     (dolist (super (cdr (pcl::class-precedence-list class)))
  	       (return-if (find-type-method super fname)))))
  	 (find-expanded-type-method (type-spec)
  