(zwei:defcom com-k-compile-file "Compile a file for the K" ()
  (LET* ((PATHNAME (zwei:READ-DEFAULTED-PATHNAME "Compile file:" (zwei:PATHNAME-DEFAULTS))))
    (zwei:editor-compile-file pathname t :compile-function #'compiler:k-compile-file)
    zwei:dis-none))

(zwei:set-comtab zwei:*zmacs-comtab* () '(("K Compile File" . com-k-compile-file)))

(defmacro frobitz (body)
  `(cons ',body))