Ignore:
Timestamp:
08/18/11 14:56:35 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lispm2/band.lisp

    r246 r247  
    121121  (SETQ TEM (STRING-SEARCH-CHAR #\SP STR))
    122122  (SETQ PART-COMMENT (READ-FROM-STRING STR NIL (1+ TEM)))
    123   (FORMAT T "~&Receiving ~A from ~A: ~D blocks, ~A~%"
    124             FROM-PART FROM-MACHINE PART-SIZE PART-COMMENT)
     123  (FORMAT T "~&Receiving ~A's ~A into ~A: ~D blocks, ~A~%"
     124            FROM-PART TO-PART FROM-MACHINE PART-SIZE PART-COMMENT)
    125125  (CHAOS:RETURN-PKT PKT)
    126126  (SETQ ORIG-PART-BASE PART-BASE)
Note: See TracChangeset for help on using the changeset viewer.