PTT評價

[問卦] 我說啊,那個 Lisp

看板Gossiping標題[問卦] 我說啊,那個 Lisp作者
Neisseria
(Neisseria)
時間推噓 4 推:5 噓:1 →:3

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

這東西還有救嗎?卦?

--

※ PTT 留言評論
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.105.246.64 (臺灣)
PTT 網址

johnhmj 03/13 23:04難寫 AutoCAD

這是 Common Lisp

hatephubbing 03/13 23:05LiSA 啦

這啥?

SydLrio 03/13 23:05goto

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

awesomeSS66 03/13 23:06說中文

iLeyaSin365 03/13 23:07https://youtu.be/HM1Zb3xmvMc

歌不錯

youtrue 03/13 23:11這麼晚了還在想 小心失眠

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

gigongwen 03/13 23:20((())()(())

ekgs 03/13 23:44搞成這樣不如一個pwd

junyussh 03/14 01:26我以為現在都寫 racket 了

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

※ 編輯: Neisseria (112.105.246.64 臺灣), 03/14/2022 07:24:33