compact-duplicates.cl

(defun compact-duplicates (vector cmp)
  (prog ((i 1)
         (j 1)
         (N (length vector))
         (x (aref vector 0)))

        loop
        (if (not (funcall cmp (aref vector i) x))
            (progn
              (setf x (aref vector i)) 
              (setf (aref vector j) x)
              (incf j)
              ))
        (incf i)

        (if (< i N)
            (go loop)    
            )
        (return (subseq vector 0 j))
        ))