Làm thế nào để thay đổi thư mục hiện tại của SBCL?

Question

Đó là rất dễ dàng để thay đổi thư mục làm việc hiện tại CLISP của:

>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") 

Tuy nhiên, có vẻ như không có cd chức năng tương tự trong SBCL. Làm thế nào điều này có thể được thực hiện với SBCL?

Answer 1

Bây giờ tôi sử dụng rlwrap để chạy SBCL và giải quyết vấn đề này

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

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

sau đó chạy sb.

Answer 2

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 3

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

Answer 4

Đã cùng một câu hỏi. Biến ra

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

thay đổi đường dẫn tải xuống thành tiểu mục. Nếu bạn không muốn đường dẫn tương đối, thì

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

Answer 5

Ngay bây giờ, câu trả lời tốt hơn là: sử dụng (uiop:chdir "some/path").

Hoặc bạn có thể sử dụng chức năng này để thay đổi thư mục tạm thời:

(uiop:call-with-current-directory "some/path" (lambda() (do-the-job))

Hoặc macro này cho cách thuận tiện hơn:

(uiop:with-current-directory ("some/path") (do-the-job))