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