source: trunk/source/contrib/foy/list-definitions/list-definitions.lisp @ 12746

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

Renamed load-list-definitions.lisp, list-definitions.lisp, so that (require :list-definitions) will work

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