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