如何更改SBCL的当前目录？

Question

更改CLisp当前工作目录非常容易：

>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 来完成此操作？

Answer 1

CL-USER> (sb-posix:chdir "/home/apugachev")
0
CL-USER> (sb-posix:getcwd)
"/home/apugachev"
CL-USER> (sb-posix:chdir "/tmp/")
0
CL-USER> (sb-posix:getcwd)
"/tmp"

Answer 2

(setf *default-pathname-defaults* #P"/New/Absolute/Path/")

Answer 3

现在，更好的答案是：使用 (uiop:chdir "some/path")。

或者您可以使用此功能临时更改目录：


（uiop：调用当前目录“某些/路径”
（拉姆达（）
（做该工作））


或者使用这个宏更方便：


（uiop：with-当前目录（“某些/路径”）
（做该工作））


Answer 4

有同样的问题。结果将

(setf *default-pathname-defaults* (truename "./subdir"))

加载路径更改为子目录。如果你不需要相对路径，那么

(setf *default-pathname-defaults* (truename "/absolute/path"))

Answer 5

现在我使用rlwrap来运行SBCL并解决这个问题

$"cat ~/bin/sb"
breakchars="(){}[],^%$#@\"\";:''|\\"

cd /media/E/www/qachina/db/doc/money/
exec rlwrap --remember -c -b "$breakchars"  -f "$HOME"/.sbcl_completions sbcl "$@"

然后运行sb。