Changeset 9085


Ignore:
Timestamp:
05/07/05 14:33:48 (16 years ago)
Author:
piso
Message:

noFillPointer()

File:
1 edited

Legend:

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

    r8839 r9085  
    22 * AbstractArray.java
    33 *
    4  * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: AbstractArray.java,v 1.39 2005-03-25 19:31:48 piso Exp $
     4 * Copyright (C) 2003-2005 Peter Graves
     5 * $Id: AbstractArray.java,v 1.40 2005-05-07 14:33:48 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7676    public final LispObject noFillPointer() throws ConditionThrowable
    7777    {
    78         return signal(new TypeError("Array does not have a fill pointer."));
     78        return signal(new TypeError(this, list3(Symbol.AND, Symbol.VECTOR,
     79                                                list2(Symbol.SATISFIES,
     80                                                      Symbol.ARRAY_HAS_FILL_POINTER_P))));
    7981    }
    8082
Note: See TracChangeset for help on using the changeset viewer.