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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Wed Mar 13 02:34:28 2013
New Revision: 14436

Log:
Fix potential endless loop in sys::stream-%set-charpos

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:56 2013	(r14435)
+++ trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp	Wed Mar 13 02:34:28 2013	(r14436)
@@ -675,4 +675,4 @@
     ((subtypep (type-of stream) 'gray-streams:fundamental-stream)
      (setf (stream-line-column stream) new-value))
     ((streamp stream)
-     (sys::stream-%set-charpos stream new-value))))
+     (funcall *sys--stream-%set-charpos* stream new-value))))