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

Timestamp:

08/18/11 07:57:19 (21 months ago)

Author:

rjs

Message:

Update.

Files:

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

trunk/lisp/lispm2/band.lisp

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