[armedbear-cvs] r12361 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Jan 11 14:40:37 2010
New Revision: 12361

Log:
Add setting the CPL of SYSTEM_STREAM.

Modified:
   trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java

Modified: trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java	Mon Jan 11 14:40:37 2010
@@ -305,6 +305,7 @@
     SYMBOL.setCPL(SYMBOL, CLASS_T);
     SYNONYM_STREAM.setCPL(SYNONYM_STREAM, SYSTEM_STREAM,
                           STREAM, STRUCTURE_OBJECT, CLASS_T);
+    SYSTEM_STREAM.setCPL(SYSTEM_STREAM, STREAM, STRUCTURE_OBJECT, CLASS_T);
     THREAD.setDirectSuperclass(CLASS_T);
     THREAD.setCPL(THREAD, CLASS_T);
     TWO_WAY_STREAM.setCPL(TWO_WAY_STREAM, SYSTEM_STREAM, STREAM,