[Emacs-diffs] Changes to emacs/src/print.c [lexbind]

[Miles Bader]

Index: emacs/src/print.c
diff -c emacs/src/print.c:1.175.2.11 emacs/src/print.c:1.175.2.12
*** emacs/src/print.c:1.175.2.11        Fri Jul 23 04:42:23 2004
--- emacs/src/print.c   Sat Sep  4 09:20:10 2004
***************
*** 1304,1310 ****
  
   loop:
    if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
!       || COMPILEDP (obj) || CHAR_TABLE_P (obj)
        || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))
--- 1304,1310 ----
  
   loop:
    if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
!       || FUNVECP (obj) || CHAR_TABLE_P (obj)
        || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))
***************
*** 1407,1413 ****
  
    /* Detect circularities and truncate them.  */
    if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
!       || COMPILEDP (obj) || CHAR_TABLE_P (obj)
        || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))
--- 1407,1413 ----
  
    /* Detect circularities and truncate them.  */
    if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
!       || FUNVECP (obj) || CHAR_TABLE_P (obj)
        || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))
***************
*** 1934,1940 ****
        else
        {
          EMACS_INT size = XVECTOR (obj)->size;
!         if (COMPILEDP (obj))
            {
              PRINTCHAR ('#');
              size &= PSEUDOVECTOR_SIZE_MASK;
--- 1934,1940 ----
        else
        {
          EMACS_INT size = XVECTOR (obj)->size;
!         if (FUNVECP (obj))
            {
              PRINTCHAR ('#');
              size &= PSEUDOVECTOR_SIZE_MASK;