source: trunk/source/contrib/foy/source-comparison/source-comparison.lisp @ 12729

Last change on this file since 12729 was 12729, checked in by gfoy, 11 years ago

Mark Kantrowitz's source-compare.lisp with a GUI.

File size: 696 bytes
Line 
1
2;;; source-comparison.lisp
3
4(unless (member "SOURCE-COMPARISON" *modules* :test #'string-equal)
5 
6(eval-when (:load-toplevel :execute)
7  (defParameter *source-compare-directory*
8    (make-pathname :name nil :type nil :defaults (if *load-pathname* 
9                                                     *load-pathname*
10                                                     *loading-file-source-file*)))
11  (defParameter *source-compare-files* 
12    (list (merge-pathnames ";source-compare.lisp" *source-compare-directory*)
13          (merge-pathnames ";source-compare-dialog.lisp" *source-compare-directory*))))
14 
15(dolist (file *source-compare-files*)
16  (load file))
17
18(provide :source-comparison)
19
20)
Note: See TracBrowser for help on using the repository browser.