[Openmcl-cvs-notifications] r14831 - in /trunk/source: doc/src/using.xml lib/ccl-export-syms.lisp

[rme at clozure.com]

Author: rme
Date: Wed Jun 15 16:19:06 2011
New Revision: 14831

Log:
Export *disassemble-verbose* and document it.

Modified:
    trunk/source/doc/src/using.xml
    trunk/source/lib/ccl-export-syms.lisp

Modified: trunk/source/doc/src/using.xml
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/doc/src/using.xml (original)
+++ trunk/source/doc/src/using.xml Wed Jun 15 16:19:06 2011
@@ -3812,5 +3812,31 @@
   </refsect1>
 </refentry>
 =

+<refentry id=3D"v_disassemble-verbose">
+  <indexterm zone=3D"v_disassemble-verbose">
+    <primary>*disassemble-verbose*</primary>
+  </indexterm>
+  =

+  <refnamediv>
+    <refname>*disassemble-verbose*</refname>
+    <refpurpose>
+      When true, display verbose disassembly output.
+    </refpurpose>
+    <refclass>Variable</refclass>
+  </refnamediv>
+
+  <refsect1><title>Description</title>
+    <para>
+      When true, the output of <literal>disassemble</literal> may
+      include platform-dependent additional information.  For
+      instance, on the x86 ports, the output will include the x86
+      opcode bytes.
+    </para>
+    <para>
+      The default value is <literal>nil</literal>.
+    </para>
+  </refsect1>
+</refentry>
+
 </sect1>
 </chapter>

Modified: trunk/source/lib/ccl-export-syms.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/ccl-export-syms.lisp (original)
+++ trunk/source/lib/ccl-export-syms.lisp Wed Jun 15 16:19:06 2011
@@ -293,6 +293,7 @@
      *fasl-save-local-symbols*
      *save-arglist-info*
      *always-eval-user-defvars*
+     *disassemble-verbose*
 =

 					;These 3 need to be set by the user in order for the correspondingly =
named
 					;functions to return something other than "unspecified".