anchor.diff:  ;        (remove nil (list (funcall func (elt seq (1+ spos)))
   ;              (do-and-search-more (subseq seq (1+ epos)) func start end :key key :test test)))))))
   ;(do-and-search-more "a * (b) + (c) + d + (e) - (f)" #'identity #\( #\) :test #'char=);}}}
  -
  -;;; SEQLAST1 function
  -;;; This function behaves same as LAST1 but works for any sequences.
  -(defun seqlast1 (seq) (elt seq (1- (length seq))))
  -
  -;;; SEQBUTLAST function
  -;;; This function behaves same as BUTLAST but works for any sequences.
  -(defun seqbutlast (seq &optional (n 1)) (subseq seq 0 (- (length seq) n)))
  -
  -;;; SEQLAST function
  -(defun seqlast (seq &optional (n 1))
  -  (subseq seq (- (length seq) n)))
  -
  -;;; DROP function;{{{
  -;;; This function behaves same as NTHCDR but works for any sequences.
  -;;; In programming language Haskell, this function is called "drop"
  -;;; But if you don't specify "n", then it becomes same to "tail" in Haskell.;}}}
  -(eval-when (:compile-toplevel :load-toplevel :execute)
  -  (defun drop (seq &optional (n 1)) (subseq seq n)))
  -
  -;;; TAKE function
  -(eval-when (:compile-toplevel :load-toplevel :execute)
  -  (defun take (seq &optional (n 1)) (subseq seq 0 n)))
   
   ;;; POSITION-LIST function;{{{
   ;;; This function makes the list constructs from the position of "x" in "lst".
  
positive.code:      a string designator and CHIKU.UTIL:ITOA in the case of a number."
      (cond ((numberp strxdsg) (itoa strxdsg))
            (t (string strxdsg))))
  
    (defun gensym[] (&rest strxdsg-lst)
      " GENSYM[] returns an uninterned symbol which is generated by
  
negative.code:      String designators are stringified by CL:STRING function while a
       number is stringified by CHIKU.UTIL:ITOA."
      (gensym (apply #'concat `("[" ,@(mapcar #'xstringify strxdsg-lst) "]")))))
  
  (defun seqlast1 (seq)
    "This function behaves same as CL:LAST1 but works for any sequences."
    (elt seq (1- (length seq))))
  
  
  (defun seqbutlast (seq &optional (n 1))
    "This function behaves same as CL:BUTLAST but works for any sequences."
    (subseq seq 0 (- (length seq) n)))
  
  (defun seqlast (seq &optional (n 1))
    "A variation of CL:LAST works for any sequences."
    (subseq seq (- (length seq) n)))
  
  ;;; WITH-GENSYMS macro
  ;;; I took it from "Practical Common Lisp".
  