anchor.diff:  
   (defun iota (count &optional (start 0) (step 1))
     "
  -RETURN:   A list containing the elements 
  +RETURN:   A list containing the elements
             (start start+step ... start+(count-1)*step)
  -          The start and step parameters default to 0 and 1, respectively. 
  +          The start and step parameters default to 0 and 1, respectively.
             This procedure takes its name from the APL primitive.
   EXAMPLE:  (iota 5) => (0 1 2 3 4)
             (iota 5 0 -0.1) => (0 -0.1 -0.2 -0.3 -0.4)
  
positive.code:     :collect (loop
                 :for index :from 0 :below card
                 :for item :in set
                 :nconc (if (logbitp index indicator) (list item) nil) 
                 :into result 
                 :finally (return result)) :into result
      :finally (return result)))
  
  
negative.code:                 (NSPLIT-LIST (LIST 'A 'B 'C) 1) --> (A) ; (B C)
                  (NSPLIT-LIST (LIST 'A 'B 'C) 2) --> (A B) ; (C)
                  (NSPLIT-LIST (LIST 'A 'B 'C) 3) --> (A B C) ; NIL
  POSITION:       POSITION OF THE SPLIT;
                  WHEN FROM-START AND 0<=POSITION<=(LENGTH LIST),
                  THAT'S THE LENGTH OF THE FIRST RESULT
  FROM-START:     THE DEFAULT, SPLIT COUNTING FROM THE START.
  