<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi all,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>Noticed a strange problem with CM (and sc.lisp) and SBCL today in the way scientific notation is formatted with dumposc. Basically, a value like 3.0e-4 will be formatted like 3.e-4 . This causes a problem in the SC interpreter since the '.' , if not followed by a numeral, is interpreted as a message operator. Checking for floats in the parse-osc-vec section of dumposc seems to take care of the problem. SBCL is the only LISP where the problem seem to come up (openmcl doesn't care). Here is a changed version of dumposc. An if statement is added in the dolist part. </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>(defun dumposc (file &rest args)</DIV><DIV> (let ((out (if (null args) t (car args))) (fil nil))</DIV><DIV> (unwind-protect</DIV><DIV> (progn</DIV><DIV> (setf fil (open-file file ':input ':byte))</DIV><DIV> (when fil</DIV><DIV> (format out "~%[")</DIV><DIV> (do ((len 0)</DIV><DIV> (one nil)</DIV><DIV> (vec nil))</DIV><DIV> ((not len) nil)</DIV><DIV> (setf len (sc-read-bytes fil 4))</DIV><DIV> (when len</DIV><DIV> (setf len (u8vector->int len))</DIV><DIV> (setf vec (sc-read-bytes fil len)))</DIV><DIV> (parse-osc-vec vec</DIV><DIV> (lambda (time cmd args)</DIV><DIV> (format out (if one ",~%" "~%"))</DIV><DIV> (format out "[~s" time)</DIV><DIV> (format out ", [~s" cmd)</DIV><DIV> (dolist (c args) (if (floatp c)</DIV><DIV> (format out ", ~F" c)</DIV><DIV> (format out ", ~s" c)))</DIV><DIV> (format out "]]")</DIV><DIV> (setf one t))))</DIV><DIV> (format out "~%]~%")))</DIV><DIV> (when fil (close-file fil ':input)))</DIV><DIV> (if fil out nil)))</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Can this be changed in the source?</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Thanks,</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Josh</DIV><DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>******************************************</DIV><DIV>Joshua Parmenter</DIV><DIV>University of Washington</DIV><DIV>Center for Digital Arts and Experimental Media</DIV><DIV>School of Music</DIV><DIV>Seattle, Washington 98195</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><A href="http://www.realizedsound.net/josh/">http://www.realizedsound.net/josh/</A></DIV><DIV><A href="http://www.dxarts.washington.edu">http://www.dxarts.washington.edu</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV></SPAN></SPAN><BR class="Apple-interchange-newline"></SPAN></SPAN></SPAN></SPAN></SPAN> </DIV><BR></DIV></BODY></HTML>