Needed conditionalizations:

   #+(OR TI LMI)
   (defmacro tex-word (buffer) ...)



  #+(OR Symbolics LMI)
  (defun get-hp-buffer-size (stream) ...)
although code is untested in lmi. dont have plotter
need for TI kludges is unclear.


In HP-FONTS.LISP there was this code:
		#+Symbolics(signal 'sys:abort)
		#+TI(signal 'sys:abort nil)
Which should be instead (signal-abort)
Evidently the hacker adding this code didnt notice the new function signal-abort
which is used extensively to avoid large numbers of seperate conditionizations.


Note: All files must have SYNTAX:ZETALISP.
(Found this because si:initial-readtable and si:find-readtable-named "ZETALISP"
 are not EQ in the LMI system. So that the sharp-doublequote readmacro
 did not show up in all files.)
Had to add this to quite a few files.

Many calls to one arg typep,

e.g.

(defmacro layout-entry-type (entry)
  `(selectq (typep ,entry)
     (layout-character-entry :character)
     (layout-rule-entry :rule)))

Should be

(defmacro layout-entry-type (entry)
  `(typecase ,entry
     (layout-character-entry :character)
     (layout-rule-entry :rule)))

These I did not change since they work. Good for a cleanup though.

**BUG FIXES**

(add-hardcopy-device :postscript "PostScript" '(:solids :tex-text)
		     :write-postscript-file-to-file "PS"
		     '(:characters t :byte-size nil) (make-PostScript-stream))

Byte size of NIL????? What is that supposed to do?
LMI system says that is an illegal byte size, which seems reasonable
to me. So I removed the specification of byte size here.


  


Warnings for file LAD: ILLUSTRATE; CFM.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; CFM.LISP#>

<< While compiling (:METHOD PRESS-TEXT :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD HP-TEXT :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD PRESS-ARROW :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD PRIMITIVE-GRAPHIC-OBJECT :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD POINT :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD LINE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SEGMENTED-OBJECT :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD PAINTING :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SPLINE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD CIRCLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD RECTANGLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SPLINE-ARC :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD CIRCULAR-ARC :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD NGON :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD TRIANGLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD CONTINUOUS-LINES :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SOLID-CIRCLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SOLID-RECTANGLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SOLID-CIRCULAR-ARC :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SOLID-NGON :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD SOLID-TRIANGLE :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD TEX-CAPTION :COMBINED :COPY) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; DEMO.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; DEMO.LISP#>

<< While compiling (:INTERNAL WAIT-FOR-PROCESS-DONE 0) >>
 PROCESS-WHOSTATE is an obsolete function; this function is now SI:PROCESS-WAIT-WHOSTATE.
<< While compiling DEMO-FROM-BUFFER1 >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; QMS-FILES.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; QMS-FILES.LISP#>

<< While compiling (:METHOD QMS-FILE-STREAM :GRAPH-TRIANGLE) >>
 The undefined function TV::%DRAW-FILLED-TRIANGLE was called
 The variable TV::100%-BLACK is used free; assumed special.
<< While compiling (:METHOD QMS-FILE-STREAM :DRAW-LAYOUT) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; IMAGEN-FILES.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; IMAGEN-FILES.LISP#>

<< While compiling (:METHOD IMAGEN-STREAM :DRAW-LAYOUT) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD IMAGEN-STREAM :DOWNLOAD-LAYOUT-FONTS) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; TEX-CAPTIONS.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; TEX-CAPTIONS.LISP#>

<< While compiling (:METHOD ILL-FILE-STREAM :OUTPUT-LAYOUT-ENTRIES) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; DRAW-LAYOUT.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; DRAW-LAYOUT.LISP#>

<< While compiling LAYOUT->VECTORS >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; TOPLEVEL.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; TOPLEVEL.LISP#>

<< While compiling (:METHOD ILL-FRAME :ILL-TOP-LEVEL-LOOP) >>
 BIND is an obsolete function; use SYS:%BIND.
<< While compiling TOP-LEVEL-SUSPEND >>
 BIND is an obsolete function; use SYS:%BIND.
<< While compiling CHANGE-NGON-ITEM >>
 (STRING-EQUAL OLD (FIRST ITEM) 0 ...) is an obsolete non-keyworded call to STRING-EQUAL
 You should be using (STRING-EQUAL OLD (FIRST ITEM) :START1 0 :START2 0 :END1 LTH :END2 LTH) instead.
<< While compiling (:METHOD ILL-FRAME :EDIT-OBJECT) >>
 TEX-CAPTION is not a known type specifier

Warnings for file LAD: ILLUSTRATE; COMMANDS.LISP#>

Warnings for file LAD: ILLUSTRATE; ARROWS.LISP#>

Warnings for file LAD: ILLUSTRATE; POSTSCRIPT-FILES.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; POSTSCRIPT-FILES.LISP#>

<< While compiling (:METHOD POSTSCRIPT-STREAM :DRAW-LAYOUT) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD POSTSCRIPT-STREAM :PROCESS-CHARACTER-ENTRIES-FROM) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling (:METHOD POSTSCRIPT-STREAM :DOWNLOAD-LAYOUT-FONTS) >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; READ-PRESS-FILES.LISP#>

Warnings for file LAD: ILLUSTRATE; GRAPH.LISP#>

Warnings for file LAD: ILLUSTRATE; SHAPES.LISP#>

Warnings for file LAD: ILLUSTRATE; BUFFER-ICONS.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; BUFFER-ICONS.LISP#>

<< While compiling (:METHOD BUFFER-ICON :GRAPH-TRIANGLES) >>
 The undefined function TV::%DRAW-FILLED-TRIANGLE was called
 The variable TV::100%-BLACK is used free; assumed special.

Warnings for file LAD: ILLUSTRATE; OBJECTS.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; OBJECTS.LISP#>

<< While compiling (:METHOD ILL-BUFFER :READ-ILL-FILE) >>
 HP-TEXT is not a known type specifier

Warnings for file LAD: ILLUSTRATE; GRAPHICS.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; GRAPHICS.LISP#>

<< While compiling (:METHOD ILL-GRAPHICS-PANE :PAINT) >>
 No cleanup-forms for UNWIND-PROTECT form

Warnings for file LAD: ILLUSTRATE; TRANSFORMATIONS.LISP#>

Warnings for file LAD: ILLUSTRATE; BUFFERS.LISP#>

Warnings for file LAD: ILLUSTRATE; GRID.LISP#>

Warnings for file LAD: ILLUSTRATE; FRAME.LISP#>

Warnings for file LAD: ILLUSTRATE; LAYOUT.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; LAYOUT.LISP#>

<< While compiling COPY-LAYOUT-ENTRY >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling ADD-LAYOUT-CHARACTER-ENTRY >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling COMPUTE-LAYOUT-DIMENSIONS >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF
<< While compiling DESCRIBE-ENTRY >>
 TYPEP called with one argument is obsolete;
  You should probably be using either a two-arg call to TYPEP or TYPE-OF

Warnings for file LAD: ILLUSTRATE; TEX-FONT-DATABASE.LISP#>

Warnings for compilation of file LAD: ILLUSTRATE; TEX-FONT-DATABASE.LISP#>

<< While compiling TEX-FONT-GET-IFD >>
 IFD-FILE is not a known type specifier
<< While compiling TEX-FONT-GET-TFM >>
 TFM-FILE is not a known type specifier
<< While compiling TEX-FONT-GET-PXL >>
 PXL-FILE is not a known type specifier