Loading benchmarks.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -50,7 +50,7 @@ (make-string (or object-size 10000))) (defmethod create-test-object ((type (eql 'constant-string)) &key) #.(coerce "AAAAAAAAAAAAAAAAdddddddddddddddddddddsssssssssssss" 'simple-base-string)) #.(coerce "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 'simple-base-string)) (defun class-preallocation-test (storage) (loop for class in (storage-data storage) Loading io-sbcl.lisp +2 −0 Original line number Diff line number Diff line Loading @@ -278,6 +278,8 @@ (left-length (sb-ext:truly-the word (- length left)))) (declare (word left left-length)) (copy-mem string-sap (sb-sys:int-sap position) left) (setf (output-stream-buffer-position stream) (output-stream-buffer-end stream)) (flush-buffer stream) (copy-mem (sb-sys:sap+ string-sap left) (sb-sys:int-sap start) left-length) Loading Loading
benchmarks.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -50,7 +50,7 @@ (make-string (or object-size 10000))) (defmethod create-test-object ((type (eql 'constant-string)) &key) #.(coerce "AAAAAAAAAAAAAAAAdddddddddddddddddddddsssssssssssss" 'simple-base-string)) #.(coerce "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 'simple-base-string)) (defun class-preallocation-test (storage) (loop for class in (storage-data storage) Loading
io-sbcl.lisp +2 −0 Original line number Diff line number Diff line Loading @@ -278,6 +278,8 @@ (left-length (sb-ext:truly-the word (- length left)))) (declare (word left left-length)) (copy-mem string-sap (sb-sys:int-sap position) left) (setf (output-stream-buffer-position stream) (output-stream-buffer-end stream)) (flush-buffer stream) (copy-mem (sb-sys:sap+ string-sap left) (sb-sys:int-sap start) left-length) Loading