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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Sep 20 01:16:04 2011
New Revision: 13602

Log:
Restore clean source compilation from breakage in r13600.

Modified:
   trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/dump-form.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Mon Sep 19 13:50:37 2011	(r13601)
+++ trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Tue Sep 20 01:16:04 2011	(r13602)
@@ -163,7 +163,7 @@
 (declaim (ftype (function (t stream) t) dump-instance))
 (defun dump-instance (object stream)
   (write-string "#." stream)
-  (dump-object (get-instance-form object)))
+  (dump-object (get-instance-form object) stream))
 
 (declaim (ftype (function (symbol) integer) dump-uninterned-symbol-index))
 (defun dump-uninterned-symbol-index (symbol)