source: trunk/source/contrib/foy/window-parking-cm/window-parking-cm.lisp @ 12783

Last change on this file since 12783 was 12783, checked in by gfoy, 10 years ago

New tool: window-parking-cm

File size: 728 bytes
Line 
1
2;;; cl-documentation.lisp
3
4(in-package :common-lisp-user)
5
6(unless (member "WINDOW-PARKING-CM" *modules* :test #'string-equal)
7 
8(eval-when (:load-toplevel :execute)
9  (defParameter *window-parking-directory*
10    (make-pathname :name nil :type nil :defaults (if *load-pathname* 
11                                                     *load-pathname*
12                                                     *loading-file-source-file*)))
13  (defParameter *window-parking-files* 
14    (list (merge-pathnames ";window-parking.lisp" *window-parking-directory*)
15          (merge-pathnames ";window-parking-dialogs.lisp" *window-parking-directory*))))
16 
17(dolist (file *window-parking-files*)
18  (load file))
19
20(provide :window-parking-cm)
21
22)
Note: See TracBrowser for help on using the repository browser.