From a329dffbb13bf983ea2d4a3c4ab975d6fd20c681 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Thu, 10 Jul 2003 21:46:57 +0000 Subject: [PATCH] 0.8.1.30: fiddled with return code of condition.impure.lisp to keep run-tests.sh script happy trivial text/whitespace tweaking --- contrib/sb-bsd-sockets/FAQ | 2 +- contrib/sb-bsd-sockets/README | 23 ++++++++++++----------- contrib/sb-bsd-sockets/tests.lisp | 2 +- src/runtime/GNUmakefile | 4 ++-- tests/condition.impure.lisp | 3 +++ tests/eval.impure.lisp | 2 -- version.lisp-expr | 2 +- 7 files changed, 20 insertions(+), 18 deletions(-) diff --git a/contrib/sb-bsd-sockets/FAQ b/contrib/sb-bsd-sockets/FAQ index d788eb2b4..062b589a5 100644 --- a/contrib/sb-bsd-sockets/FAQ +++ b/contrib/sb-bsd-sockets/FAQ @@ -43,5 +43,5 @@ constants.lisp-temp Q4) Is this compatible with ACL? With CMUCL's internet.lisp? A4) No. This is a sufficiently low-level interface that either could -be built on top of it, though. Actually, theq ACL-COMPAT library that +be built on top of it, though. Actually, the ACL-COMPAT library that comes with Portable Allegroserve may already have this. diff --git a/contrib/sb-bsd-sockets/README b/contrib/sb-bsd-sockets/README index 91e4df8f7..311b06a3f 100644 --- a/contrib/sb-bsd-sockets/README +++ b/contrib/sb-bsd-sockets/README @@ -1,17 +1,18 @@ o/~ Hey Mr Tambourine Man, play some -*- Text -*- for me o/~ A semi-sane sockets interface for SBCL. Usually also works in CMUCL, -but is rarely actually tested there so may require some massaging - -See INSTALL for prerequisites and build details - -It uses the regression tester from the CMU AI repository. This is -bundled in the file rt.lisp which is unchanged except where I added a -DEFPACKAGE form. The tests themselves are in tests.lisp, and can be -run using the Makefile target intended for the purpose, or by -evaluating (rt:do-tests). Note that one of the tests is an HTTP -client that connects back to ww.telent.net; if this bothers your -expectations of privacy, don't run it. +but is rarely actually tested there so may require some massaging. + +It is invoked through the SBCL contrib/ modules system: + (require :asdf) + (require :sb-bsd-sockets) + +It uses the regression tester from the CMU AI repository, in its +incarnation as the SBCL contrib SB-RT. The tests themselves are in +tests.lisp, and can be run using the Makefile target intended for the +purpose, or by evaluating (sb-rt:do-tests). Note that one of the tests +is an HTTP client that connects back to ww.telent.net; if this bothers +your expectations of privacy, don't run it. There is an automatically generated API reference in api-reference.html which you can regenerate if you can figure out how diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp index eea023a80..a510c9f3e 100644 --- a/contrib/sb-bsd-sockets/tests.lisp +++ b/contrib/sb-bsd-sockets/tests.lisp @@ -153,7 +153,7 @@ Tests are in the file tests.lisp and also make good examples. t) -;;; these require that the internet (or bits of it, atleast) is available +;;; these require that the internet (or bits of it, at least) is available #+internet-available (deftest get-host-by-name diff --git a/src/runtime/GNUmakefile b/src/runtime/GNUmakefile index 8545e9e57..1c5ae15af 100644 --- a/src/runtime/GNUmakefile +++ b/src/runtime/GNUmakefile @@ -35,13 +35,13 @@ DEPEND_FLAGS=-M include Config -C_SRCS =alloc.c backtrace.c breakpoint.c coreparse.c \ +C_SRCS = alloc.c backtrace.c breakpoint.c coreparse.c \ dynbind.c gc-common.c globals.c interr.c interrupt.c \ monitor.c parse.c print.c purify.c \ regnames.c run-program.c runtime.c save.c search.c \ thread.c time.c util.c validate.c vars.c wrap.c -SRCS= $(C_SRCS) ${ARCH_SRC} ${ASSEM_SRC} ${OS_SRC} ${GC_SRC} +SRCS = $(C_SRCS) ${ARCH_SRC} ${ASSEM_SRC} ${OS_SRC} ${GC_SRC} OBJS = $(patsubst %.c,%.o,$(patsubst %.S,%.o,$(patsubst %.s,%.o,$(SRCS)))) diff --git a/tests/condition.impure.lisp b/tests/condition.impure.lisp index 246a6a833..03145a779 100644 --- a/tests/condition.impure.lisp +++ b/tests/condition.impure.lisp @@ -36,3 +36,6 @@ (setf (code-msg code) 2) (assert (eql (code-msg code) 2)) (assert (eql (%code-msg code) 1))) + +;;; success +(sb-ext:quit :unix-status 104) diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp index d0f768b3c..8b0cf5761 100644 --- a/tests/eval.impure.lisp +++ b/tests/eval.impure.lisp @@ -94,7 +94,6 @@ ;;; Bug reported by Paul Dietz: CONSTANTP on a self-evaluating object ;;; must return T - (assert (constantp (find-class 'symbol))) (assert (constantp #p"")) @@ -106,6 +105,5 @@ ,var)) '(1 2)))) - ;;; success (sb-ext:quit :unix-status 104) diff --git a/version.lisp-expr b/version.lisp-expr index 312e2a49f..005da86d4 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.1.29" +"0.8.1.30" -- 2.11.4.GIT