Changeset 5298


Ignore:
Timestamp:
01/01/04 01:34:29 (18 years ago)
Author:
piso
Message:

CLOSE: fixed wording of "unrecognized keyword argument" error message.

File:
1 edited

Legend:

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

    r5270 r5298  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.546 2003-12-27 17:01:38 piso Exp $
     5 * $Id: Primitives.java,v 1.547 2004-01-01 01:34:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    32953295    // ### close
    32963296    // close stream &key abort => result
    3297     private static final Primitive CLOSE = new Primitive("close","stream &key abort") {
     3297    private static final Primitive CLOSE =
     3298        new Primitive("close", "stream &key abort")
     3299    {
    32983300        public LispObject execute(LispObject[] args) throws ConditionThrowable
    32993301        {
     
    33113313                    abort = args[2];
    33123314                else
    3313                     signal(new LispError(
    3314                         "CLOSE: unrecognized keyword argument: " + args[1]));
     3315                    signal(new ProgramError("Unrecognized keyword argument " +
     3316                                            args[1] + "."));
    33153317            }
    33163318            return stream.close(abort);
Note: See TracChangeset for help on using the changeset viewer.