LMFL#!C(:PADDED T :HOST "SYS" :BACKUP-DATE 2773681984. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "LISP" :NAME "FASD-COLOR-MAPS" :DIRECTORY ("REL3-2" "COLOR-MAP-EDITOR") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-2\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2769516004. :AUTHOR "REL3-2" :LENGTH-IN-BYTES 1511. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-(DEFUN TV:WRITE-COLOR-MAP-FILE (MAP)  "Save this color map to a file which defaults to LM:COLOR-MAPS;name-of-map.XLD.The user is prompted for a name; that symbol will be set to the color map, and the name slot of the map will be set to the stringified symbol. Subsequent loading of the file (via the LOAD command) sets the name-of-map symbol back to this value."   (UNLESS MAP    (BEEP)     (FORMAT *QUERY-IO* "There is no current color map.~%")    (RETURN-FROM TV:WRITE-COLOR-MAP-FILE))  (CHECK-TYPE MAP TV:COLOR-MAP)  (LET* ((MAP-NAME (PROMPT-AND-READ :READ "What will be the name of your color map? "))  (FILENAME (FS:MAKE-PATHNAME :HOST "LM"     :DIRECTORY "COLOR-MAPS"     :NAME (SYMBOL-NAME MAP-NAME))))    (SETF (SYMBOL-VALUE MAP-NAME) MAP)    (COMPILER:FASD-COLOR-MAP MAP-NAME FILENAME)))(DEFUN COMPILER:FASD-COLOR-MAP (MAP-SYMBOL FILENAME)  (LET ((TEM (SYMBOL-VALUE MAP-SYMBOL))TRUENAME)    (UNWIND-PROTECT(PROGN  (SETF (TV:COLOR-MAP-NAME TEM) (STRING MAP-SYMBOL))  (SETF (SYMBOL-VALUE MAP-SYMBOL)(DO ((M MAP-SYMBOL (SYMBOL-VALUE M)))    ((OR (NULL M) (NOT (SYMBOLP M)) (NOT (BOUNDP M)))     M)))  (SETQ TRUENAME (COMPILER:DUMP-FORMS-TO-FILE FILENAME      `((SETF ,MAP-SYMBOL ,TEM)(PUSHNEW ',MAP-SYMBOL tv:*COLOR-MAPS*))      `(:COLOR-MAP-SYMBOL ,MAP-SYMBOL :PACKAGE :USER))))      (SETF (SYMBOL-VALUE MAP-SYMBOL) TEM)      (PUSHNEW MAP-SYMBOL TV:*COLOR-MAPS*))    TRUENAME))