Changeset 7316
- Timestamp:
- Sep 28, 2007, 7:14:57 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-1/l1-streams.lisp
r7314 r7316 2641 2641 (when character-p 2642 2642 (setf (ioblock-unread-char-function ioblock) '%ioblock-untyi) 2643 (setf (ioblock-decode-literal-code-unit-limit ioblock) 2644 (if encoding 2645 (character-encoding-decode-literal-code-unit-limit encoding) 2646 256)) 2643 2647 (if encoding 2644 2648 (let* ((unit-size (character-encoding-code-unit-size encoding))) … … 2828 2832 (setf (ioblock-sharing ioblock) sharing)) 2829 2833 (when character-p 2834 (setf (ioblock-encode-literal-char-code-limit ioblock) 2835 (if encoding 2836 (character-encoding-encode-literal-char-code-limit encoding) 2837 256)) 2830 2838 (if encoding 2831 2839 (let* ((unit-size (character-encoding-code-unit-size encoding))) … … 2904 2912 (setf (ioblock-write-byte-function ioblock) 2905 2913 (cond ((= subtag target::subtag-u8-vector) 2906 2907 2908 2909 2910 2911 2912 2914 (progn 2915 (setf (ioblock-write-byte-when-locked-function ioblock) 2916 '%ioblock-write-u8-byte) 2917 (case sharing 2918 (:private '%private-ioblock-write-u8-byte) 2919 (:lock '%locked-ioblock-write-u8-byte) 2920 (t '%ioblock-write-u8-byte)))) 2913 2921 ((= subtag target::subtag-s8-vector) 2914 2922 (setf (ioblock-write-byte-when-locked-function ioblock) 2915 2923 '%ioblock-write-s8-byte) 2916 2917 2918 2919 2924 (case sharing 2925 (:private '%private-ioblock-write-s8-byte) 2926 (:lock '%locked-ioblock-write-s8-byte) 2927 (t '%ioblock-write-s8-byte))) 2920 2928 ((= subtag target::subtag-u16-vector) 2921 2929 (setf (ioblock-write-byte-when-locked-function ioblock) 2922 2930 '%ioblock-write-u16-byte) 2923 2924 2925 2926 2931 (case sharing 2932 (:private '%private-ioblock-write-u16-byte) 2933 (:lock '%locked-ioblock-write-u16-byte) 2934 (t '%ioblock-write-u16-byte))) 2927 2935 ((= subtag target::subtag-s16-vector) 2928 2936 (setf (ioblock-write-byte-when-locked-function ioblock) 2929 2937 '%ioblock-write-s16-byte) 2930 2931 2932 2933 2938 (case sharing 2939 (:private '%private-ioblock-write-s16-byte) 2940 (:lock '%locked-ioblock-write-s16-byte) 2941 (t '%ioblock-write-s16-byte))) 2934 2942 ((= subtag target::subtag-u32-vector) 2935 2943 (setf (ioblock-write-byte-when-locked-function ioblock) 2936 2944 '%ioblock-write-u32-byte) 2937 2938 2939 2940 2945 (case sharing 2946 (:private '%private-ioblock-write-u32-byte) 2947 (:lock '%locked-ioblock-write-u32-byte) 2948 (t '%ioblock-write-u32-byte))) 2941 2949 ((= subtag target::subtag-s32-vector) 2942 2950 (setf (ioblock-write-byte-when-locked-function ioblock) 2943 2951 '%ioblock-write-s32-byte) 2944 2952 (case sharing 2945 2946 2947 2953 (:private '%private-ioblock-write-s32-byte) 2954 (:lock '%locked-ioblock-write-s32-byte) 2955 (t '%ioblock-write-s32-byte))) 2948 2956 #+64-bit-target 2949 2957 ((= subtag target::subtag-u64-vector) … … 2951 2959 '%ioblock-write-u64-byte) 2952 2960 (case sharing 2953 2954 2955 2961 (:private '%private-ioblock-write-u64-byte) 2962 (:lock '%locked-ioblock-write-u64-byte) 2963 (t '%ioblock-write-u64-byte))) 2956 2964 #+64-bit-target 2957 2965 ((= subtag target::subtag-s64-vector) … … 2959 2967 '%ioblock-write-u64-byte) 2960 2968 (case sharing 2961 2962 2963 2969 (:private '%private-ioblock-write-s64-byte) 2970 (:lock '%locked-ioblock-write-s64-byte) 2971 (t '%ioblock-write-s64-byte))) 2964 2972 (t 2965 2973 (setf (ioblock-write-byte-when-locked-function ioblock) … … 3057 3065 (setf (ioblock-owner ioblock) *current-process*)) 3058 3066 (setf (ioblock-encoding ioblock) encoding) 3059 (setf (ioblock-decode-literal-code-unit-limit ioblock)3060 (if encoding3061 (character-encoding-decode-literal-code-unit-limit encoding)3062 256))3063 (setf (ioblock-encode-literal-char-code-limit ioblock)3064 (if encoding3065 (character-encoding-encode-literal-char-code-limit encoding)3066 256))3067 3067 (when insize 3068 3068 (unless (ioblock-inbuf ioblock)
Note: See TracChangeset
for help on using the changeset viewer.