Changeset 240


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

Version 28.

File:
1 edited

Legend:

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

    r239 r240  
    10341034(DEFUN FORCE-USER-TO-LOGIN (&OPTIONAL (HOST USER-LOGIN-MACHINE))
    10351035  (COND ((OR (NULL USER-ID) (STRING-EQUAL USER-ID ""))
    1036          (FORMAT QUERY-IO "~&Host is ~A, login name or host:login name: " HOST)
     1036         (FORMAT QUERY-IO
     1037                 "~&Please log in.  Type username or host:username (host defaults to ~A): "
     1038                 HOST)
    10371039         (LET ((INPUT (READLINE QUERY-IO))
    10381040               (COLON))
Note: See TracChangeset for help on using the changeset viewer.