Changeset 240

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

Version 28.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmio/qfile.lisp

    r239 r240  
    10291029(DEFUN FORCE-USER-TO-LOGIN (&OPTIONAL (HOST USER-LOGIN-MACHINE)) 
    10301030  (COND ((OR (NULL USER-ID) (STRING-EQUAL USER-ID "")) 
    1031          (FORMAT QUERY-IO "~&Host is ~A, login name or host:login name: " HOST) 
     1031         (FORMAT QUERY-IO 
     1032                 "~&Please log in.  Type username or host:username (host defaults to ~A): " 
     1033                 HOST) 
    10321034         (LET ((INPUT (READLINE QUERY-IO)) 
    10331035               (COLON))