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

Update.

Files:
1 modified

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)