56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
(else (car argv))))
(fullpath (realpath this-script)))
fullpath))
(define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
(define *common:this-exe-dir* (pathname-directory *common:this-exe-fullpath*))
(define *common:this-exe-name* (pathname-strip-directory *common:this-exe-fullpath*))
(let* ((libpath (conc *common:this-exe-dir* "/../../eggs/lib/chicken/7")))
|
>
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
(else (car argv))))
(fullpath (realpath this-script)))
fullpath))
(define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
(define *common:this-exe-dir* (pathname-directory *common:this-exe-fullpath*))
(define *common:this-exe-name* (pathname-strip-directory *common:this-exe-fullpath*))
(let* ((libpath-number (car (reverse (string-split (repository-path) "/"))))
(libpath (conc *common:this-exe-dir* "/../../eggs/lib/chicken/" libpath-number)))
(if (and (not (get-environment-variable "CHICKEN_REPOSITORY"))
(directory-exists? libpath))
(repository-path libpath)))
;;(declare (uses mtconfigf))
|