Commit 263c5e3f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

4.0.1.4: fix failures on allegro, lispworks: hush warnings, pass command-line properly.

LispWorks requires ASDF 3.1.0.80 for command-line passing to dumped images.
parent 1de9db84
......@@ -9,22 +9,22 @@ t_env () {
[ -n "$BEGIN_TESTS" ] && return
export DOH=doh
TCURR=
BEGIN_TESTS='(in-package :cl-user)(defvar *f* ())(defvar *err* 0)(defvar *begin* 0)(defvar *n*)
BEGIN_TESTS='(in-package :cl-user)
;;(eval-when (:compile-toplevel) (format *trace-output* "~&Prologue compiled~%"))
;;(eval-when (:load-toplevel) (format *trace-output* "~&Prologue loaded~%"))
;;(eval-when (:execute) (format *trace-output* "~&Prologue executed~%"))
(defmacro tst (x &body body) `(progn (defvar *f* ()) (defparameter *n* ,x) (push (quote(progn ,@body)) *f*)))
(defmacro tst (x &body body) `(eval-when (:compile-toplevel :load-toplevel :execute)(handler-bind ((warning (function muffle-warning))) (eval (quote (progn (defvar *f* ()) (defparameter *n* ,x) (push (quote(progn ,@body)) *f*)))))))
(defparameter *f* ())(defvar *n*)
(defun tt () (dolist (x (reverse *f*)) (eval x)))
(tst()(format t "Hello, world, ~A speaking.~%"
(uiop:implementation-identifier)))
(tst`:begin-tests(defvar *err* 0)(defvar *begin* 0)
(format t "Hello, world, ~A speaking.~%" (uiop:implementation-identifier)))
'
END_TESTS="$(foo_require t begin)"'
(tst t(if (equal "won" (first uiop:*command-line-arguments*))
(format t "argument passing worked, ")
(progn (incf *err*) (format t "argument passing failed (got ~S), " (cl-launch::raw-command-line-arguments))))
(if (equal "doh" (cl-launch::getenv "DOH"))
(format t "getenv worked, ")
(progn (incf *err*) (format t "argument passing failed,~%*c-l-a* = ~S~%r-c-l-a = ~S~%c-l-a = ~S~%"
uiop:*command-line-arguments* (uiop:raw-command-line-arguments) (uiop:command-line-arguments))))
(if (equal "doh" (cl-launch::getenv "DOH")) (format t "getenv worked, ")
(progn (incf *err*) (format t "getenv failed, ")))
(if (zerop *err*) (format t "all tests ~a~a.~%" :o :k) (format t "~a ~a.~%" :error :detected)))'
case "$LISP" in
......
#!/bin/sh
#| cl-launch.sh -- shell wrapper generator for Common Lisp software -*- Lisp -*-
CL_LAUNCH_VERSION='4.0.1.3'
CL_LAUNCH_VERSION='4.0.1.4'
license_information () {
AUTHOR_NOTE="\
# Please send your improvements to the author:
......@@ -1573,7 +1573,7 @@ print_shell_wrapper_body () {
cat <<'EOF'
DO_LISP=do_exec_lisp
HASH_BANG_FORM='(set-dispatch-macro-character #\# #\! (lambda(stream char arg)(declare(ignore char arg))(values(read-line stream))))'
PACKAGE_FORM=" #.(progn(defpackage :uiop (:use :cl))())"
PACKAGE_FORM="#.(progn(defpackage :uiop (:use :cl))())#.(progn(declaim (special uiop::*command-line-arguments*))())"
MAYBE_PACKAGE_FORM=
PROGN="(progn"
NGORP=")"
......@@ -1815,8 +1815,8 @@ prepare_arg_form () {
for arg ; do
F="$F\"$(kwote "$arg")\""
done
MAYBE_PACKAGE_FORM="$PACKAGE_FORM"
LAUNCH_FORMS="(defparameter uiop::*command-line-arguments*'($F))${LAUNCH_FORMS}"
MAYBE_PACKAGE_FORM=" $PACKAGE_FORM"
LAUNCH_FORMS="(setf uiop::*command-line-arguments*'($F))${LAUNCH_FORMS}"
}
# Aliases
implementation_alisp () {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment