只是要确认 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
一个简单的任务还要弄这样一串
这东西还有救吗？卦？