if (NILP (printcharfun))
printcharfun = Vstandard_output;
- CHECK_NUMBER (character, 0);
+ CHECK_NUMBER (character);
PRINTPREPARE;
PRINTCHAR (XINT (character));
PRINTFINISH;
GCPRO1(args);
name = Feval (Fcar (args));
- CHECK_STRING (name, 0);
+ CHECK_STRING (name);
temp_output_buffer_setup (XSTRING (name)->data);
buf = Vstandard_output;
UNGCPRO;
DEFUN ("prin1", Fprin1, Sprin1, 1, 2, 0,
doc: /* Output the printed representation of OBJECT, any Lisp object.
Quoting characters are printed when needed to make output that `read'
-can handle, whenever this is possible.
+can handle, whenever this is possible. For complex objects, the behavior
+is controlled by `print-level' and `print-length', which see.
OBJECT is any of the Lisp data types: a number, a string, a symbol,
a list, a buffer, a window, a frame, etc.
Lisp_Object Vprin1_to_string_buffer;
DEFUN ("prin1-to-string", Fprin1_to_string, Sprin1_to_string, 1, 2, 0,
- doc: /* Return a string containing the printed representation of OBJECT,
-any Lisp object. Quoting characters are used when needed to make output
-that `read' can handle, whenever this is possible, unless the optional
-second argument NOESCAPE is non-nil.
+ doc: /* Return a string containing the printed representation of OBJECT.
+OBJECT can be any Lisp object. This function outputs quoting characters
+when ncessary to make output that `read' can handle, whenever possible,
+unless the optional second argument NOESCAPE is non-nil.
OBJECT is any of the Lisp data types: a number, a string, a symbol,
a list, a buffer, a window, a frame, etc.
DEFUN ("print", Fprint, Sprint, 1, 2, 0,
doc: /* Output the printed representation of OBJECT, with newlines around it.
Quoting characters are printed when needed to make output that `read'
-can handle, whenever this is possible.
+can handle, whenever this is possible. For complex objects, the behavior
+is controlled by `print-level' and `print-length', which see.
OBJECT is any of the Lisp data types: a number, a string, a symbol,
a list, a buffer, a window, a frame, etc.
(character)
Lisp_Object character;
{
- CHECK_NUMBER (character, 0);
+ CHECK_NUMBER (character);
putc (XINT (character), stderr);
#ifdef WINDOWSNT