(setq name (subseq string index))))
;; Canonalize symbol name and package
(setq name (if (equal package "JS")
(setq name (subseq string index))))
;; Canonalize symbol name and package
(setq name (if (equal package "JS")
(unless (= index size) (return))
;; Everything went ok, we have a float
;; XXX: Use FLOAT when implemented.
(unless (= index size) (return))
;; Everything went ok, we have a float
;; XXX: Use FLOAT when implemented.