Changeset 8353


Ignore:
Timestamp:
01/13/05 12:31:34 (17 years ago)
Author:
piso
Message:

readArray()

File:
1 edited

Legend:

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

    r8342 r8353  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.102 2005-01-11 18:03:43 piso Exp $
     5 * $Id: Stream.java,v 1.103 2005-01-13 12:31:34 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    494494            case 0:
    495495                return new ZeroRankArray(T, obj, false);
    496             case 1:
    497                 return new SimpleVector(obj);
     496            case 1: {
     497                if (obj.listp() || obj instanceof AbstractVector)
     498                    return new SimpleVector(obj);
     499                return signal(new ReaderError(obj.writeToString() + " is not a sequence."));
     500            }
    498501            default:
    499502                return new SimpleArray(rank, obj);
Note: See TracChangeset for help on using the changeset viewer.