Browse code
Now *ops-code-directory* stores the source code directory.
Yang Xiaofeng authored on 25/03/2013 13:29:07Showing 1 changed files
| ... | ... |
@@ -43,8 +43,9 @@ |
| 43 | 43 |
;;; Source Directory *************** |
| 44 | 44 |
;;; ******************************** |
| 45 | 45 |
|
| 46 |
-(defparameter *ops-code-directory* *load-pathname* |
|
| 47 |
- "Directory where OPS5 source code is stored.") |
|
| 46 |
+(defparameter *ops-code-directory* #.(or *compile-file-pathname* |
|
| 47 |
+ *load-pathname*) |
|
| 48 |
+ "Directory where OPS5 source code is stored.") |
|
| 48 | 49 |
|
| 49 | 50 |
(defun ops-pathname (filename) |
| 50 | 51 |
(make-pathname :name filename :type nil :defaults *ops-code-directory*)) |