transcribe-file bug ?

The parser seems to be inserting a #\"NEWLINE" into one of my defuns.
Here is the code:

----------------------------------

#! (:export t :library "SDL" :ignore "DECLSPEC" :pack 4 )
#define CD_FPS	75
!#

#! (:export t :library "SDL" :ignore "DECLSPEC" :pack 4 )
#LISP (progn
	(export 'FRAMES_TO_MSF)
	(defun FRAMES_TO_MSF (f)
        (let ((value f) (temp-ff nil) (temp-s nil))
            (setf temp-ff (mod value CD_FPS))
            (setf value (/ value CD_FPS))
            (setf temp-s (mod value 60))
            (setf value (/ value 60))
            (values temp-ff temp-s value))))

//#define MSF_TO_FRAMES(M, S, F)	((M)*60*CD_FPS+(S)*CD_FPS+
(F))
#LISP (progn
	(export 'MSF_TO_FRAMES)
	(defun MSF_TO_FRAMES (M S F)
        (+ 
            (* M 60 CD_FPS)
            (* S CD_FPS)
            F)))
!#

----------------------------------

And here is the result after TRANSLATE-FILE

----------------------------------


;;; a-test-ffi.lisp -- Automatically generated FFI definition file.
;;; Source: a-test.lisp
;;; Transcribed: 12:06 AM June 6, 2003 PDT

(PROGN (EXPORT '(CD_FPS)) (DEFCONSTANT CD_FPS 75))
(PROGN
    (PROGN
        (EXPORT 'FRAMES_TO_MSF)
        (DEFUN FRAMES_TO_MSF (F)
            (LET#\"NEWLINE"                ((VALUE F)
                    (TEMP-FF NIL)
                    (TEMP-S NIL))
                (SETF TEMP-FF (MOD VALUE CD_FPS))
                (SETF VALUE (/ VALUE CD_FPS))
                (SETF TEMP-S (MOD VALUE 60))
                (SETF VALUE (/ VALUE 60))
                (VALUES TEMP-FF TEMP-S VALUE))))
    (PROGN
        (EXPORT 'MSF_TO_FRAMES)
        (DEFUN MSF_TO_FRAMES (M S F)
            (+ (* M 60 CD_FPS) (* S CD_FPS) F))))

----------------------------------

Note the (LET#\"NEWLINE" in (DEFUN FRAMES_TO_MSF 

It seems the let is not being parsed correctly.

-Luke


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get A Free Psychic Reading! Your Online Answer To Life's Important Questions.
http://us.click.yahoo.com/Lj3uPC/Me7FAA/ySSFAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/