LISP编译问题

自己写了一个LISP程序并将它编译了，可是目前想要修改这个文件，却无从下手。请问如何将编译的代码给还原？？？？

1, 修改未編譯前的Lisp File.
  
2, 用哪一種方法編譯呢?

用一个专用编译文本的编译器编译的。

可否將此Compiler和Program library供大家分享？

需看你编译成何种文件模式才能决定是否能还原，
LSP、VLX、FAS....。

我编译的文件模式还是.lsp模式。等原文件反编译回来再分享吧！

那简单,传上来,我帮你搞好

这是一个编译

;;;*****************
;;;ZLP晤秶
;;;*****************
(DEFUN C:FD()
(setvar "osmode" 0)
(setvar "ORTHOMODE" 0)
  
(setq e (car (entsel "恁寁剒猁溫湮腔昜极ㄩ")))
(setq pc (cdr (assoc 10 (entget e))))
(setq p (getpoint "\n恁寁溫湮綴妗极腔弇离ㄩ"))
(setq k (getreal "\n怀[$#63541]坫[$#63541]掀瞰ㄩ"))
(setq r (cdr (assoc 40 (entget e))))  
(command "copy" "cp")
(setq n 0)
(repeat 180
(command (polar pc (/(* 2 n pi)180) r))
(setq n (+ n 1))
)
  
(command "" "" pc p)
  
(setq n 0)
  
(setvar "pickbox" 5)
(command "zoom" "c" p (* 3 r))
  
(command "circle" p r)   
  
(setq ep (entlast))
(command "trim" ep "")
(repeat 180
(command (polar p (/ (* 2 n pi) 180) (* r 1.1)))
(command "F" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
(setq n (+ n 1))
(command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")
)
  
(command "" "zoom" "")
(command "scale" "c" (list (- (car p) r) (- (cadr p) r))
(list (+ (car p) r)(+ (cadr p) r)) "" p k)
(command "erase" ep "")
(command "redraw")
(princ)
)

楼上的朋友,请问是什么软件编过来的,可否发一个过来????谢了