将命令行参数传递给Clozure common lisp

@echo off  

set lisp_filename=%~1  
set ccl_path=D:_play_lispbox-0.7ccl-1.6-windowsx86wx86cl.exe  

IF "%PROCESSOR_ARCHITECTURE%" == "x86" (  
    set fsl_filename=%lisp_filename:.lisp=.wx32fsl%  
) ELSE (  
    set ccl_path=%ccl_path:wx86cl=wx86cl64%  
    set fsl_filename=%lisp_filename:.lisp=.wx64fsl%  
)  

IF NOT EXIST %fsl_filename% goto compile  

for %%a in ("%lisp_filename%") do (  
    set lisp_timestamp=%%~ta  
)  

for %%a in ("%fsl_filename%") do (  
    set fsl_timestamp=%%~ta  
)  

IF "%fsl_timestamp%" LSS "%lisp_timestamp%" (  
    goto compile  
) ELSE (  
    goto run  
)  


:compile  
REM echo "compile"  
%ccl_path% --eval "(progn (compile-file "%lisp_filename:=\%") (ccl:quit))"  

:run  
REM echo "run"  
%ccl_path% --eval "(progn (load "%fsl_filename:=\%") (ccl:quit))"  

:end  

(defun main()
  (format t "~{~a~%~}" *command-line-argument-list*)
  0 ) (main)

D:_play_lispbox-0.7ccl-1.6-windowsx86wx86cl64.exe

--eval

(progn (load "D:\_play_\test.wx64fsl") (ccl:quit))

test.lisp a b c

test.lisp

a

b

c