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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Mar 12 06:19:56 2013
New Revision: 14435

Log:
Explicitly finalize inheritance for classes in GRAY-STREAMS.

Fixes #300.

Modified:
   trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp	Tue Mar 12 06:19:54 2013	(r14434)
+++ trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp	Tue Mar 12 06:19:56 2013	(r14435)
@@ -648,6 +648,15 @@
 (setf (symbol-function 'common-lisp::two-way-stream-output-stream) #'gray-two-way-stream-output-stream)
 |#
 
+(eval-when (:load-toplevel)
+  (mapcar (lambda (o) (mop:finalize-inheritance (find-class o)))
+          '(fundamental-stream 
+            fundamental-input-stream fundamental-output-stream
+            fundamental-character-stream 
+            fundamental-character-input-stream fundamental-character-output-stream
+            fundamental-binary-stream
+            fundamental-binary-input-stream fundamental-binary-output-stream)))
+ 
 (provide 'gray-streams)
 
 ;;; Fixup Gray/ANSI stream relations