;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-



;;; These files have DEFAFUNs
;;;
;;; k;trap
;;; k;trap-handlers
;;; k;datatype-ram
;;; k;cons
;;; k.array;array
;;; k.array;array2
;;; k;k-uc-tv
;;; k.math;float
;;; k.math;bignum
;;; k.math;convert
;;; k;control-pdl
;;; k;structure
;;; k;lisp-internals


(defun kom-to-buf ()
  (setq nc:*debug-stream* (open "ed-buffer:compiler-output" :direction :output))
  (nc:debug-on :post))

(defun kom-to-buf-off ()
  (close nc:*debug-stream*)
  (setq nc:*debug-stream* t))