[编程交流] DCL错误

(defun create_dialog ()
 (vl-load-com)
 (setq fname (vl-filename-mktemp "dcl.dcl"))
 (setq fn (open fname "w"))
(write-line
'' Mapsc : dialog {
 label = "Default Mapscale Settings";
 initial_focus = "";
 spacer;
:boxed_column {
   label = "Horizontal Scale";
   alignment = centered;
   width = 25;
   fixed_width = true;
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "";
       key = "List1";
     }
   }
   : popup_list {
     key = "List2";
     width = 15;
     fixed_width = true;
   }
 }
}
:boxed_column {
   label = "Geodetic Parameters Details";
   alignment = centered;
   width = 25;
   fixed_width = true;
   : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select Datum";
     }
   }
   : popup_list {
     key = "List3";
     width = 15;
     fixed_width = true;
   }
 }
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select UTM Zone";
     }
   }
   : popup_list {
     key = "List4";
     width = 8;
     fixed_width = true;
   }
 }
 : row {
   fixed_width = true;
   : column {
     width = 25;
     fixed_width = true;
     spacer;
     : text {
       label = "Select Hemisphere";
     }
   }
   : popup_list {
     key = "List5";
     width = 8;
     fixed_width = true;
   }
 }
}
 spacer;
 : row {
   fixed_width = true;
   alignment = centered;
   : ok_button {
     width = 11;
   }
   : cancel_button {
     width = 11;
   }
 }
}
'' fn)
 (close fn)
)

(write-line "Mapsc : dialog {
                 label = [color=red]\[/color]"Default Mapscale Settings[color=red]\[/color]";
                 initial_focus = [color=red]\[/color]"[color=red]\[/color]";
                 spacer;" ...