Changeset 8481
- Timestamp:
- 02/06/05 01:36:17 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Stream.java
r8480 r8481 3 3 * 4 4 * Copyright (C) 2003-2005 Peter Graves 5 * $Id: Stream.java,v 1.11 0 2005-02-06 01:15:56piso Exp $5 * $Id: Stream.java,v 1.111 2005-02-06 01:36:17 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 340 340 } 341 341 342 public LispObject readList( ) throws ConditionThrowable342 public LispObject readList(boolean requireProper) throws ConditionThrowable 343 343 { 344 344 Cons first = null; … … 362 362 } 363 363 LispObject obj = read(true, NIL, true); 364 if (requireProper) { 365 if (!obj.listp()) 366 signal(new ReaderError("The value " + 367 obj.writeToString() + 368 " is not of type LIST.")); 369 } 364 370 last.setCdr(obj); 365 371 continue;
Note: See TracChangeset
for help on using the changeset viewer.