Changeset 215


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

Update.

Location:
trunk/lisp/lmcons
Files:
3 edited

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  
    788788                    (push bitno bitlist))))))))
    789789
     790(defun dc-repeat-read (cyl head sec &optional (error-bits dc-all-error-bits)
     791                                    &aux (offset 100000))
     792  (do () (())
     793    (dc-exec dc-read cyl head sec 777 (+ offset 0) error-bits)))
     794
    790795
    791796;;; 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
Note: See TracChangeset for help on using the changeset viewer.