From b3126a50cca65c379c4580bed23e180664ba2d7c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 7 May 2003 16:07:13 +0000 Subject: [PATCH] r4867: Auto commit for Debian build --- tests.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests.lisp b/tests.lisp index 426ba9c..5b7c7be 100644 --- a/tests.lisp +++ b/tests.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.11 2003/05/07 16:05:14 kevin Exp $ +;;;; $Id: tests.lisp,v 1.12 2003/05/07 16:07:13 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -56,7 +56,7 @@ (deftest str.24 (delimited-string-to-list "ab|" #\|) ("ab" "")) (deftest str.25 (delimited-string-to-list "ab|" #\| t) ("ab")) -(deftest apsl.1 (append-sublists '((a b) (c d)) (a b c d))) +(deftest apsl.1 (append-sublists '((a b) (c d))) (a b c d)) (deftest apsl.2 (append-sublists nil) nil) (deftest apsl.3 (append-sublists '((a b))) (a b)) (deftest apsl.4 (append-sublists '((a))) (a)) -- 2.34.1