Changeset 10027


Ignore:
Timestamp:
09/25/05 14:58:12 (16 years ago)
Author:
piso
Message:

SYS:MAKE-FILL-POINTER-OUTPUT-STREAM

File:
1 edited

Legend:

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

    r8918 r10027  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: FillPointerOutputStream.java,v 1.13 2005-04-11 14:07:23 piso Exp $
     5 * $Id: FillPointerOutputStream.java,v 1.14 2005-09-25 14:58:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3737    }
    3838
    39     // ### make-fill-pointer-output-stream
    40     // make-fill-pointer-output-stream string => string-stream
     39    // ### make-fill-pointer-output-stream string => string-stream
    4140    private static final Primitive MAKE_FILL_POINTER_OUTPUT_STREAM =
    42         new Primitive("make-fill-pointer-output-stream", PACKAGE_SYS, false) {
     41        new Primitive("make-fill-pointer-output-stream", PACKAGE_SYS, true)
     42    {
    4343        public LispObject execute(LispObject arg) throws ConditionThrowable
    4444        {
     
    4848                    return new FillPointerOutputStream(string);
    4949            }
    50             return signal(new TypeError(arg.writeToString() +
    51                                         " is not a string with a fill pointer."));
     50            return signalTypeError(arg, list3(Symbol.AND, Symbol.STRING,
     51                                              list2(Symbol.SATISFIES,
     52                                                    Symbol.ARRAY_HAS_FILL_POINTER_P)));
    5253        }
    5354    };
Note: See TracChangeset for help on using the changeset viewer.