这个lisp怎么写？

fanny_6

我要用lisp加载一个dvb文件：

(vl-vbaload (findfile "***********")),*********是dvb的绝对路径

要加载的dvb所在文件夹和这个lisp所在文件夹相同

所以我想通过得到lisp的路径来得到dvb的绝对路径（dvb的文件名为a.dvb）

我找到了如下函数，可以得到lisp所在的目录，但是我对lisp一窍不通。

那个好心人帮忙拟一下这个lisp。谢谢了

dos_pwdir        dos_pwdir  (dos_pwdir [drive])  返回当前盘当前目录或指定盘  nil on error.
  Example
  (dos_pwdir)                "C:\\\\ ACAD\\\\
  (dos_pwdir "z:")        "Z:\\\\ PUBLIC\\\\"