2008-05-16 22:17:38 +00:00
|
|
|
(in-package :common-lisp)
|
|
|
|
|
|
|
|
|
|
(defparameter *src-root* "/home/dan/src/my/gobot/")
|
|
|
|
|
|
2008-06-21 06:03:06 +00:00
|
|
|
(defparameter *src-files* '("packages" "macro-utils" "netpipe" "board" "liberty" "shape" "liberty-shape" "gobot" "gtp"))
|
2008-06-03 16:08:30 +00:00
|
|
|
|
|
|
|
|
(defun load-files ()
|
|
|
|
|
(loop for file in *src-files* do (load (concatenate 'string *src-root* file ".fasl"))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(load-files)
|
2008-05-26 19:13:18 +00:00
|
|
|
|
