[elephant-cvs] CVS update: elephant/tests/testserializer.lisp

[blee at common-lisp.net]

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)))