Changeset 13388 for branches

Timestamp:

Jan 14, 2010, 12:51:46 PM (11 years ago)

Author:

gz

Message:

fix for objdump parsing

File:

• branches/working-0711/ccl/library/core-files.lisp (modified) (1 diff)

branches/working-0711/ccl/library/core-files.lisp

@@ -130 +130 @@
                        for start = (1+ (position #\newline string :start header-pos)) then (1+ end)
                        for end = (or (position #\newline string :start start) (length string))
-                       while (and (< start end) (eql #\space (aref string start)))
+                       while (and (< start end) (find (aref string start) " 123456789"))
                        nconc
                        (multiple-value-bind (name address filepos size)