[Openmcl-devel] Why cannot i use the shebang ?

[czsq888]

Great work!  thanks
在 Fri, 02 Aug 2013 09:26:04 +0800，Pascal J. Bourguignon  
<pjb at informatimago.com> 写道:

> #!/bin/sh
> #|
> exec ccl -e '(set-dispatch-macro-character #\# #\!
>                 (lambda (stream subchar arg)
>                   (declare (ignore subchar arg))
>                   (read-line stream)
>                   (values)))' \
>          -Q -n -l "$0" -- "$@"
> |#
> (setf *load-verbose* nil *load-print* nil)
> (load "~/quicklisp/setup.lisp" :verbose nil)
> (let ((*standard-output* (make-broadcast-stream))
>       (*trace-output* *standard-output*))
>   (ql:quickload :alexandria))
> (prin1 (alexandria:iota 20))
> (terpri)
> (defparameter *arguments* (subseq ccl:*command-line-argument-list*
>                                   (1+ (or (position "--"  
> ccl:*command-line-argument-list* :test 'string=) -1))))
> (prin1 *arguments*)
> (terpri)
> (ccl:quit 0)


-- 
使用 Opera 革命性的电子邮件客户程序: http://www.opera.com/mail/