anchor.diff:         ((getf (rest slot) :merge)
   	(setf 
   	 (rest slot) 
  -	 (rest (slot-definition-from-property class property (rest slot)))))))
  +	 (rest (slot-definition-from-property class property (first slot) (rest slot)))))))
     (delete-if #'(lambda (slot) (getf (rest slot) :ignore)) slots))
   
   
  
positive.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gobject.lisp,v 1.27 2005-01-03 16:40:45 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:     (if (eq type 'boolean) "-P" ""))))
  
  
  (defun slot-definition-from-property (class property &optional slot-name args)
    (with-slots (name flags value-type documentation) property
      (let* ((slot-name (or slot-name (default-slot-name name)))
  	   (slot-type (or (getf args :type) (type-from-number value-type) value-type))
  	   (accessor (default-slot-accessor class slot-name slot-type)))
        
  