Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv23523/tests

Modified Files: testserializer.lisp Log Message: typo

Date: Thu Sep 2 09:32:16 2004 Author: blee

Index: elephant/tests/testserializer.lisp diff -u elephant/tests/testserializer.lisp:1.1 elephant/tests/testserializer.lisp:1.2 --- elephant/tests/testserializer.lisp:1.1 Mon Aug 30 23:39:59 2004 +++ elephant/tests/testserializer.lisp Thu Sep 2 09:32:16 2004 @@ -16,7 +16,7 @@ (eq nil (cdr g))

(setq h (make-hash-table :test 'eql)) -(setf (gethash 10000000000 h) f) +(prog1 t (setf (gethash 10000000000 h) f)) (setq h2 (test h)) (= 1 (hash-table-count h2)) (prog1 t (setq g (gethash 10000000000 h2)))