anchor.diff:  		 `((defclass ,payload-type ()
   		     ,(mapcar λ`(,_ :initarg ,(kwd _)
   				    :initform ,(second _1))
  -			      hidden-slot-names
  +			      slot-names
   			      slot-descriptions))
   		   ,@(mapcar λ`(defun ,_ (x)
   				 (slot-value
   				  (slot-value x ',payload)
   				  ',_))
  -			     hidden-slot-names)
  +			     slot-names)
   		   ,@(mapcar λ`(defun (setf ,_) (v x)
   				 (setf (slot-value
   					(slot-value x ',payload)
   					',_)
   				       v))
  -			     hidden-slot-names)
  +			     slot-names)
   		   (defun ,init (&key ,@non-opt-init-args)
   		     (,non-optimal-init
   		      ,(kwd payload) (make-instance
  
positive.code: 
  (defvar debug-id-source -1)
  
  (defun hidden-name (x)
    (intern (format nil "~a-~a" (package-name (symbol-package x)) (symbol-name x))
  	  (find-package :hasty-hidden)))
  
  (defmacro def-component (name-and-options depends-on (&rest slot-descriptions)
  
negative.code: 				   slot-names))
  		 (error ,(format nil "~%~s:~%Invalid slot names. Must be a list of one or more of the following:~%~s~%You gave~~s" with original-slot-names)
  			slot-names))
  	       (let ((inst (gensym "inst"))
  		     (lookup ',(mapcar #'cons original-slot-names slot-names)))
  		 `(let* ((,inst (get-item-from-%component-bag-at
  				    (entity-components ,entity) ,,id)))
  		    (declare (ignorable ,inst))
  		    (symbol-macrolet ,(mapcar λ`(,_ (,(cdr (assoc _ lookup))
  						      ,inst))
  					      slot-names)
  		      ,@body))))
  
  	     ,@(mapcar λ`(defun ,_ (entity)
  			   (,_1 (get-item-from-%component-bag-at
  				 (entity-components entity) ,id)))
  		       getter-names
  		       slot-names)
  
  	     ,@(mapcar λ`(defun (setf ,_) (value entity)
  			   (setf (,_1 (get-item-from-%component-bag-at
  				       (entity-components entity) ,id))
  				 value))
  		       getter-names
  		       slot-names)
  
  	     (defun ,has (entity)
  	       (has-item-in-%component-bag-at
  		(entity-components entity) ,id))
  
  	     (defun ,add (entity-to-add-to &key ,@add-args)
  	       (let ((component (,init ,@add-pairs)))
  		 (add-item-to-%component-bag-at
  		  (entity-components entity-to-add-to) component ,id))
  	       (unless-release
  