babel-devel September 2008

babel-devel@common-lisp.net

2 participants
3 discussions

[babel-devel] a quick speed test
by Attila Lendvai 09 Sep '08

09 Sep '08

thought i share it: it's 10000 octets-to-string call on the 14k long tests/utf-8.txt, using a recent sbcl x86 64. (sb-ext:octets-to-string octets :external-format :utf-8) Evaluation took: 11.451 seconds of real time 11.336708 seconds of total run time (11.192699 user, 0.144009 system) [ Run times consist of 0.692 seconds GC time, and 10.645 seconds non-GC time. ] 99.00% CPU 20,560,951,683 processor cycles 1,927,564,096 bytes consed (trivial-utf-8:utf-8-bytes-to-string octets): Evaluation took: 7.381 seconds of real time 7.300456 seconds of total run time (7.248453 user, 0.052003 system) [ Run times consist of 0.564 seconds GC time, and 6.737 seconds non-GC time. ] 98.90% CPU 13,252,911,624 processor cycles 1,524,620,560 bytes consed (babel:octets-to-string octets :encoding :utf-8 :errorp t) Evaluation took: 3.173 seconds of real time 3.144197 seconds of total run time (3.112195 user, 0.032002 system) [ Run times consist of 0.120 seconds GC time, and 3.025 seconds non-GC time. ] 99.09% CPU 5,697,700,848 processor cycles 305,120,336 bytes consed babel with instantiating the encodings using (safety 0) Evaluation took: 2.405 seconds of real time 2.380149 seconds of total run time (2.356148 user, 0.024001 system) [ Run times consist of 0.208 seconds GC time, and 2.173 seconds non-GC time. ] 98.96% CPU 4,318,993,638 processor cycles 305,120,000 bytes consed (deftest x () (let* ((*default-character-encoding* :utf-8) (octets (with-open-file (in (asdf:system-relative-pathname :babel "tests/utf-8.txt") :element-type '(unsigned-byte 8)) (let* ((data (loop for byte = (read-byte in nil nil) until (null byte) collect byte))) (make-array (length data) :element-type '(unsigned-byte 8) :initial-contents data))))) (cl:time (loop repeat 10000 do (octets-to-string octets :encoding :utf-8 :errorp t) ;;(trivial-utf-8:utf-8-bytes-to-string octets) ;;(sb-ext:octets-to-string octets :external-format :utf-8) )))) -- attila

1 0

[babel-devel] string-to-octets optimization for base-string's
by Attila Lendvai 08 Sep '08

08 Sep '08

Luis, please take a look at the attached patch as time permits. it optimizes string-to-octets when called with simple-base-string's but unfortunately it compiles with warnings which stops asdf:load-op... the problem is with calling instantiate-concrete-mappings with simple-base-string. do you have any ideas how to handle this? i have this patch hanging around locally for quite some time now... -- attila

2 1

[babel-devel] enc- -> encoding- rename?
by Attila Lendvai 08 Sep '08

08 Sep '08

hi! there are a million different ways to abbreviate something, so i propose to rename the enc-* accessors of character-encoding to encoding-*. the following dependencies have been identified that need to be changed: - cffi - cxml - iolib anything else? any strong opinions to keep it as it is? -- attila

2 2

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

babel-devel September 2008