更改CLisp的当前工作目录非常容易:使用函数cd
即可。
>cat ~/.clisprc.lisp
;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
(cd "/media/E/www/qachina/db/doc/money")
(load "money")
然而,在SBCL中似乎没有类似于cd
的函数。如何在SBCL中实现这个功能?
(load ...)
时,这似乎并不会改变sbcl查找目录的位置。 - daveloyall(load (concatenate 'string (sb-posix:getcwd) "/" "my-foo.lisp"))
。虽然有点笨拙,但相对不太容易出错。 - Reb.Cabin