Changeset 8563


Ignore:
Timestamp:
02/14/05 00:49:40 (16 years ago)
Author:
piso
Message:

readList(): (let ((x 3) (y 4)) `(,x .,y)) => (3 . 4)

File:
1 edited

Legend:

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

    r8481 r8563  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.111 2005-02-06 01:36:17 piso Exp $
     5 * $Id: Stream.java,v 1.112 2005-02-14 00:49:40 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    361361                            return signal(new ReaderError("Nothing appears before . in list."));
    362362                    }
     363                    _unreadChar(nextChar);
    363364                    LispObject obj = read(true, NIL, true);
    364365                    if (requireProper) {
     
    725726            }
    726727        }
    727       loop:
     728//       loop:
    728729        while (true) {
    729730            int n = _readChar();
Note: See TracChangeset for help on using the changeset viewer.