Index: /branches/ide-1.0/ccl/hemlock/src/filecoms.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/filecoms.lisp	(revision 6769)
+++ /branches/ide-1.0/ccl/hemlock/src/filecoms.lisp	(revision 6770)
@@ -46,4 +46,5 @@
    \"Mode\" mode option is specified, then this tries to invoke the appropriate
    file type hook."
+  (#_NSLog #@"processing file options")
   (let* ((string
 	  (line-string (mark-line (buffer-start-mark buffer))))
@@ -146,5 +147,5 @@
   (setf (buffer-major-mode buffer) "Pascal"))
 
-(define-file-type-hook ("lisp" "slisp" "l" "lsp" "mcl") (buffer type)
+(define-file-type-hook ("lisp" "slisp" "l" "lsp" "mcl" "cl") (buffer type)
   (declare (ignore type))
   (setf (buffer-major-mode buffer) "Lisp"))
@@ -647,9 +648,6 @@
   (let* ((document (hi::buffer-document buffer)))
     (when document
-      (when (or (buffer-modified buffer)
-                (prompt-for-y-or-n 
-                 :prompt "Buffer is unmodified, write it anyway? "
-                 :default t))
-          (hi::save-hemlock-document document)))))
+      (when (buffer-modified buffer)
+        (hi::save-hemlock-document document)))))
 
 (defhvar "Save All Files Confirm"