;;;   -*- Mode:LISP; Package:ZWEI; Readtable:ZL; Base:8 -*-

(DEFCOM COM-CRassCOMPILE-REGION "Crosscompile the current region or defun.
 If there is a region, it is compiled.
 Otherwise, the current or next defun is compiled." ()
 (with-open-stream (*standard-output*
		     (open-editor-stream :buffer-name "Crass Crumple"
					 :create-p t
					 :start (if *numeric-arg-p* :beginning :end)
					 ;; :start :beginning :end :end
					 :kill *numeric-arg-p*
					 ))
   (let ((*trace-output* *standard-output*)
	 (nc:*debug-flag* (or nc:*debug-flag* (list :post))))
     (COMPILE-DEFUN-INTERNAL
       (or (get-buffer-compiler *interval*) T)
       "Crass Crumpling"
       "Crumpled"
       :query-io				;USE-TYPEOUT
       NIL					;DEFVAR-HACK
       '(:MODE COMPILER:MACRO-COMPILE)		;generating-micro-compiler-input-p
						;will wind up getting set however.
       'COMPILER:K				;*target-computer*
       compiler:*falcon-environment*		;compilation-environment
       )))
 DIS-NONE)