(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")

(FILECREATED " 3-Dec-86 12:01:43" {ERIS}<LISPCORE>INTERNAL>LIBRARY>FASL-DEBUG.;3
 3296   

      changes to%:  (VARS FASL-DEBUGCOMS)
                    (FUNCTIONS FASL-LOAD DUMP-SOME-TEXT TEST-FASL-OUT DUMP-SOME-VALUES READ-BACK-FASL 
                           PROCESS-TEXT PROCESS-ITEM MAKE-FASL-TRACE-WINDOW)

      previous date%: "19-Sep-86 13:32:53" {ERIS}<LISPCORE>INTERNAL>LIBRARY>FASL-DEBUG.;1)


(* "
Copyright (c) 1986 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT FASL-DEBUGCOMS)

(RPAQQ FASL-DEBUGCOMS
 ((FUNCTIONS FASL-LOAD TEST-FASL-OUT DUMP-SOME-TEXT DUMP-SOME-VALUES 
                              READ-BACK-FASL PROCESS-TEXT PROCESS-ITEM MAKE-FASL-TRACE-WINDOW)
                       (PROP FILETYPE FASL-DEBUG)))

(CL:DEFUN FASL-LOAD
 (NAME) (CL:WITH-OPEN-FILE (S NAME :DIRECTION :INPUT)
                                  (FASL:PROCESS-FILE S)))


(CL:DEFUN TEST-FASL-OUT
 NIL (FASL:WITH-OPEN-HANDLE (HANDLE "test.dfasl;1" :IF-EXISTS :OVERWRITE)
                                   (DUMP-SOME-TEXT HANDLE "This is a test.")
                                   (DUMP-SOME-VALUES HANDLE)))


(CL:DEFUN DUMP-SOME-TEXT
 (HANDLE STRING) (CL:PRINC STRING (FASL:BEGIN-TEXT HANDLE)))


(CL:DEFUN DUMP-SOME-VALUES
 (HANDLE) (FASL:BEGIN-BLOCK HANDLE)
                                    (FASL:DUMP-VALUE HANDLE 1.1)
                                    (FASL:DUMP-VALUE HANDLE -1.1)
                                    (FASL:DUMP-VALUE HANDLE 0.11)
                                    (FASL:DUMP-VALUE HANDLE -0.11))


(CL:DEFUN READ-BACK-FASL
 (&OPTIONAL (NAME "test.dfasl")) [WITH-OPEN-FILE (S NAME :DIRECTION :INPUT)
                                                                (CL:UNLESS (EQL (BIN S)
                                                                                FASL:SIGNATURE)
                                                                       (CL:ERROR 
                                                                              "Incorrect signature.")
                                                                       )
                                                                (FASL:CHECK-VERSION S)
                                                                (CL:LOOP (CL:WHEN (EOFP S)
                                                                                (RETURN))
                                                                       (FASL:PROCESS-SEGMENT
                                                                        S
                                                                        #'PROCESS-TEXT
                                                                        #'PROCESS-ITEM])


(CL:DEFUN PROCESS-TEXT
 (S) (CL:PRINC S)
                           (CL:TERPRI))


(CL:DEFUN PROCESS-ITEM
 (X) (CL:FORMAT T "Value: ~S~%%" X))


(CL:DEFUN MAKE-FASL-TRACE-WINDOW
 NIL (LET ((W (CREATEW NIL "FASL trace")))
                                          (DSPSCROLL 'ON W)
                                          (CL:SETF FASL::DEBUG-STREAM (GETSTREAM W))))


(PUTPROPS FASL-DEBUG FILETYPE
 CL:COMPILE-FILE)
(PUTPROPS FASL-DEBUG COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP