X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fread.lisp;h=6e9eb68cc751bcb7e6d6c411e08e43bbfcdc061b;hb=a4ea8cefca32d80fb894106bb1f43677f587cdc4;hp=1d057bd9a1647c87f38b86eb9b98400397004b07;hpb=93bd506fb137f058bf353678223ce8d48a66e3dc;p=jscl.git

diff --git a/src/read.lisp b/src/read.lisp
index 1d057bd..6e9eb68 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -16,6 +16,7 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading read.lisp!")
 
 ;;;; Reader
 
@@ -253,8 +254,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)))