(DEFINE-FILE-INFO PACKAGE "SEDIT" READTABLE "XCL" BASE 10)


(IL:FILECREATED "17-Jun-2023 19:46:35" IL:|{WMEDLEY}<sources>SEDIT-LIST-FORMATS.;2|
 9581   

      :EDIT-BY IL:|rmk|

      :CHANGES-TO (IL:SEDIT-FORMATS IL:SELECTC)
                  (IL:VARS IL:SEDIT-LIST-FORMATSCOMS)

      :PREVIOUS-DATE "17-May-90 11:08:07" IL:|{WMEDLEY}<sources>SEDIT-LIST-FORMATS.;1|)


; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.

(IL:PRETTYCOMPRINT IL:SEDIT-LIST-FORMATSCOMS)

(IL:RPAQQ IL:SEDIT-LIST-FORMATSCOMS

          ((IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT)
                  IL:SEDIT-LIST-FORMATS)
           (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES IL:SEDIT-INDENT))
           (IL:SEDIT-FORMATS RETURN-FROM THROW BLOCK 

                  (IL:* IL:|;;| 

                  "some handy formats under names we don't expect to find as CAR of form")


                  :DEFAULT :DATA :BINDING :BINDING-LIST :LAMBDA-LIST :FBINDING :FBINDING-LIST 
                  :COND-CLAUSE :CASE-CLAUSE :HORIZONTAL :HORIZONTAL-NOBREAK :VERTICAL 
                  :VERTICAL-NOBREAK :KEYWORD-ARGS :KEYWORD-ARGS-NOBREAK :SQUASHED :DEDIT)
           (IL:SEDIT-FORMATS 

                  (IL:* IL:|;;| "special forms & macros")


                  AND CASE CATCH CCASE CERROR COMPILER-LET COND CTYPECASE DECLARE DEFCOMMAND 
                  DEFCONSTANT DEFDEFINER DEFUN DEFINE-SPECIAL-FORM DEFINLINE DEFGLOBALVAR 
                  DEFGLOBALPARAMETER DEF-LIST-FORMAT DEFMACRO DEFOPTIMIZER DEFPACKAGE DEFPARAMETER 
                  DEFSETF DEFSTRUCT DEFTYPE DEFVAR DESTRUCTURING-BIND DO DO* DOLIST DOTIMES 
                  DO-ALL-SYMBOLS DO-EXTERNAL-SYMBOLS DO-INTERNAL-SYMBOLS DO-LOCAL-SYMBOLS DO-SYMBOLS
                  ECASE ERROR ETYPECASE EVAL-WHEN FLET FORMAT IF IGNORE-ERRORS LABELS LAMBDA 
                  IL:LAMBDA LET LET* LOCALLY LIST LIST* MACROLET MULTIPLE-VALUE-BIND 
                  MULTIPLE-VALUE-SETQ IL:NLAMBDA IL:OPENLAMBDA OR IL:P PROCEED-CASE PROG PROG* PROGN
                  PROGV RESTART-CASE IL:SELCHARQ IL:SELECTQ IL:SELECTC TAGBODY THE TYPECASE UNDOABLY
                  UNLESS UNWIND-PROTECT WHEN WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING 
                  WITH-OPEN-FILE WITH-OPEN-STREAM IL:WITH.MONITOR IL:WITH.FAST.MONITOR IL:WITH.SPY)))

(IL:PUTPROPS IL:SEDIT-LIST-FORMATS
 IL:FILETYPE
 :COMPILE-FILE)

(IL:PUTPROPS IL:SEDIT-LIST-FORMATS
 IL:MAKEFILE-ENVIRONMENT
 NIL)
(IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE 

(IL:FILESLOAD IL:SEDIT-INDENT)
)

(DEF-LIST-FORMAT RETURN-FROM
 CATCH)

(DEF-LIST-FORMAT THROW
 CATCH)

(DEF-LIST-FORMAT BLOCK
 CATCH)

(DEF-LIST-FORMAT :DEFAULT
 "Used for lists whose CAR has no specified format."
   :INDENT :HORIZONTAL-ATOM
   :INLINE T)

(DEF-LIST-FORMAT :DATA
 "Used for quoted (not backquoted) lists."
   :INDENT :DATA
   :ARGS (:RECURSIVE)
   :INLINE T)

(DEF-LIST-FORMAT :BINDING
 :INDENT :BINDING
   :INLINE T)

(DEF-LIST-FORMAT :BINDING-LIST
 :INDENT :BINDING-LIST
   :ARGS (:BINDING)
   :INLINE NIL)

(DEF-LIST-FORMAT :LAMBDA-LIST
 :INDENT :LAMBDA-LIST
   :ARGS (:BINDING)
   :INLINE T)

(DEF-LIST-FORMAT :FBINDING
 :INDENT (:NOBREAK 1)
   :ARGS (NIL :LAMBDA-LIST NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT :FBINDING-LIST
 :INDENT :BINDING-LIST
   :ARGS (:FBINDING))

(DEF-LIST-FORMAT :COND-CLAUSE
 :INDENT :COND-CLAUSE
   :INLINE T)

(DEF-LIST-FORMAT :CASE-CLAUSE
 :INDENT :COND-CLAUSE
   :ARGS (:DATA NIL)
   :SUBLISTS (1)
   :INLINE T)

(DEF-LIST-FORMAT :HORIZONTAL
 :INDENT :HORIZONTAL
   :INLINE T)

(DEF-LIST-FORMAT :HORIZONTAL-NOBREAK
 :INDENT :HORIZONTAL
   :INLINE T
   :MISER :NEVER)

(DEF-LIST-FORMAT :VERTICAL
 :INDENT :VERTICAL
   :INLINE T)

(DEF-LIST-FORMAT :VERTICAL-NOBREAK
 :INDENT :VERTICAL
   :INLINE T
   :MISER :NEVER)

(DEF-LIST-FORMAT :KEYWORD-ARGS
 :INDENT :KEYWORD-ARG
   :INLINE T)

(DEF-LIST-FORMAT :KEYWORD-ARGS-NOBREAK
 :INDENT :KEYWORD-ARG
   :INLINE T
   :MISER :NEVER)

(DEF-LIST-FORMAT :SQUASHED
 :INDENT :SQUASH
   :INLINE T)

(DEF-LIST-FORMAT :DEDIT
 :SQUASHED)

(DEF-LIST-FORMAT AND
 :INDENT :VERTICAL
   :MISER :NEVER
   :INLINE T)

(DEF-LIST-FORMAT CASE
 :INDENT (1)
   :ARGS (NIL NIL :CASE-CLAUSE)
   :SUBLISTS T)

(DEF-LIST-FORMAT CATCH
 :INDENT (1)
   :ARGS (:KEYWORD NIL)
   :INLINE T)

(DEF-LIST-FORMAT CCASE
 CASE)

(DEF-LIST-FORMAT CERROR
 FORMAT)

(DEF-LIST-FORMAT COMPILER-LET
 LET)

(DEF-LIST-FORMAT COND
 :INDENT :VERTICAL
   :ARGS (NIL :COND-CLAUSE)
   :SUBLISTS T)

(DEF-LIST-FORMAT CTYPECASE
 TYPECASE)

(DEF-LIST-FORMAT DECLARE
 :INDENT :VERTICAL
   :ARGS (:KEYWORD :HORIZONTAL)
   :SUBLISTS T)

(DEF-LIST-FORMAT DEFCOMMAND
 DEFUN)

(DEF-LIST-FORMAT DEFCONSTANT
 DEFVAR)

(DEF-LIST-FORMAT DEFDEFINER
 :INDENT ((2)
                                     1)
   :ARGS (:KEYWORD :CASE-CLAUSE NIL :LAMBDA-LIST NIL))

(DEF-LIST-FORMAT DEFUN
 :INDENT ((2))
   :ARGS (:KEYWORD NIL :LAMBDA-LIST NIL)
   :SUBLISTS (3))

(DEF-LIST-FORMAT DEFINE-SPECIAL-FORM
 DEFUN)

(DEF-LIST-FORMAT DEFINLINE
 DEFUN)

(DEF-LIST-FORMAT DEFGLOBALVAR
 DEFVAR)

(DEF-LIST-FORMAT DEFGLOBALPARAMETER
 DEFVAR)

(DEF-LIST-FORMAT DEF-LIST-FORMAT
 :INDENT (1)
   :ARGS (:KEYWORD NIL)
   :INLINE T)

(DEF-LIST-FORMAT DEFMACRO
 DEFUN)

(DEF-LIST-FORMAT DEFOPTIMIZER


(IL:* IL:|;;;| "note: this loses in the case where OPT-NAME is specified in DEFOPTIMIZER form because we can't handle optional arguments at this level.  we could go through the pain of writing a custom indent spec...")


   DEFUN)

(DEF-LIST-FORMAT DEFPACKAGE
 :INDENT (1)
   :ARGS (:KEYWORD NIL :CASE-CLAUSE)
   :INLINE NIL)

(DEF-LIST-FORMAT DEFPARAMETER
 DEFVAR)

(DEF-LIST-FORMAT DEFSETF
 :INDENT ((3))
   :ARGS (:KEYWORD NIL :LAMBDA-LIST :BINDING NIL)
   :SUBLISTS (3 4))

(DEF-LIST-FORMAT DEFSTRUCT
 :INDENT (1)
   :ARGS (:KEYWORD NIL))

(DEF-LIST-FORMAT DEFTYPE
 DEFMACRO)

(DEF-LIST-FORMAT DEFVAR
 :INDENT (1)
   :ARGS (:KEYWORD NIL)
   :INLINE T)

(DEF-LIST-FORMAT DESTRUCTURING-BIND
 :INDENT (1 1)
   :ARGS (:KEYWORD :LAMBDA-LIST NIL)
   :INLINE NIL)

(DEF-LIST-FORMAT DO
 :INDENT (:TAGBODY 2)
   :ARGS (:KEYWORD :BINDING-LIST :COND-CLAUSE NIL)
   :SUBLISTS (2 3))

(DEF-LIST-FORMAT DO*
 DO)

(DEF-LIST-FORMAT DOLIST
 :INDENT (:TAGBODY :STEP 1)
   :ARGS (:KEYWORD :BINDING NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT DOTIMES
 DOLIST)

(DEF-LIST-FORMAT DO-ALL-SYMBOLS
 DOLIST)

(DEF-LIST-FORMAT DO-EXTERNAL-SYMBOLS
 DOLIST)

(DEF-LIST-FORMAT DO-INTERNAL-SYMBOLS
 DOLIST)

(DEF-LIST-FORMAT DO-LOCAL-SYMBOLS
 DOLIST)

(DEF-LIST-FORMAT DO-SYMBOLS
 DOLIST)

(DEF-LIST-FORMAT ECASE
 CASE)

(DEF-LIST-FORMAT ERROR
 FORMAT)

(DEF-LIST-FORMAT ETYPECASE
 TYPECASE)

(DEF-LIST-FORMAT EVAL-WHEN
 :INDENT (1)
   :SUBLISTS (2))

(DEF-LIST-FORMAT FLET
 :INDENT (1)
   :ARGS (:KEYWORD :FBINDING-LIST NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT FORMAT
 :INDENT :HORIZONTAL
   :INLINE T)

(DEF-LIST-FORMAT IF
 :INDENT (2)
   :INLINE T)

(DEF-LIST-FORMAT IGNORE-ERRORS
 UNDOABLY)

(DEF-LIST-FORMAT LABELS
 FLET)

(DEF-LIST-FORMAT LAMBDA
 :INDENT (1)
   :ARGS (:KEYWORD :LAMBDA-LIST NIL)
   :INLINE T
   :SUBLISTS (2))

(DEF-LIST-FORMAT IL:LAMBDA
 LAMBDA)

(DEF-LIST-FORMAT LET
 :INDENT (1)
   :ARGS (:KEYWORD :BINDING-LIST NIL)
   :SUBLISTS (2)
   :MISER :NEVER)

(DEF-LIST-FORMAT LET*
 LET)

(DEF-LIST-FORMAT LOCALLY
 :INDENT (0)
   :ARGS (:KEYWORD NIL)
   :SUBLISTS T)

(DEF-LIST-FORMAT LIST
 :INDENT :HORIZONTAL
   :INLINE T)

(DEF-LIST-FORMAT LIST*
 LIST)

(DEF-LIST-FORMAT MACROLET
 FLET)

(DEF-LIST-FORMAT MULTIPLE-VALUE-BIND
 :INDENT (1 1)
   :ARGS (:KEYWORD :DATA NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT MULTIPLE-VALUE-SETQ
 :INDENT (1)
   :ARGS (NIL :DATA NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT IL:NLAMBDA
 LAMBDA)

(DEF-LIST-FORMAT IL:OPENLAMBDA
 LAMBDA)

(DEF-LIST-FORMAT OR
 AND)

(DEF-LIST-FORMAT IL:P
 PROGN)

(DEF-LIST-FORMAT PROCEED-CASE
 :INDENT (1)
   :ARGS (NIL :FBINDING))

(DEF-LIST-FORMAT PROG
 :INDENT (:TAGBODY :STEP 1)
   :ARGS (:KEYWORD :BINDING-LIST NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT PROG*
 PROG)

(DEF-LIST-FORMAT PROGN
 :INDENT :VERTICAL
   :INLINE NIL)

(DEF-LIST-FORMAT PROGV
 :INDENT (1 1)
   :ARGS (:KEYWORD :DATA NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT RESTART-CASE
 :INDENT (1)
   :ARGS (NIL :FBINDING))

(DEF-LIST-FORMAT IL:SELCHARQ
 IL:SELECTQ)

(DEF-LIST-FORMAT IL:SELECTQ
 :INDENT (1)
   :ARGS (:KEYWORD NIL :CASE-CLAUSE)
   :LAST NIL)

(DEF-LIST-FORMAT IL:SELECTC
 IL:SELECTQ)

(DEF-LIST-FORMAT TAGBODY
 :INDENT (:TAGBODY :STEP 0)
   :ARGS (:KEYWORD NIL))

(DEF-LIST-FORMAT THE
 :INDENT (1)
   :ARGS (:KEYWORD NIL)
   :INLINE T)

(DEF-LIST-FORMAT TYPECASE
 CASE)

(DEF-LIST-FORMAT UNDOABLY
 :INDENT :VERTICAL
   :INLINE NIL
   :ARGS (:KEYWORD NIL))

(DEF-LIST-FORMAT UNLESS
 :INDENT (1))

(DEF-LIST-FORMAT UNWIND-PROTECT
 :INDENT (:BREAK 1))

(DEF-LIST-FORMAT WHEN
 UNLESS)

(DEF-LIST-FORMAT WITH-INPUT-FROM-STRING
 WITH-OPEN-STREAM)

(DEF-LIST-FORMAT WITH-OUTPUT-TO-STRING
 WITH-OPEN-STREAM)

(DEF-LIST-FORMAT WITH-OPEN-FILE
 WITH-OPEN-STREAM)

(DEF-LIST-FORMAT WITH-OPEN-STREAM
 :INDENT (1)
   :ARGS (NIL :KEYWORD-ARGS NIL)
   :SUBLISTS (2))

(DEF-LIST-FORMAT IL:WITH.MONITOR
 :INDENT (1))

(DEF-LIST-FORMAT IL:WITH.FAST.MONITOR
 IL:WITH.MONITOR)

(DEF-LIST-FORMAT IL:WITH.SPY
 IL:WITH.MONITOR)
(IL:PUTPROPS IL:SEDIT-LIST-FORMATS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP