Commit 4f6ce505 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add SCL to test framework. Tweaked a few tests. Now works!

Fix link in webpage (lp#614806).
Include SCL and ABCL in my testing routine.
parent cf5fa4a8
Loading
Loading
Loading
Loading
+2 −2
Original line number Original line Diff line number Diff line
@@ -7,8 +7,8 @@ clnet_home := "/project/asdf/public_html/"


sourceDirectory := $(shell pwd)
sourceDirectory := $(shell pwd)


lisps ?= allegro ccl clisp ecl sbcl
lisps ?= allegro ccl clisp ecl sbcl scl abcl
## not tested by me: abcl allegromodern cmucl lisworks
## not tested by me: allegromodern cmucl lisworks
## FAIL: gclcvs
## FAIL: gclcvs
## maybe supported by asdf, not supported yet by our tests: cormancl mcl scl
## maybe supported by asdf, not supported yet by our tests: cormancl mcl scl


+4 −7
Original line number Original line Diff line number Diff line
@@ -18,10 +18,7 @@ Conflicts: sbcl-common (<= 1:0.9.13.0-2), common-lisp-controller (<= 7.0)
Breaks: common-lisp-controller (<= 7.0)
Breaks: common-lisp-controller (<= 7.0)
Depends: ${misc:Depends}
Depends: ${misc:Depends}
Description: Another System Definition Facility
Description: Another System Definition Facility
 asdf provides a "make" type functions for Common Lisp packages. It
 asdf provides a "make" type functions for Common Lisp software.
 provides compilation and loading features for complex Lisp systems
 It drives compilation and dynamic loading for complex Lisp systems
 with multiple modules and files. It is similar in concept to, but
 with multiple modules and files, and is the de facto standard used
 with features different from, "defsystem" which is included in the
 by free software written in Common Lisp.
 common-lisp-controller package. Unlike defsystem3 in CLC, asdf is
 object-oriented and extensible.
+1 −1
Original line number Original line Diff line number Diff line
@@ -50,7 +50,7 @@
          <li><a href="asdf.html">as one HTML file</a></li>
          <li><a href="asdf.html">as one HTML file</a></li>
          <li><a href="asdf/">split into one HTML file per section</a></li>
          <li><a href="asdf/">split into one HTML file per section</a></li>
          <li><a href="asdf.pdf">as a PDF document</a></li>
          <li><a href="asdf.pdf">as a PDF document</a></li>
          <li><a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob;f=asdf.texinfo">as texinfo source</a></li>
          <li><a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob;f=doc/asdf.texinfo">as texinfo source</a></li>
        </ul>
        </ul>


        <a id="downloads"></a>
        <a id="downloads"></a>
+1 −1
Original line number Original line Diff line number Diff line
@@ -158,7 +158,7 @@
                                    year month day hour minute second
                                    year month day hour minute second
                                    (lisp-implementation-type)
                                    (lisp-implementation-type)
                                    (lisp-implementation-version)
                                    (lisp-implementation-version)
                                    asdf::*asdf-version*)))
                                    (asdf:asdf-version))))
                (format result-stream ";;; ~a~%~%" header)
                (format result-stream ";;; ~a~%~%" header)
                (format *trace-output* "~%;;; ~a~%~%" header)))
                (format *trace-output* "~%;;; ~a~%~%" header)))
            (sleep 1)
            (sleep 1)
+22 −17
Original line number Original line Diff line number Diff line
@@ -105,16 +105,10 @@ fi


command= flags= nodebug= eval=
command= flags= nodebug= eval=
case "$lisp" in
case "$lisp" in
  sbcl)
  abcl)
    command="${SBCL:-sbcl}"
    command="${ABCL:-abcl}"
    flags="--noinform --userinit /dev/null --sysinit /dev/null"
    flags="--noinit --noinform"
    nodebug="--disable-debugger"
    eval="--eval" ;;
    eval="--eval" ;;
  clisp)
    command="${CLISP:-clisp}"
    flags="-norc -ansi -I "
    nodebug="-on-error exit"
    eval="-x" ;;
  allegro)
  allegro)
    command="${ALLEGRO:-alisp}"
    command="${ALLEGRO:-alisp}"
    flags="-q"
    flags="-q"
@@ -130,6 +124,11 @@ case "$lisp" in
    flags="--no-init --quiet"
    flags="--no-init --quiet"
    nodebug="--batch"
    nodebug="--batch"
    eval="--eval" ;;
    eval="--eval" ;;
  clisp)
    command="${CLISP:-clisp}"
    flags="-norc -ansi -I "
    nodebug="-on-error exit"
    eval="-x" ;;
  cmucl)
  cmucl)
    command="${CMUCL:-lisp}"
    command="${CMUCL:-lisp}"
    flags="-noinit"
    flags="-noinit"
@@ -139,6 +138,11 @@ case "$lisp" in
    command="${ECL:-ecl}"
    command="${ECL:-ecl}"
    flags="-norc"
    flags="-norc"
    eval="-eval" ;;
    eval="-eval" ;;
  gclcvs)
    export GCL_ANSI=t
    command="${GCL:-gclcvs}"
    flags="-batch"
    eval="-eval" ;;
  lispworks)
  lispworks)
    command="${LISPWORKS:-lispworks}"
    command="${LISPWORKS:-lispworks}"
    # If you have a licensed copy of lispworks,
    # If you have a licensed copy of lispworks,
@@ -147,15 +151,16 @@ case "$lisp" in
    # ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
    # ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
    flags="-siteinit - -init -"
    flags="-siteinit - -init -"
    eval="-eval" ;;
    eval="-eval" ;;
  gclcvs)
  sbcl)
    export GCL_ANSI=t
    command="${SBCL:-sbcl}"
    command="${GCL:-gclcvs}"
    flags="--noinform --userinit /dev/null --sysinit /dev/null"
    flags="-batch"
    nodebug="--disable-debugger"
    eval="-eval" ;;
  abcl)
    command="${ABCL:-abcl}"
    flags="--noinit --noinform"
    eval="--eval" ;;
    eval="--eval" ;;
  scl)
    command="${SCL:-scl}"
    flags="-noinit"
    nodebug="-batch"
    eval="-eval" ;;
  *)
  *)
    echo "Unsupported lisp: $1" >&2
    echo "Unsupported lisp: $1" >&2
    echo "Please add support to run-tests.sh" >&2
    echo "Please add support to run-tests.sh" >&2
Loading