;;; -*- Mode:Lisp; Syntax:Common-Lisp; Package:(SPARSER LISP) -*-
  copyright ( c ) 1992        -- all rights reserved
;;;
;;;     File:  "show parse"
;;;   module:  "interface;windows:"
   Version :   March 1992

(in-package :sparser)


(defun Window-to-show-parse (&key window-name )
  (oneof *fred-window*
         :file-name window-name
         :window-font '(9 "monaco")
         :stream-line-length 70
         :scratch-p t ))


 -*- Mode:Lisp; Syntax:Common-Lisp; Package:(SPARSER LISP) -*-

     File:  "show parse"
   module:  "interface;windows:"
  copyright ( c ) 1992        -- all rights reserved
   Version :   March 1992

(in-package :sparser)


(defun Window-to-show-parse (&key window-name )
  (oneof *fred-window*
         :file-name window-name
         :window-font '(9 "monaco")
         :stream-line-length 70
         :scratch-p t ))

