projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'strings'
[jscl.git]
/
src
/
read.lisp
diff --git
a/src/read.lisp
b/src/read.lisp
index
1d057bd
..
59838d7
100644
(file)
--- a/
src/read.lisp
+++ b/
src/read.lisp
@@
-253,8
+253,8
@@
(let ((descriptor (subseq (read-until stream #'terminalp) 1))
(subdescriptors nil))
(do* ((start 0 (1+ end))
(let ((descriptor (subseq (read-until stream #'terminalp) 1))
(subdescriptors nil))
(do* ((start 0 (1+ end))
- (end (position #\: (subseq descriptor start))
- (position #\: (subseq descriptor start))))
+ (end (position #\: descriptor :start start)
+ (position #\: descriptor :start start)))
((null end)
(push (subseq descriptor start) subdescriptors)
`(oget *root* ,@(reverse subdescriptors)))
((null end)
(push (subseq descriptor start) subdescriptors)
`(oget *root* ,@(reverse subdescriptors)))