Changeset 247 for trunk/lisp/lispm2/band.lisp

Timestamp:

08/18/11 07:56:35 (22 months ago)

Author:

rjs

Message:

Update.

Files:

• trunk/lisp/lispm2/band.lisp (modified) (1 diff)

trunk/lisp/lispm2/band.lisp

@@ -121 +121 @@
   (SETQ TEM (STRING-SEARCH-CHAR #\SP STR))
   (SETQ PART-COMMENT (READ-FROM-STRING STR NIL (1+ TEM)))
-  (FORMAT T "~&Receiving ~A from ~A: ~D blocks, ~A~%"
-            FROM-PART FROM-MACHINE PART-SIZE PART-COMMENT)
+  (FORMAT T "~&Receiving ~A's ~A into ~A: ~D blocks, ~A~%"
+            FROM-PART TO-PART FROM-MACHINE PART-SIZE PART-COMMENT)
   (CHAOS:RETURN-PKT PKT)
   (SETQ ORIG-PART-BASE PART-BASE)