common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Remove SB-SYS:OUTPUT-RAW-BYTES.

Browse source 
Deprecated since 2007.
This commit is contained in:
Stas Boukarev 2022-02-04 18:20:00 +03:00
parent f9df672be2
commit 3a29b2c5e8
4 changed files with 3 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/code/early-extensions.lisp
View file

@ -1205,13 +1205,6 @@ NOTE: This interface is experimental and subject to change."
;;; - SOCKINT::WIN32-IOCTL since 1.2.10 (03/2015) -> Late: 08/2015
;;; - SOCKINT::WIN32-SETSOCKOPT since 1.2.10 (03/2015) -> Late: 08/2015
;;; - SOCKINT::WIN32-GETSOCKOPT since 1.2.10 (03/2015) -> Late: 08/2015
;;;
;;; - SB-C::MERGE-TAIL-CALLS (policy) since 1.0.53.74 (11/2011) -> Late: 11/2012
;;;
;;; LATE:
;;; - SB-C::STACK-ALLOCATE-DYNAMIC-EXTENT (policy) since 1.0.19.7 -> Final: anytime
;;; - SB-C::STACK-ALLOCATE-VECTOR (policy) since 1.0.19.7 -> Final: anytime
;;; - SB-C::STACK-ALLOCATE-VALUE-CELLS (policy) since 1.0.19.7 -> Final: anytime
(defun setup-function-in-final-deprecation
(software version name replacement-spec)

10
src/code/fd-stream.lisp
View file

@ -463,14 +463,6 @@
(if (= errno sb-unix:ewouldblock)
(buffer-output stream thing start end)
(simple-stream-perror +write-failed+ stream errno)))))))))
;;; Deprecated -- can go away after 1.1 or so. Deprecated because
;;; this is not something we want to export. Nikodemus thinks the
;;; right thing is to support a low-level non-stream like IO layer,
;;; akin to java.nio.
(define-deprecated-function :final "1.0.8.16" output-raw-bytes write-sequence
(stream thing &optional start end)
(write-or-buffer-output stream thing (or start 0) (or end (length thing))))
;;;; output routines and related noise
@ -789,7 +781,7 @@
;;; the routine to use to output a string. If the stream is
;;; unbuffered, slam the string down the file descriptor, otherwise
;;; use OUTPUT-RAW-BYTES to buffer the string. Update charpos by
;;; use BUFFER-OUTPUT to buffer the string. Update charpos by
;;; checking to see where the last newline was.
(defun fd-sout (stream thing start end)
(declare (type fd-stream stream) (type string thing))

2
src/cold/exports.lisp
View file

@ -1601,7 +1601,7 @@ SB-KERNEL) have been undone, but probably more remain.")
"NLX-PROTECT"
"OS-EXIT"
"OS-COLD-INIT-OR-REINIT" "OS-DEINIT"
"OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
"OS-CONTEXT-T"
"READ-CYCLE-COUNTER" "ELAPSED-CYCLES"
"READ-N-BYTES"
"REMOVE-FD-HANDLER"

2
tests/stream.impure.lisp
View file

@ -369,7 +369,7 @@
;;; or slow paths are being taken for each element type. See the
;;; READ-SEQUENCE tests above for more information.
;;;
;;; (trace sb-impl::output-unsigned-byte-full-buffered sb-impl::output-signed-byte-full-buffered sb-impl::output-raw-bytes)
;;; (trace sb-impl::output-unsigned-byte-full-buffered sb-impl::output-signed-byte-full-buffered)
(with-test (:name (write-sequence type-error))
(let ((pathname (scratch-file-name))