anchor.diff:  	 (init-pairs (mapcan λ`(,(kwd _) ,_1)
   			     hidden-slot-names
   			     original-slot-names))
  -	 (with-names (mapcar λ(symb name :- _) original-slot-names))
   
  -	 (c-inst (gensym "component")))
  -
  -    ;;
  +	 (system-init (symb :initialize- system-name))
  +	 (get-system (symb :get- system-name))
  +	 (pass (gensym "pass")))
       `(progn
          ;; the component itself
          (defstruct (,name (:include %component) (:conc-name nil))
  
positive.code: 	   ,@(mapcar λ`(defun ,(symb name :- _) (entity) (,_1 (%get-from entity)))
  		     original-slot-names hidden-slot-names)
  
  	   ,@(make-with-component with with-names c-inst hidden-slot-names)
  
  	   (defun ,has (entity)
  	     (has-item-in-%component-bag-at
  
negative.code: 	       (declare (ignore default type))
  	       (and (listp s) (symbolp name)))))
      (every #'valid-slot slot-descriptions)))
  