只是要確認 current working directory
結果找到這樣一串東西：
(defun get-cwd ()
"Get the current directory pathname in an implementation-portable way"
(let ((dir #+allegro (excl:current-directory)
#+clisp (#+lisp=cl ext:default-directory
#-lisp=cl lisp:default-directory)
#+(or cmu scl) (ext:default-directory)
#+sbcl (sb-unix:posix-getcwd/)
#+CCL (ccl:current-directory)
#+cormanlisp (ccl:get-current-directory)
#+lispworks (hcl:get-working-directory)
#+mcl (ccl:mac-default-directory)
#-(or allegro clisp cmu scl cormanlisp mcl sbcl lispworks CCL)
(truename ".")))
(if (stringp dir)
(parse-namestring dir)
dir)))
(原出處：https://github.com/inaimathi/cl-cwd/blob/master/cl-cwd.lisp)
Lisp 已經夠小眾了，每個實作品還用不同 API
一個簡單的任務還要弄這樣一串
這東西還有救嗎？卦？