Skip to content
Snippets Groups Projects
Commit 47e140c7 authored by ram's avatar ram
Browse files

Flushed broken INGORE declaration.

parent 9567a3eb
No related branches found
No related tags found
No related merge requests found
......@@ -851,11 +851,11 @@
(setf (string-output-stream-index stream) dst-end)))
(defun string-out-misc (stream operation &optional arg1 arg2)
(declare (ignore arg1 arg2))
(declare (ignore arg2))
(case operation
(:file-position
(if (null arg1)
(string-output-stream-index stream)))
(string-output-stream-index stream)))
(:charpos
(do ((index (1- (the fixnum (string-output-stream-index stream)))
(1- index))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment