anchor.diff:                                             &key (key nil)))
   
   
  -(defmethod make-sequence ((result-type sequence) size &key initial-element))
  +(define-method make-sequence ((result-type sequence) size &key initial-element)
  +  (declare (ignore result-type size initial-element))
  +  (not-implemented-yet  make-sequence))
   
   
   (dolist (name '(remove delete))
  
positive.code:              (check-type index `(integer 0 ,length))
               (return (sas-cursor-value cursor)))))
  
  (defmethod (setf elt) (value (self sequential-access-sequence) index)
    (check-type index (integer 0))
    (loop
       :for cursor = (sas-head self) :then (sas-cursor-next cursor)
  
negative.code: 
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; THE END ;;;;
  