projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.26.7: use a signal for SIG_STOP_FOR_GC > SIGSEGV on Linux
[sbcl.git]
/
src
/
code
/
octets.lisp
diff --git
a/src/code/octets.lisp
b/src/code/octets.lisp
index
eb87cd1
..
32344cc
100644
(file)
--- a/
src/code/octets.lisp
+++ b/
src/code/octets.lisp
@@
-402,8
+402,9
@@
one-past-the-end"
(macrolet ((ascii-bash ()
'(let ((array (make-array (+ null-padding (- send sstart))
:element-type '(unsigned-byte 8))))
(macrolet ((ascii-bash ()
'(let ((array (make-array (+ null-padding (- send sstart))
:element-type '(unsigned-byte 8))))
- (loop for i from sstart below send
- do (setf (aref array i) (char-code (char string i))))
+ (loop for i from 0
+ and j from sstart below send
+ do (setf (aref array i) (char-code (char string j))))
array)))
(etypecase string
((simple-array character (*))
array)))
(etypecase string
((simple-array character (*))