Changeset 241

Timestamp:

08/18/11 06:08:16 (21 months ago)

Author:

rjs

Message:

Version 29.

Files:

• trunk/lisp/lmio/qfile.lisp (modified) (1 diff)

trunk/lisp/lmio/qfile.lisp

@@ -1322 +1322 @@
 
 (DEFSELECT (HOST-TOPS20 HOST-ITS)
-  (:LOGIN-UNIT (UNIT LOGIN-P &AUX (CONN (HOST-UNIT-CONTROL-CONNECTION UNIT)))
+  (:LOGIN-UNIT (UNIT LOGIN-P &AUX (CONN (HOST-UNIT-CONTROL-CONNECTION UNIT)))
     (AND CONN (EQ (CHAOS:STATE CONN) 'CHAOS:OPEN-STATE)
          (IF (NOT LOGIN-P)