(sb!c::byte-function-name x))
(byte-closure
(sb!c::byte-function-name (byte-closure-function x)))
+ #!+sb-interpreter
(sb!eval:interpreted-function
(multiple-value-bind (exp closure-p dname)
(sb!eval:interpreted-function-lambda-expression x)
(setf *standard-output* (third old-streams))
(setf *error-output* (fourth old-streams)))))
(values))
+
+(defun %byte-blt (src src-start dst dst-start dst-end)
+ (%byte-blt src src-start dst dst-start dst-end))