2008-05-05 15:00:06 +00:00
|
|
|
(in-package :common-lisp)
|
|
|
|
|
2008-05-07 09:07:47 +00:00
|
|
|
;(setf *invoke-debugger-hook*
|
|
|
|
; (lambda (condition hook)
|
|
|
|
; (declare (ignore hook))
|
|
|
|
;; Uncomment to get backtraces on errors
|
|
|
|
;; (sb-debug:backtrace 20)
|
|
|
|
; (format *error-output* "Error: ~A~%" condition)
|
|
|
|
; (quit)))
|
|
|
|
|
|
|
|
|
2008-05-05 15:00:06 +00:00
|
|
|
(defparameter *src-root* "/home/dan/src/my/gobot/")
|
|
|
|
|
2008-06-03 16:08:30 +00:00
|
|
|
|
|
|
|
(defparameter *src-files* '("packages" "macro-utils" "netpipe" "board" "liberty" "shape" "gobot" "gtp" "fink"))
|
2008-05-26 19:13:18 +00:00
|
|
|
(defun recompile ()
|
2008-06-03 16:08:30 +00:00
|
|
|
(loop for file in *src-files* do (compile-file (concatenate 'string *src-root* file ".lisp"))))
|
2008-05-26 19:13:18 +00:00
|
|
|
|
|
|
|
(recompile)
|
2008-05-10 09:02:08 +00:00
|
|
|
|
2008-05-29 02:40:25 +00:00
|
|
|
(load (concatenate 'string *src-root* "fink.fasl"))
|