anchor.diff:        #',name))
   
   (defmacro defslot (slot class)
  -  (let ((setter-name (setter-name (symbol-name slot)))
  -        (slot-name-form (string-to-form (symbol-name slot))))
  +  (let* ((slot-name (symbol-name slot))
  +         (accessor-name (string-concat "." slot-name))
  +         (setter-name (setter-name accessor-name))
  +         (slot-name-form (string-to-form slot-name)))
       #`(progn
  -        (defmethod ,slot ((obj ,class))
  +        (defmethod ,(string-to-symbol accessor-name) ((obj ,class))
             (slot-value obj ,slot-name-form))
           (defmethod ,(string-to-symbol setter-name) ((obj ,class) value)
             (set-slot-value obj ,slot-name-form value)))))
  
positive.code:   iter)
  
  (defclass list-iter (iter)
    (.list
     .i))
  
  (defun list-iter ((list list))
    (let ((iter (make list-iter)))
  
negative.code: (defclass control-error (error))
  
  (defclass restart (condition)
    (associated-condition))
  
  ;;; Specific restarts
  (defclass abort (restart))
  (defclass continue (restart))
  (defclass use-value (restart)
    (value))
  (defclass store-value (restart)
    (value))
  
  (defgeneric default-handler (condition))
  (defmethod default-handler ((c condition))
  