Changeset 11277

Timestamp:

08/07/08 20:36:02 (15 years ago)

Author:

ehuelsmann

Message:

Fix #n# replacement inside structures.

File:

• trunk/j/src/org/armedbear/lisp/Stream.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Stream.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003-2007 Peter Graves
- * $Id: Stream.java,v 1.154 2007-02-23 21:17:34 piso Exp $
+ * $Id: Stream.java,v 1.155 2008-08-07 20:36:02 ehuelsmann Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -425 +425 @@
   {
     final LispThread thread = LispThread.currentThread();
-    LispObject obj = read(true, NIL, false, thread);
+    LispObject obj = read(true, NIL, true, thread);
     if (Symbol.READ_SUPPRESS.symbolValue(thread) != NIL)
       return NIL;
@@ -473 +473 @@
   {
     final LispThread thread = LispThread.currentThread();
-    LispObject obj = faslRead(true, NIL, false, thread);
+    LispObject obj = faslRead(true, NIL, true, thread);
     if (Symbol.READ_SUPPRESS.symbolValue(thread) != NIL)
       return NIL;