X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fread.lisp;h=59838d788fd744058a869aa7af0bf3a22bcd75c7;hb=d1c8c65022514f6c4c8d24447299c7039b88b802;hp=1d057bd9a1647c87f38b86eb9b98400397004b07;hpb=93bd506fb137f058bf353678223ce8d48a66e3dc;p=jscl.git diff --git a/src/read.lisp b/src/read.lisp index 1d057bd..59838d7 100644 --- 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)) - (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)))