projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3878953
)
r4867: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 7 May 2003 16:07:13 +0000
(16:07 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 7 May 2003 16:07:13 +0000
(16:07 +0000)
tests.lisp
patch
|
blob
|
history
diff --git
a/tests.lisp
b/tests.lisp
index 426ba9c6a502818e135e76e85d634542af3f11fc..5b7c7be7061fbbe8742ffbfc4646fba0407b5492 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-7,7
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: tests.lisp,v 1.1
1 2003/05/07 16:05:14
kevin Exp $
+;;;; $Id: tests.lisp,v 1.1
2 2003/05/07 16:07:13
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; 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 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))
(deftest apsl.2 (append-sublists nil) nil)
(deftest apsl.3 (append-sublists '((a b))) (a b))
(deftest apsl.4 (append-sublists '((a))) (a))