Changeset 215

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

Update.

Location:
trunk/lisp/lmcons
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmcons/ccgsyl.lisp

    r214 r215  
    9696(DEFUN CC-STREAM (OP &REST ARGS) 
    9797  (SELECTQ OP 
    98            (:TYI (LET ((CHAR (KBD-TYI))) 
    99                       (COND ((ZEROP (LOGAND CHAR 600)) CHAR) 
     98           (:TYI (LET ((CHAR (FUNCALL STANDARD-INPUT ':TYI))) 
     99                      (COND ((AND (ZEROP (LDB %%KBD-CONTROL-META CHAR)) 
     100                                  (< CHAR 200)) ;Printing 
     101                             CHAR) 
    100102                            ((OR (= CHAR #/L) (= CHAR #/l) (= CHAR #\FORM)) 
    101                              (TV-CLEAR-SCREEN)  ;Kludge for echoing of form/c-L 
    102                              (TV-HOME (FUNCALL OLD-STREAM ':PC-PPR)) 
     103                             (FUNCALL STANDARD-INPUT ':CLEAR-SCREEN) 
    103104                             14) 
    104105                            ((= CHAR #\RUBOUT) 177) ;Map rubout 
  • trunk/lisp/lmcons/dcheck.lisp

    r214 r215  
    780780               (and (bit-test (ash 1 bitno) bits) 
    781781                    (push bitno bitlist)))))))) 
     782 
     783(defun dc-repeat-read (cyl head sec &optional (error-bits dc-all-error-bits) 
     784                                    &aux (offset 100000)) 
     785  (do () (()) 
     786    (dc-exec dc-read cyl head sec 777 (+ offset 0) error-bits))) 
    782787 
    783788;;; Formatting stuff 
  • trunk/lisp/lmcons/qfmac.lisp

    r214 r215  
    11;;; -*- Mode:Lisp; Package:CADR; Base:8 -*- 
    22;;;     ** (c) Copyright 1980 Massachusetts Institute of Technology ** 
     3;;; ***CAUTION!! This file runs only on MACLISP.  The LISPM version is LCADR;LQFMAC*** 
    34 
    45;BYTE HACKING ROUTINES