print fix

[stanonik@nprdc.arpa (Ron Stanonik)]

Hmm, haven't seen anything on this list yet
. . . hope someone's out there

Contrary to the Digital Press "Common Lisp" by Steele
(is there anything later?), the KCL print
(lisp-implementation-version June 3 1987) doesn't put
a space after printed representation of the object.
Here's our fix to do so.
Ron Stanonik
stanonik@nprdc.arpa

*** /tmp/,RCSt1013565	Thu Oct 15 11:05:44 1987
--- print.d	Sat Oct 10 08:29:12 1987
***************
*** 1600,1606 ****
--- 1600,1613 ----
  
  @(defun print (obj &optional strm)
  @
+ 	if (strm == Cnil)
+ 		strm = symbol_value(Vstandard_output);
+ 	else if (strm == Ct)
+ 		strm = symbol_value(Vterminal_io);
+ 	check_type_stream(&strm);
  	print(obj, strm);
+ 	writec_stream(' ', strm);
+ 	flush_stream(strm);
  	@(return obj)
  @)