Changeset 5900


Ignore:
Timestamp:
02/23/04 14:54:35 (17 years ago)
Author:
piso
Message:

MAKE-FILL-POINTER-OUTPUT-STREAM: removed use of checkString().

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/FillPointerOutputStream.java

    r5897 r5900  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: FillPointerOutputStream.java,v 1.7 2004-02-23 14:24:46 piso Exp $
     5 * $Id: FillPointerOutputStream.java,v 1.8 2004-02-23 14:54:35 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4343        public LispObject execute(LispObject arg) throws ConditionThrowable
    4444        {
    45             LispString string = checkString(arg);
    46             if (string.getFillPointer() < 0)
    47                 return signal(new TypeError(arg, "string with a fill pointer"));
    48             return new FillPointerOutputStream(string);
     45            if (arg instanceof LispString) {
     46                LispString string = (LispString) arg;
     47                if (string.getFillPointer() >= 0)
     48                    return new FillPointerOutputStream(string);
     49            }
     50            return signal(new TypeError(arg, "string with a fill pointer"));
    4951        }
    5052    };
Note: See TracChangeset for help on using the changeset viewer.