~fitzsim/cl-starter-script

865d15ac723c150d8b6bcf6681b549359c06f4f7 — Thomas Fitzsimmons 1 year, 4 months ago f0b482b
Remove full path from verbose output
1 files changed, 1 insertions(+), 2 deletions(-)

M start.lisp
M start.lisp => start.lisp +1 -2
@@ 35,8 35,7 @@ SPDX-License-Identifier: Apache-2.0 |#
         (cl:format cl:t "Lisp:~14T~A~%" (cl:lisp-implementation-type))
         (cl:format cl:t "Lisp version: ~A~%" (cl:lisp-implementation-version))
         (cl:format cl:t "ASDF version: ~A~%" (asdf:asdf-version)))
        (cl:t (cl:format cl:t "Script full path:~22T~A~%" cl:*load-pathname*)
              (cl:format cl:t "Script argument 0:~22T~A~%" name)
        (cl:t (cl:format cl:t "Script argument 0:~22T~A~%" name)
              (cl:format cl:t "Command line options:")
              (cl:dolist (option options) (cl:print option)) (cl:terpri)
              (cl:format cl:t "Remainder:~22T~A~%" arguments))))