एसबीसीएल की वर्तमान निर्देशिका कैसे बदलें?

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

हालांकि, ऐसा लगता है कि एसबीसीएल में कोई cd समान कार्य नहीं है। एसबीसीएल के साथ यह कैसे किया जा सकता है?

Answer 1

अब मैं 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 चलाते हैं।

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

एक ही सवाल था।

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

उपदिर के लिए लोड पथ बदलता है। आप रिश्तेदार पथ, तो

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

Answer 5

अभी नहीं करना चाहते हैं, बेहतर जवाब है: (uiop:chdir "some/path") का उपयोग करें।

या आप निर्देशिका अस्थायी रूप से परिवर्तित करने के लिए इस सुविधा का उपयोग कर सकते हैं:

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

या अधिक सुविधाजनक तरीका के लिए इस मैक्रो:

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