More GC assertions

diff --cc src/ChangeLog
index 0b03069,f3cc322..ea32a48
--- 1/src/ChangeLog
--- 2/src/ChangeLog
+++ b/src/ChangeLog
@@@ -1,5 -1,11 +1,9 @@@
 -2014-04-03  Daniel Colascione  <dancol@dancol.org>
 -
 -      * alloc.c (sweep_symbols,mark_object): Assert that symbol function
 -      cells contain valid lisp objects.  (Modified version of patch from
 -      Dmitry).
 +2014-04-08  Daniel Colascione  <dancol@dancol.org>
  
 -2014-04-03  Daniel Colascione  <dancol@dancol.org>
++      * alloc.c (sweep_symbols, mark_object): Assert that symbol
++      function cells contain valid lisp objects.  (Modified version of
++      patch from Dmitry).
+ 
        * alloc.c (detect_suspicious_free): Split actual stack capturing
        out into new function for easier breakpoint setting.
        (note_suspicious_free): New function.

diff --cc src/alloc.c
index d22e71b,a007a43..15bfbbb
--- 1/src/alloc.c
--- 2/src/alloc.c
+++ b/src/alloc.c
@@@ -6639,7 -6600,11 +6641,9 @@@ sweep_symbols (void
            else
              {
                ++num_used;
 -              if (!pure_p)
 -                eassert (!STRING_MARKED_P (XSTRING (sym->s.name)));
                sym->s.gcmarkbit = 0;
+               /* Attempt to catch bogus objects.  */
+               eassert (valid_lisp_object_p (sym->s.function) >= 1);
              }
          }