[Mit-cadr-cvs] r322 - trunk/lisp/io

[rswindells at common-lisp.net]

Author: rswindells
Date: Sat Nov 17 17:47:40 2012
New Revision: 322

Log:
Remove trailing garbage chars.

Modified:
   trunk/lisp/io/chsaux.lisp
   trunk/lisp/io/disk.lisp
   trunk/lisp/io/dledit.lisp
   trunk/lisp/io/dribbl.lisp
   trunk/lisp/io/format.lisp

Modified: trunk/lisp/io/chsaux.lisp
==============================================================================
--- trunk/lisp/io/chsaux.lisp	Sat Nov 17 17:46:14 2012	(r321)
+++ trunk/lisp/io/chsaux.lisp	Sat Nov 17 17:47:40 2012	(r322)
@@ -1575,3 +1575,4 @@
 ;;; By default, lisp machines do not have any file computer flavor.
 ;;; This is added later.
 (SI:COMPILE-HOST-FLAVOR-COMBINATION :LISPM :CHAOS)
+

Modified: trunk/lisp/io/disk.lisp
==============================================================================
--- trunk/lisp/io/disk.lisp	Sat Nov 17 17:46:14 2012	(r321)
+++ trunk/lisp/io/disk.lisp	Sat Nov 17 17:47:40 2012	(r322)
@@ -1710,3 +1710,4 @@
 				      (FORMAT T "~D " CYL)))
 			   (RETURN-DISK-RQB RQB)))
     (DISPOSE-OF-UNIT UNIT)))
+

Modified: trunk/lisp/io/dledit.lisp
==============================================================================
--- trunk/lisp/io/dledit.lisp	Sat Nov 17 17:46:14 2012	(r321)
+++ trunk/lisp/io/dledit.lisp	Sat Nov 17 17:47:40 2012	(r322)
@@ -450,3 +450,4 @@
 C-E edit selected item
 C-O add partition, C-K delete partition, C-S sort partitions
 <END> exit"))
+

Modified: trunk/lisp/io/dribbl.lisp
==============================================================================
--- trunk/lisp/io/dribbl.lisp	Sat Nov 17 17:46:14 2012	(r321)
+++ trunk/lisp/io/dribbl.lisp	Sat Nov 17 17:47:40 2012	(r322)
@@ -65,3 +65,4 @@
     (otherwise
      (lexpr-funcall *tv-stream* op args))))
 );local-declare
+

Modified: trunk/lisp/io/format.lisp
==============================================================================
--- trunk/lisp/io/format.lisp	Sat Nov 17 17:46:14 2012	(r321)
+++ trunk/lisp/io/format.lisp	Sat Nov 17 17:47:40 2012	(r322)
@@ -1110,3 +1110,4 @@
 			 SEPARATOR-FORMAT-STRING)))
     (PROG1 (FORMAT DESTINATION FSTRING LIST)
 	   (RETURN-ARRAY FSTRING))))
+