projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e927044
)
r11128: add init file processing
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 10 Sep 2006 17:42:24 +0000
(17:42 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 10 Sep 2006 17:42:24 +0000
(17:42 +0000)
umlisp.asd
patch
|
blob
|
history
diff --git
a/umlisp.asd
b/umlisp.asd
index d3439e036ecc39b1174766c0e7bd3997f7646f42..bc97895af25f5152d42fd18066799a1c63848518 100644
(file)
--- a/
umlisp.asd
+++ b/
umlisp.asd
@@
-19,6
+19,11
@@
(defpackage #:umlisp-system (:use #:asdf #:cl))
(in-package #:umlisp-system)
(defpackage #:umlisp-system (:use #:asdf #:cl))
(in-package #:umlisp-system)
+;; need to load uffi for below perform :after method
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (unless (find-package 'uffi)
+ (asdf:operate 'asdf:load-op 'uffi)))
+
(defsystem umlisp
:components
((:file "package")
(defsystem umlisp
:components
((:file "package")
@@
-38,3
+43,17
@@
(defmethod perform ((o test-op) (c (eql (find-system 'umlisp))))
(operate 'load-op 'umlisp-tests)
(operate 'test-op 'umlisp-tests :force t))
(defmethod perform ((o test-op) (c (eql (find-system 'umlisp))))
(operate 'load-op 'umlisp-tests)
(operate 'test-op 'umlisp-tests :force t))
+
+(defmethod perform :after ((o load-op) (c (eql (find-system 'umlisp))))
+ (let* ((init-var (uffi:getenv "UMLISPRC"))
+ (init-file (or (when init-var (probe-file init-var))
+ (probe-file
+ (merge-pathnames
+ (make-pathname :name ".umlisprc")
+ (user-homedir-pathname)))
+ #+(or mswin windows win32)
+ (probe-file "c:\\etc\\umlisp-init.lisp"))))
+ (when init-file
+ (format t "loading umlisp init file ~A~%" init-file)
+ (load init-file))))
+