anchor.diff:                      (incf j))))))
   
   (defun intset:map (type function intset &key (desc? nil))
  -  "intset:MAP type function intset => result-object
  +  "intset:MAP type function intset => new-object
   The argument `type' must be a one of {intset list string vector}.
   If `type' is intset, then it returns a new intset. If keyword `desc?'
   is a non-NIL, it calls `function' with descending-ordered arguments,
  
positive.code: ;;;; Last modified: 2013-10-08 19:24:01 tkych
  
  ;; cl-intset/intset.lisp
  
  
negative.code: 
  (defun intset:nunion (intset1 intset2)
    "intset:NUNION intset1 intset2 => modified-intset1"
    ;; MEMO: 2013-10-07
    ;; nunion is permitted to modify any part, car or cdr, of the list
    ;; structure of list-1 or list-2.
    ;; see. CLHS, function nunion
  