From 8cf08b5eee8ead5e07a29b24111b155c102c40be Mon Sep 17 00:00:00 2001 From: tony Date: Wed, 30 Apr 2008 16:50:18 +0200 Subject: [PATCH] reference gen-seq properly, don't export. --- data-clos.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/data-clos.lisp b/data-clos.lisp index c800b9c..834bff2 100644 --- a/data-clos.lisp +++ b/data-clos.lisp @@ -374,15 +374,15 @@ Usually used by: (addtest (lisp-stat-dataclos) genseq (ensure - (eql (gen-seq 4) (list 1 2 3 4)))) + (equal (lisp-stat-data-clos::gen-seq 4) (list 1 2 3 4)))) (addtest (lisp-stat-dataclos) genseq-null (ensure - (eql (gen-seq 0) nil))) + (equal (lisp-stat-data-clos::gen-seq 0) nil))) (addtest (lisp-stat-dataclos) genseq-offset (ensure - (eql (gen-seq 4 2) (list 2 3 4)))) + (equal (lisp-stat-data-clos::gen-seq 4 2) (list 2 3 4)))) (addtest (lisp-stat-dataclos) equaltestnameData (ensure-error -- 2.11.4.GIT