added function #'compute-raw-diff and exported some symbols

Author: archimag

diff.lisp

@@ -241,6 +241,9 @@
           (incf modified-start (snake-length snake))
           (pop lcs)))))
 
+(defun compute-raw-diff (origin modified)
+  (convert-lcs-to-diff (compute-lcs origin modified)))
+
 
 ;;; producing diffs in "unified diff" format
 

package.lisp

@@ -25,4 +25,12 @@
            #:window-chunks
 
            #:chunk-kind
-           #:chunk-lines))
+           #:chunk-lines
+
+           #:compute-raw-diff
+           #:common-diff-region
+           #:modified-diff-region
+           #:original-start
+           #:original-length
+           #:modified-start
+           #:modified-length))