Changeset 11178


Ignore:
Timestamp:
03/04/07 17:45:38 (15 years ago)
Author:
piso
Message:

removed bogus IGNORE declarations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/gray-streams.lisp

    r7629 r11178  
    11;;; gray-streams.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: gray-streams.lisp,v 1.8 2004-09-10 14:42:01 asimon Exp $
     3;;; Copyright (C) 2004-2007 Peter Graves, Andras Simon
     4;;; $Id: gray-streams.lisp,v 1.9 2007-03-04 17:45:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1616;;; You should have received a copy of the GNU General Public License
    1717;;; along with this program; if not, write to the Free Software
    18 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
     18;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
    1919
    2020;;; Adapted from:
     
    395395
    396396(defun gray-read-char (&optional input-stream (eof-errorp t) eof-value recursive-p)
    397   (declare (ignore recursive-p))
    398397  (let ((stream (decode-read-arg input-stream)))
    399398    (if (old-streamp stream)
     
    403402(defun gray-peek-char (&optional peek-type input-stream (eof-errorp t)
    404403                                 eof-value recursive-p)
    405   (declare (ignore recursive-p))
    406   (let ((stream (decode-read-arg input-stream)))
    407     (if (old-streamp stream)
    408         (funcall *old-peek-char* peek-type stream eof-errorp
    409                  eof-value recursive-p)
     404  (let ((stream (decode-read-arg input-stream)))
     405    (if (old-streamp stream)
     406        (funcall *old-peek-char* peek-type stream eof-errorp eof-value recursive-p)
    410407        (if (null peek-type)
    411408            (check-for-eof (stream-peek-char stream) stream eof-errorp eof-value)
     
    435432(defun gray-read-line (&optional input-stream (eof-error-p t)
    436433                                 eof-value recursive-p)
    437   (declare (ignore recursive-p))
    438434  (let ((stream (decode-read-arg input-stream)))
    439435    (if (old-streamp stream)
     
    455451(defun gray-read-char-no-hang (&optional input-stream (eof-errorp t)
    456452                                         eof-value recursive-p)
    457   (declare (ignore recursive-p))
    458453  (let ((stream (decode-read-arg input-stream)))
    459454    (if (old-streamp stream)
Note: See TracChangeset for help on using the changeset viewer.