[問卦] 我說啊，那個 Lisp

只是要確認 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
一個簡單的任務還要弄這樣一串

這東西還有救嗎？卦？

--

這是 Common Lisp

這啥？

不知道 Common Lisp 有沒有這個指令

歌不錯

對，該停下來了。所以上來發費紋

可以編譯成執行檔還是有差。要不然可以用某些 Scheme 實作品