Re: [Gcl-devel] load-time value support, closed compile bugs in ANSI test suite

[Paul F. Dietz]

Mike Thomas wrote:
> Hi Camm.
>
> Your fixes of last night seem to be working so far, thanks.
>
> The ANSI "make test-unixport" reports:
>
>   1208 out of 18545 total tests failed

I'm seeing this (built with --enable-ansi on a Redhat 9 x86 machine
this morning), then doing (load "gclload.lsp") in a running lisp:

1041 out of 18553 total tests failed: COMMON-LISP-USER-PACKAGE-NICKNAMES,
   NO-EXTRA-SYMBOLS-EXPORTED-FROM-COMMON-LISP, CL-FUNCTION-SYMBOLS.1,
   CL-MACRO-SYMBOLS.1, CL-VARIABLE-SYMBOLS.1, SYMBOL-VALUE.ERROR.5,
   SYMBOL-FUNCTION.ERROR.5, SPECIAL-OPERATOR-P.1, SPECIAL-OPERATOR-P.2,
   EVAL-AND-COMPILE-MACROS, CONSTANTP.6, CONSTANTP.8,
   CONSTANTP.ORDER.2, EVAL-WHEN.1, DEFINE-COMPILER-MACRO.ERROR.1,
   DEFINE-COMPILER-MACRO.ERROR.2, DEFINE-COMPILER-MACRO.ERROR.3,
   DEFINE-SYMBOL-MACRO.ERROR.1, DEFINE-SYMBOL-MACRO.ERROR.2,
   DEFINE-SYMBOL-MACRO.ERROR.3, THE.14, THE.15, THE.18, THE.20, THE.22,
   THE.23, DCF-FUNS, DCF-MACROS, SETF-VALUES.5, PSETQ.7, PSETF.7,
   ROTATEF.3, DEFINE-SETF-EXPANDER.ERROR.1, THROW-ERROR, DEFUN.4,
   DESTRUCTURING-BIND.20, DESTRUCTURING-BIND.21, EQUALP.21, EQUALP.22,
   EQUALP.23, EQUALP.24, EQUALP.25, EQUALP.27, EQUALP.29, EQUALP.31,
   EQUALP.32, EQUALP.33, EQUALP.34, EQUALP.35, FDEFINITION.ERROR.5,
   FLET.17, FLET.51, FMAKUNBOUND.4, FUNCALL.ERROR.3,
   FUNCTION-LAMBDA-EXPRESSION.1, FUNCTION-LAMBDA-EXPRESSION.2,
   FUNCTION-LAMBDA-EXPRESSION.ORDER.1,
   FUNCTION-LAMBDA-EXPRESSION.ERROR.1,
   FUNCTION-LAMBDA-EXPRESSION.ERROR.2, FUNCTION.2, FUNCTION.6,
   FUNCTION.10, FUNCTIONP.2, FUNCTIONP.6, FUNCTIONP.10,
   GET-SETF-EXPANSION.ERROR.1, GET-SETF-EXPANSION.ERROR.2, LABELS.17,
   LABELS.26, MACROLET.5, MACROLET.13, MACROLET.14, MACROLET.32,
   MACROLET.36, MACROLET.39, SYMBOL-MACROLET.3,
   SYMBOL-MACROLET.ERROR.1, SYMBOL-MACROLET.ERROR.2,
   SYMBOL-MACROLET.ERROR.3, MULTIPLE-VALUE-SETQ.5,
   MULTIPLE-VALUE-SETQ.8, LOOP-FINISH.ERROR.1, LOOP.1.50, LOOP.1.51,
   LOOP.1.53, LOOP.1.54, LOOP.1.55, LOOP.1.56, LOOP.11.29, LOOP.11.30,
   LOOP.11.31, LOOP.11.32, LOOP.11.33, LOOP.11.34, CLASS-20.1,
   CLASS-20.2, CLASS-20.3, CLASS-21.1, CLASS-21.2, CLASS-21.4,
   CLASS-21.5, CLASS-23.3, CLASS-23.4, CLASS-24.2, CLASS-28.1,
   CLASS-28.2, CLASS-0203.1, CLASS-0203.2, CLASS-0221.1, CLASS-0221.2,
   CLASS-0221.3, CLASS-0309.1, CLASS-0310.1, DEFCLASS.FORWARD-REF.1,
   DEFCLASS.FORWARD-REF.2, DEFCLASS.FORWARD-REF.3,
   DEFCLASS.FORWARD-REF.4, ALLOCATE-INSTANCE.5,
   ALLOCATE-INSTANCE.ERROR.1, CHANGE-CLASS.1.7, CHANGE-CLASS.7.5,
   SLOT-MAKUNBOUND.1, SLOT-MAKUNBOUND.2, SLOT-MAKUNBOUND.ORDER.1,
   SLOT-MAKUNBOUND.ORDER.2, SLOT-MISSING.2, SLOT-MISSING.3,
   SLOT-MISSING.6, SLOT-MISSING.7, SLOT-MISSING.8, SLOT-UNBOUND.3,
   SLOT-UNBOUND.4, SLOT-UNBOUND.5, SLOT-UNBOUND.6,
   METHOD-QUALIFIERS.ERROR.1, METHOD-QUALIFIERS.ERROR.2,
   REMOVE-METHOD.1, MAKE-INSTANCES-OBSOLETE.2, MAKE-LOAD-FORM.4,
   MAKE-LOAD-FORM.5, MAKE-LOAD-FORM.6, MAKE-LOAD-FORM.7,
   MAKE-LOAD-FORM.8, MAKE-LOAD-FORM.9, MAKE-LOAD-FORM.10,
   MAKE-LOAD-FORM.11, MAKE-LOAD-FORM.12, MAKE-LOAD-FORM.ERROR.2,
   MAKE-LOAD-FORM-SAVING-SLOTS.1, MAKE-LOAD-FORM-SAVING-SLOTS.2,
   MAKE-LOAD-FORM-SAVING-SLOTS.3, MAKE-LOAD-FORM-SAVING-SLOTS.4,
   MAKE-LOAD-FORM-SAVING-SLOTS.5, MAKE-LOAD-FORM-SAVING-SLOTS.6,
   MAKE-LOAD-FORM-SAVING-SLOTS.7, MAKE-LOAD-FORM-SAVING-SLOTS.8,
   MAKE-LOAD-FORM-SAVING-SLOTS.9, MAKE-LOAD-FORM-SAVINGS-SLOTS.10,
   MAKE-LOAD-FORM-SAVINGS-SLOTS.11, MAKE-LOAD-FORM-SAVINGS-SLOTS.12,
   MAKE-LOAD-FORM-SAVING-SLOTS.ERROR.1,
   MAKE-LOAD-FORM-SAVING-SLOTS.ERROR.2,
   MAKE-LOAD-FORM-SAVING-SLOTS.ERROR.3, WITH-ACCESSORS.10,
   WITH-ACCESSORS.11, WITH-SLOTS.19, WITH-SLOTS.20, DEFGENERIC.ERROR.4,
   DEFGENERIC.ERROR.8, DEFGENERIC.ERROR.20, DEFGENERIC.ERROR.21,
   DEFGENERIC.2, DEFGENERIC.31, DEFGENERIC.32, DEFGENERIC.35,
   CALL-NEXT-METHOD.8, CALL-NEXT-METHOD.ERROR.1,
   CALL-NEXT-METHOD.ERROR.2, COMPUTE-APPLICABLE-METHODS.ERROR.1,
   COMPUTE-APPLICABLE-METHODS.ERROR.2,
   COMPUTE-APPLICABLE-METHODS.ERROR.3, FIND-METHOD.ERROR.1,
   FIND-METHOD.ERROR.2, FIND-METHOD.ERROR.3, FIND-METHOD.ERROR.4,
   FIND-METHOD.ERROR.7, FIND-METHOD.ERROR.8, FIND-METHOD.ERROR.9,
   FIND-METHOD.ERROR.10, ADD-METHOD.ERROR.4, ADD-METHOD.ERROR.5,
   ADD-METHOD.ERROR.6, ADD-METHOD.1, ADD-METHOD.2, UNBOUND-SLOT.1,
   UNBOUND-SLOT.2, CONDITION.2, CELL-ERROR-NAME.1, CELL-ERROR-NAME.2,
   CELL-ERROR-NAME.3, CELL-ERROR-NAME.4, CELL-ERROR-NAME.5,
   CELL-ERROR-NAME.6, CELL-ERROR-NAME.ERROR.1, CELL-ERROR-NAME.ERROR.2,
   ERROR.1, ERROR.2, ERROR.3, ERROR.4, ERROR.5, ERROR.8, CERROR.1,
   CERROR.2, CERROR.3, CERROR.4, CERROR.5, WARN.8, WARN.10,
   INVOKE-DEBUGGER.ERROR.1, INVOKE-DEBUGGER.ERROR.2, HANDLER-BIND.9,
   HANDLER-BIND.11, HANDLER-CASE.28, CONDITION-20-SLOTS.2,
   CONDITION-20-SLOTS.3, COMPUTE-RESTARTS.9, RESTART-CASE.29,
   RESTART-CASE.30, RESTART-CASE.31, CONTINUE.2, STORE-VALUE.2,
   USE-VALUE.2, SUBLIS.9, SUBLIS.10, NSUBLIS.10, NSUBLIS.11, LAST.11,
   LAST.12, SETF-GETF.ORDER.2, MAKE-ARRAY.DISPLACED.9,
   MAKE-ARRAY.DISPLACED.10, ADJUST-ARRAY.3, ADJUST-ARRAY.4,
   ADJUST-ARRAY.12, ADJUST-ARRAY.13, ADJUST-ARRAY.14, ADJUST-ARRAY.15,
   ADJUST-ARRAY.16, ADJUST-ARRAY.18, ADJUST-ARRAY.ADJUSTABLE.3,
   ADJUST-ARRAY.ADJUSTABLE.4, ADJUST-ARRAY.ADJUSTABLE.12,
   ADJUST-ARRAY.ADJUSTABLE.13, ADJUST-ARRAY.STRING.3,
   ADJUST-ARRAY.STRING.4, ADJUST-ARRAY.STRING.6,
   ADJUST-ARRAY.STRING.12, ADJUST-ARRAY.STRING.13,
   ADJUST-ARRAY.STRING.14, ADJUST-ARRAY.STRING.15,
   ADJUST-ARRAY.STRING.16, ADJUST-ARRAY.STRING.18,
   ADJUST-ARRAY.BIT-VECTOR.3, ADJUST-ARRAY.BIT-VECTOR.4,
   ADJUST-ARRAY.BIT-VECTOR.6, ADJUST-ARRAY.BIT-VECTOR.12,
   ADJUST-ARRAY.BIT-VECTOR.13, ADJUST-ARRAY.BIT-VECTOR.14,
   ADJUST-ARRAY.BIT-VECTOR.15, ADJUST-ARRAY.BIT-VECTOR.16,
   ADJUST-ARRAY.BIT-VECTOR.18, ARRAY-DISPLACEMENT.11, VECTOR.3,
   VECTOR.6, VECTOR.8, HASH-TABLE.5, MAKE-HASH-TABLE.2,
   MAKE-HASH-TABLE.10, MAKE-HASH-TABLE.11, MAKE-HASH-TABLE.16,
   MAKE-HASH-TABLE.17, MAKE-HASH-TABLE.18, MAKE-HASH-TABLE.19,
   MAKE-HASH-TABLE.20, MAKE-HASH-TABLE.21, HASH-TABLE-COUNT.5,
   HASH-TABLE-COUNT.9, HASH-TABLE-REHASH-SIZE.1,
   HASH-TABLE-REHASH-SIZE.2, HASH-TABLE-REHASH-SIZE.3,
   HASH-TABLE-REHASH-SIZE.ERROR.1, HASH-TABLE-REHASH-SIZE.ERROR.2,
   HASH-TABLE-REHASH-SIZE.ERROR.3, HASH-TABLE-REHASH-THRESHOLD.1,
   HASH-TABLE-REHASH-THRESHOLD.2, HASH-TABLE-REHASH-THRESHOLD.3,
   HASH-TABLE-REHASH-THRESHOLD.ERROR.1,
   HASH-TABLE-REHASH-THRESHOLD.ERROR.2,
   HASH-TABLE-REHASH-THRESHOLD.ERROR.3, HASH-TABLE-TEST.2,
   HASH-TABLE-TEST.3, HASH-TABLE-TEST.4, GETHASH.5, GETHASH.ORDER.4,
   GETHASH.ZERO.4, REMHASH.4, CLRHASH.4, MAPHASH.3, MAPHASH.6,
   WITH-HASH-TABLE-ITERATOR.4, WITH-HASH-TABLE-ITERATOR.7,
   FIND-ALL-SYMBOLS.2, IN-PACKAGE.ERROR.1, IMPORT.5, /.ERROR.2,
   /.ERROR.3, /.ERROR.4, /.ERROR.5, /.ERROR.6, /.ERROR.7, /.ERROR.8,
   /.2, EXPT.18, EXPT.19, EXPT.20, EXPT.21, LCM.1, PHASE.1, FLOAT.5,
   RATIONAL.ERROR.4, RATIONALIZE.ERROR.4, MAKE-SEQUENCE.27,
   MAKE-SEQUENCE.49, MAKE-SEQUENCE.50, MAKE-SEQUENCE.51,
   MAKE-SEQUENCE.52, MAKE-SEQUENCE.53, MAKE-SEQUENCE.54,
   MAKE-SEQUENCE.55, MAKE-SEQUENCE.56, MAKE-SEQUENCE.57,
   MAKE-SEQUENCE.58, MAP.48, MAP.ERROR.11, NREVERSE-VECTOR.7,
   NREVERSE-VECTOR.8, SUBSEQ.ORDER.3, SUBSEQ.ORDER.4,
   STRUCT-TEST-31/13, STRUCT-TEST-31/14, STRUCT-TEST-31/16,
   STRUCT-TEST-31/17, STRUCT-TEST-31/15A, STRUCT-TEST-31/15B,
   STRUCT-TEST-41/3, STRUCT-TEST-43/3, STRUCTS-ARE-DISJOINT, TYPES.3,
   TYPES.7B, TYPES.7C, TYPES.9, TYPES.9A,
   ALL-EXPORTED-CL-CLASS-NAMES-ARE-VALID,
   ALL-STANDARD-GENERIC-FUNCTIONS-ARE-INSTANCES-OF-THAT-CLASS,
   USER-CLASS-DISJOINTNESS, USER-CLASS-DISJOINTNESS-2,
   USER-STRUCT-DISJOINTNESS,
   UNIVERSE-ELEMENTS-IN-AT-MOST-ONE-DISJOINT-TYPE, COERCE.11,
   COERCE.21, STANDARD-GENERIC-FUNCTION.1, STANDARD-GENERIC-FUNCTION.2,
   TYPE-OF.1, TYPE-OF.4, TYPE-OF.5, TYPE-OF.7, TYPE-OF.8, TYPE-OF.9,
   FLOATING-POINT-INEXACT-CPL, FLOATING-POINT-INVALID-OPERATION-CPL,
   PRINT-NOT-READABLE-CPL, READER-ERROR-CPL, STYLE-WARNING-CPL,
   UNBOUND-SLOT-CPL, COMPLEX-CPL.2, COMPLEX-CPL.3, FLOAT-CPL.2,
   FLOAT-CPL.3, FLOAT-CPL.4, FUNCTION-CPL, HASH-TABLE-CPL.1,
   HASH-TABLE-CPL.2, HASH-TABLE-CPL.3, INTEGER-CPL.2, INTEGER-CPL.3,
   LIST-CPL.2, NULL-CPL, PACKAGE-CPL, PATHNAME-CPL, RANDOM-STATE-CPL,
   READTABLE-CPL, STANDARD-GENERIC-FUNCTION-CPL, STRING-CPL.2,
   STRING.8, STRING.9, BASE-STRING.1, BASE-STRING.2, BASE-STRING.3,
   SIMPLE-STRING.1, SIMPLE-STRING.2, SIMPLE-STRING.3, SIMPLE-STRING.4,
   SIMPLE-STRING.6, SIMPLE-STRING.7, SIMPLE-STRING.11,
   SIMPLE-BASE-STRING.1, SIMPLE-BASE-STRING.2, SIMPLE-BASE-STRING.3,
   SIMPLE-BASE-STRING.4, SIMPLE-BASE-STRING.7, SIMPLE-BASE-STRING.10,
   SIMPLE-BASE-STRING.11, DIGIT-CHAR.ERROR.2, CODE-CHAR.ERROR.2,
   LOGICAL-PATHNAME.3, READ-BYTE.3, READ-BYTE.4, PEEK-CHAR.17,
   FILE-LENGTH.ERROR.8, FILE-LENGTH.2, FILE-LENGTH.3, FILE-LENGTH.4,
   FILE-LENGTH.5, FILE-POSITION.6, FILE-STRING-LENGTH.1,
   FILE-STRING-LENGTH.2, OPEN.27, OPEN.28, OPEN.OUTPUT.28A,
   OPEN.OUTPUT.29, OPEN.IO.28A, OPEN.IO.29, OPEN.PROBE.1, OPEN.PROBE.2,
   OPEN.PROBE.3, OPEN.PROBE.4, OPEN.PROBE.5, OPEN.PROBE.6,
   OPEN.PROBE.7, OPEN.PROBE.8, OPEN.PROBE.9, OPEN.PROBE.10,
   OPEN.PROBE.11, OPEN.PROBE.23, OPEN.PROBE.24, OPEN.PROBE.25,
   OPEN.PROBE.26, OPEN.PROBE.27, OPEN.PROBE.28, OPEN.PROBE.29,
   OPEN.PROBE.30, OPEN.PROBE.31, OPEN.PROBE.32, OPEN.PROBE.33,
   OPEN.PROBE.34, OPEN.PROBE.35, OPEN.PROBE.36,
   STREAM-EXTERNAL-FORMAT.ERROR.1, STREAM-EXTERNAL-FORMAT.ERROR.2,
   SYNONYM-STREAM-SYMBOL.1, SYNONYM-STREAM-SYMBOL.ERROR.1,
   SYNONYM-STREAM-SYMBOL.ERROR.2, MAKE-BROADCAST-STREAM.1,
   MAKE-BROADCAST-STREAM.2, MAKE-BROADCAST-STREAM.3,
   MAKE-BROADCAST-STREAM.4, MAKE-BROADCAST-STREAM.5,
   MAKE-BROADCAST-STREAM.6, MAKE-BROADCAST-STREAM.7,
   MAKE-BROADCAST-STREAM.8, MAKE-BROADCAST-STREAM.ERROR.1,
   MAKE-BROADCAST-STREAM.ERROR.2, BROADCAST-STREAM-STREAMS.1,
   BROADCAST-STREAM-STREAMS.2, BROADCAST-STREAM-STREAMS.ERROR.1,
   BROADCAST-STREAM-STREAMS.ERROR.2, MAKE-TWO-WAY-STREAM.2,
   TWO-WAY-STREAM-INPUT-STREAM.1, TWO-WAY-STREAM-INPUT-STREAM.ERROR.1,
   TWO-WAY-STREAM-INPUT-STREAM.ERROR.2, TWO-WAY-STREAM-OUTPUT-STREAM.1,
   TWO-WAY-STREAM-OUTPUT-STREAM.ERROR.1,
   TWO-WAY-STREAM-OUTPUT-STREAM.ERROR.2, ECHO-STREAM-INPUT-STREAM.1,
   ECHO-STREAM-INPUT-STREAM.ERROR.1, ECHO-STREAM-INPUT-STREAM.ERROR.2,
   ECHO-STREAM-OUTPUT-STREAM.1, ECHO-STREAM-OUTPUT-STREAM.ERROR.1,
   ECHO-STREAM-OUTPUT-STREAM.ERROR.2, MAKE-ECHO-STREAM.10,
   CONCATENATED-STREAM-STREAMS.1, CONCATENATED-STREAM-STREAMS.2,
   CONCATENATED-STREAM-STREAMS.3, CONCATENATED-STREAM-STREAMS.4,
   CONCATENATED-STREAM-STREAMS.5, CONCATENATED-STREAM-STREAMS.ERROR.1,
   CONCATENATED-STREAM-STREAMS.ERROR.2, MAKE-CONCATENATED-STREAM.7,
   MAKE-CONCATENATED-STREAM.16, MAKE-CONCATENATED-STREAM.27,
   MAKE-CONCATENATED-STREAM.30, MAKE-STRING-OUTPUT-STREAM.2,
   MAKE-STRING-OUTPUT-STREAM.3, MAKE-STRING-OUTPUT-STREAM.4,
   MAKE-STRING-OUTPUT-STREAM.5, MAKE-STRING-OUTPUT-STREAM.6,
   MAKE-STRING-OUTPUT-STREAM.7, MAKE-STRING-OUTPUT-STREAM.9,
   MAKE-STRING-OUTPUT-STREAM.10, MAKE-STRING-OUTPUT-STREAM.11,
   MAKE-STRING-OUTPUT-STREAM.12, MAKE-STRING-OUTPUT-STREAM.13,
   WITH-OUTPUT-TO-STRING.4, WITH-OUTPUT-TO-STRING.7,
   WITH-OUTPUT-TO-STRING.8, WITH-OUTPUT-TO-STRING.9,
   WITH-OUTPUT-TO-STRING.14, PRINT.SHORT-FLOAT.RANDOM,
   PRINT.SINGLE-FLOAT.RANDOM, PRINT.DOUBLE-FLOAT.RANDOM,
   PRINT.LONG-FLOAT.RANDOM, PRINT.CHAR.4, PRINT.CHAR.7, PRINT.CHAR.8,
   PRINT.CHAR.9, PRINT.CHAR.10, PRINT.SYMBOL.1, PRINT.SYMBOL.2,
   PRINT.SYMBOL.3, PRINT.SYMBOL.4, PRINT.SYMBOL.5, PRINT.SYMBOL.6,
   PRINT.SYMBOL.7, PRINT.SYMBOL.8, PRINT.SYMBOL.9, PRINT.SYMBOL.10,
   PRINT.SYMBOL.11, PRINT.SYMBOL.12, PRIN1.SYMBOL.1, PRIN1.SYMBOL.2,
   PRIN1.SYMBOL.3, PRINT.SYMBOL.PREFIX.8, PRINT.CONS.RANDOM.2,
   PRINT.CONS.LEVEL.2, PRINT.CONS.LEVEL.5, PRINT.VECTOR.RANDOM.4,
   PRINT.VECTOR.LEVEL.3, PRINT.VECTOR.LEVEL.4, PRINT.ARRAY.2.21,
   PRINT.ARRAY.2.22, PRINT.ARRAY.2.23, PRINT.RANDOM-STATE.1,
   PRINT.PATHNAME.1, PRINT-READABLY.INIT.1, PPRINT-FILL.ERROR.1,
   PPRINT-FILL.ERROR.2, PPRINT-FILL.ERROR.3, PPRINT-LINEAR.ERROR.1,
   PPRINT-LINEAR.ERROR.2, PPRINT-LINEAR.ERROR.3, PPRINT-TABULAR.1,
   PPRINT-TABULAR.2, PPRINT-TABULAR.6, PPRINT-TABULAR.7,
   PPRINT-TABULAR.8, PPRINT-TABULAR.9, PPRINT-TABULAR.10,
   PPRINT-TABULAR.11, PPRINT-TABULAR.12, PPRINT-TABULAR.13,
   PPRINT-TABULAR.14, PPRINT-TABULAR.15, PPRINT-TABULAR.16,
   PPRINT-TABULAR.17, PPRINT-TABULAR.18, PPRINT-TABULAR.19,
   PPRINT-TABULAR.20, PPRINT-TABULAR.21, PPRINT-TABULAR.22,
   PPRINT-TABULAR.23, PPRINT-TABULAR.24, PPRINT-TABULAR.ERROR.1,
   PPRINT-TABULAR.ERROR.2, PPRINT-TABULAR.ERROR.3,
   PPRINT-TABULAR.ERROR.4, PPRINT-INDENT.1, PPRINT-INDENT.2,
   PPRINT-INDENT.3, PPRINT-INDENT.4, PPRINT-INDENT.5, PPRINT-INDENT.6,
   PPRINT-INDENT.7, PPRINT-INDENT.8, PPRINT-INDENT.9, PPRINT-INDENT.10,
   PPRINT-INDENT.11, PPRINT-INDENT.12, PPRINT-INDENT.13,
   PPRINT-INDENT.13A, PPRINT-INDENT.14, PPRINT-INDENT.15,
   PPRINT-INDENT.16, PPRINT-INDENT.17, PPRINT-INDENT.18,
   PPRINT-INDENT.19, PPRINT-INDENT.20, PPRINT-INDENT.21,
   PPRINT-INDENT.22, PPRINT-INDENT.23, PPRINT-INDENT.ERROR.1,
   PPRINT-INDENT.ERROR.2, PPRINT-INDENT.ERROR.3,
   PPRINT-LOGICAL-BLOCK.17, PPRINT-EXIT-IF-LIST-EXHAUSTED.1,
   PPRINT-EXIT-IF-LIST-EXHAUSTED.2, PPRINT-EXIT-IF-LIST-EXHAUSTED.3,
   PPRINT-EXIT-IF-LIST-EXHAUSTED.4, PPRINT-POP.1, PPRINT-POP.3,
   PPRINT-POP.4, PPRINT-POP.5, PPRINT-POP.6, PPRINT-POP.7,
   PPRINT-POP.8, PPRINT-POP.9, PPRINT-NEWLINE.1, PPRINT-NEWLINE.2,
   PPRINT-NEWLINE.3, PPRINT-NEWLINE.LINEAR.1, PPRINT-NEWLINE.LINEAR.2,
   PPRINT-NEWLINE.LINEAR.3, PPRINT-NEWLINE.LINEAR.4,
   PPRINT-NEWLINE.LINEAR.5, PPRINT-NEWLINE.LINEAR.6,
   PPRINT-NEWLINE.LINEAR.7, PPRINT-NEWLINE.LINEAR.8,
   PPRINT-NEWLINE.LINEAR.9, PPRINT-NEWLINE.LINEAR.10,
   PPRINT-NEWLINE.MISER.1, PPRINT-NEWLINE.MISER.2,
   PPRINT-NEWLINE.MISER.3, PPRINT-NEWLINE.MISER.4,
   PPRINT-NEWLINE.MISER.5, PPRINT-NEWLINE.MISER.6,
   PPRINT-NEWLINE.MISER.7, PPRINT-NEWLINE.MISER.8,
   PPRINT-NEWLINE.MISER.9, PPRINT-NEWLINE.MISER.10,
   PPRINT-NEWLINE.MISER.11, PPRINT-NEWLINE.MISER.12,
   PPRINT-NEWLINE.MISER.13, PPRINT-NEWLINE.FILL.1,
   PPRINT-NEWLINE.FILL.2, PPRINT-NEWLINE.FILL.3, PPRINT-NEWLINE.FILL.4,
   PPRINT-NEWLINE.FILL.5, PPRINT-NEWLINE.FILL.6, PPRINT-NEWLINE.FILL.7,
   PPRINT-NEWLINE.FILL.8, PPRINT-NEWLINE.FILL.9,
   PPRINT-NEWLINE.FILL.10, PPRINT-NEWLINE.MANDATORY.1,
   PPRINT-NEWLINE.MANDATORY.2, PPRINT-NEWLINE.MANDATORY.3,
   PPRINT-NEWLINE.MANDATORY.4, PPRINT-NEWLINE.MANDATORY.5,
   PPRINT-NEWLINE.MANDATORY.6, PPRINT-NEWLINE.ERROR.1,
   PPRINT-NEWLINE.ERROR.1-UNSAFE, PPRINT-NEWLINE.ERROR.2,
   PPRINT-NEWLINE.ERROR.3, PPRINT-TAB.NON-PRETTY.1,
   PPRINT-TAB.NON-PRETTY.2, PPRINT-TAB.NON-PRETTY.3,
   PPRINT-TAB.NON-PRETTY.4, PPRINT-TAB.NON-PRETTY.5,
   PPRINT-TAB.NON-PRETTY.6, PPRINT-TAB.NON-PRETTY.7,
   PPRINT-TAB.NON-PRETTY.8, PPRINT-TAB.NIL.1, PPRINT-TAB.T.1,
   PPRINT-TAB.LINE.1, PPRINT-TAB.SECTION.1, PPRINT-TAB.LINE-RELATIVE.1,
   PPRINT-TAB.SECTION-RELATIVE.1, PPRINT-TAB.ERROR.1,
   PPRINT-TAB.ERROR.2, PPRINT-TAB.ERROR.3, PPRINT-TAB.ERROR.4,
   PRINT-UNREADABLE-OBJECT.2, PRINT-UNREADABLE-OBJECT.3,
   PRINT-UNREADABLE-OBJECT.ERROR.1, PRINT.1, PPRINT.1, PRIN1.1,
   PRIN1-TO-STRING.1, PRINT-LEVEL.4, PRINT-LEVEL.5, PRINT-LEVEL.8,
   PRINT-LEVEL.9, PRINT-LEVEL.12, PRINT-LENGTH.7, PRINT-LENGTH.11,
   FORMAT.C.1, FORMAT.C.1A, FORMAT.C.4A, FORMAT.C.5A, FORMAT.C.6A,
   FORMAT.R.8, FORMAT.R.13, FORMAT.R.15, FORMAT.R.16, FORMAT.R.21,
   FORMAT.R.30, FORMAT.R.31, FORMAT.R.32, FORMAT.R.33, FORMAT.R.38,
   FORMAT.R.39, FORMAT.D.5, FORMAT.D.11, FORMAT.D.12, FORMAT.D.13,
   FORMAT.D.17, FORMAT.D.18, FORMAT.D.19, FORMAT.D.20, FORMAT.D.21,
   FORMAT.D.23, FORMAT.D.24, FORMAT.D.28, FORMAT.D.29, FORMAT.D.30,
   FORMAT.B.5, FORMAT.B.11, FORMAT.B.12, FORMAT.B.13, FORMAT.B.17,
   FORMAT.B.18, FORMAT.B.19, FORMAT.B.20, FORMAT.B.21, FORMAT.B.23,
   FORMAT.B.24, FORMAT.B.28, FORMAT.B.29, FORMAT.B.30, FORMAT.O.5,
   FORMAT.O.11, FORMAT.O.12, FORMAT.O.13, FORMAT.O.17, FORMAT.O.18,
   FORMAT.O.19, FORMAT.O.20, FORMAT.O.21, FORMAT.O.23, FORMAT.O.24,
   FORMAT.O.28, FORMAT.O.29, FORMAT.O.30, FORMAT.X.5, FORMAT.X.11,
   FORMAT.X.12, FORMAT.X.13, FORMAT.X.17, FORMAT.X.18, FORMAT.X.19,
   FORMAT.X.20, FORMAT.X.21, FORMAT.X.23, FORMAT.X.24, FORMAT.X.28,
   FORMAT.X.29, FORMAT.X.30, FORMAT.F.2, FORMAT.F.3, FORMAT.F.42,
   FORMAT.F.44, FORMAT.A.11, FORMAT.A.20, FORMAT.S.11, FORMAT.S.20,
   FORMAT._.1, FORMAT._.2, FORMAT._.3, FORMAT._.4, FORMAT._.5,
   FORMAT._.6, FORMAT._.7, FORMAT._.8, FORMAT._.9, address@hidden,
   address@hidden, address@hidden, address@hidden, address@hidden, 
address@hidden,
   address@hidden, address@hidden, address@hidden, address@hidden, 
|FORMAT.:_.1|,
   |FORMAT.:_.2|, |FORMAT.:_.3|, |FORMAT.:_.4|, |FORMAT.:_.5|,
   |FORMAT.:_.6|, |FORMAT.:_.7|, |FORMAT.:@_.1|, |FORMAT.:@_.2|,
   |FORMAT.:@_.3|, |FORMAT.:@_.4|, |FORMAT.:@_.5|,
   FORMAT.LOGICAL-BLOCK.ERROR.1, FORMAT.LOGICAL-BLOCK.ERROR.2,
   FORMAT.LOGICAL-BLOCK.ERROR.3, FORMAT.LOGICAL-BLOCK.ERROR.4,
   FORMAT.LOGICAL-BLOCK.ERROR.5, FORMAT.LOGICAL-BLOCK.ERROR.6,
   FORMAT.LOGICAL-BLOCK.ERROR.7, FORMAT.LOGICAL-BLOCK.ERROR.8,
   FORMAT.LOGICAL-BLOCK.ERROR.9, FORMAT.LOGICAL-BLOCK.ERROR.10,
   FORMAT.LOGICAL-BLOCK.ERROR.11, FORMAT.LOGICAL-BLOCK.ERROR.12,
   FORMAT.LOGICAL-BLOCK.ERROR.13, FORMAT.LOGICAL-BLOCK.ERROR.14,
   FORMAT.LOGICAL-BLOCK.ERROR.15, FORMAT.LOGICAL-BLOCK.ERROR.16,
   FORMAT.LOGICAL-BLOCK.ERROR.17, FORMAT.LOGICAL-BLOCK.ERROR.18,
   FORMAT.LOGICAL-BLOCK.ERROR.19, FORMAT.LOGICAL-BLOCK.ERROR.20,
   FORMAT.LOGICAL-BLOCK.ERROR.21, FORMAT.LOGICAL-BLOCK.ERROR.22,
   FORMAT.LOGICAL-BLOCK.ERROR.23, FORMAT.LOGICAL-BLOCK.ERROR.24,
   FORMAT.LOGICAL-BLOCK.ERROR.25, FORMAT.LOGICAL-BLOCK.ERROR.26,
   FORMAT.LOGICAL-BLOCK.ERROR.27, FORMAT.LOGICAL-BLOCK.1,
   FORMAT.LOGICAL-BLOCK.4, FORMAT.LOGICAL-BLOCK.5,
   FORMAT.LOGICAL-BLOCK.6, FORMAT.LOGICAL-BLOCK.7,
   FORMAT.LOGICAL-BLOCK.9, FORMAT.LOGICAL-BLOCK.10,
   FORMAT.LOGICAL-BLOCK.13, FORMAT.LOGICAL-BLOCK.14,
   FORMAT.LOGICAL-BLOCK.15, FORMAT.LOGICAL-BLOCK.17,
   FORMAT.LOGICAL-BLOCK.18, FORMAT.LOGICAL-BLOCK.19,
   FORMAT.LOGICAL-BLOCK.20, FORMAT.LOGICAL-BLOCK.21,
   FORMAT.LOGICAL-BLOCK.22, FORMAT.LOGICAL-BLOCK.23,
   FORMAT.LOGICAL-BLOCK.24, FORMAT.LOGICAL-BLOCK.25,
   FORMAT.LOGICAL-BLOCK.26, FORMAT.LOGICAL-BLOCK.27,
   FORMAT.LOGICAL-BLOCK.28, FORMAT.LOGICAL-BLOCK.29,
   FORMAT.LOGICAL-BLOCK.ESCAPE.1, FORMAT.LOGICAL-BLOCK.ESCAPE.2,
   FORMAT.I.1, FORMAT.I.2, FORMAT.I.3, FORMAT.I.4, FORMAT.I.5,
   FORMAT.I.6, FORMAT.I.7, FORMAT.I.8, FORMAT.I.9, FORMAT.I.10,
   FORMAT.I.11, FORMAT.I.12, FORMAT.I.13, FORMAT.I.14, FORMAT.I.15,
   FORMAT.I.16, FORMAT./.1, FORMAT./.2, FORMAT./.3, FORMAT./.4,
   FORMAT./.5, FORMAT./.6, FORMAT./.7, FORMAT./.8, FORMAT./.9,
   FORMAT./.10, FORMAT./.11, FORMAT./.12, FORMAT./.13, FORMAT./.14,
   FORMAT./.15, FORMAT./.16, FORMAT./.17, FORMAT./.18, FORMAT./.19,
   FORMAT.T.3, FORMAT.T.4, FORMAT.T.8, |FORMAT.:T.1|, |FORMAT.:T.2|,
   |FORMAT.:T.3|, |FORMAT.:T.4|, |FORMAT.:T.5|, |FORMAT.:T.5A|,
   |FORMAT.:T.6|, |FORMAT.:T.6A|, |FORMAT.:T.6B|, |FORMAT.:T.7|,
   |FORMAT.:T.8|, |FORMAT.:T.9|, |FORMAT.:T.10|, |FORMAT.:T.11|,
   |FORMAT.:T.12|, |FORMAT.:@T.1|, |FORMAT.:@T.1A|, |FORMAT.:@T.1B|,
   |FORMAT.:@T.1C|, |FORMAT.:@T.1D|, |FORMAT.:@T.2|, |FORMAT.:@T.3|,
   |FORMAT.:@T.4|, |FORMAT.:@T.5|, FORMAT.JUSTIFY.8, FORMAT.JUSTIFY.10,
   FORMAT.JUSTIFY.29, FORMAT.COND.4, FORMAT.COND.6, FORMAT.COND.12,
   FORMAT.COND.14, |FORMAT.COND:.3|, |FORMAT.COND:.4|,
   |FORMAT.COND:.7|, FORMAT.{.1A, FORMAT.{.1B, FORMAT.{.15,
   FORMAT.{.16, FORMAT.{.19, FORMAT.{.20, FORMAT.{.21, FORMAT.{.22,
   |FORMAT.:{.3|, |FORMAT.:{.4|, |FORMAT.:{.5|, |FORMAT.:{.6|,
   address@hidden, address@hidden, |FORMAT.:@{.4|, |FORMAT.:@{.5|,
   FORMAT.{.ERROR.5, |FORMAT.:@.ERROR.5|, FORMAT.PAREN.8,
   FORMAT.PAREN.17, FORMAT.PAREN.21, FORMAT.PAREN.23, FORMAT.PAREN.25,
   FORMAT.P.12, FORMAT.P.13, FORMAT.^.{.18, FORMAT.^.{.19,
   FORMAT.^.{.20, FORMAT.^.{.25, FORMAT.^.{.26, FORMAT.^.{.27,
   FORMAT.^.{.28, FORMAT.^.{.29, FORMAT.^.{.30, FORMAT.^.{.31,
   FORMAT.^.{.32, FORMAT.^.{.33, |FORMAT.^.:{.6|, |FORMAT.^.:{.7|,
   |FORMAT.^.:{.10|, |FORMAT.^.:{.11|, |FORMAT.^.:{.13|,
   |FORMAT.^.:{.14|, |FORMAT.^.:{.15|, |FORMAT.^.:{.16|,
   |FORMAT.^.:{.38|, |FORMAT.^.:{.39|, address@hidden, address@hidden,
   address@hidden, address@hidden, address@hidden, address@hidden,
   address@hidden, address@hidden, address@hidden, address@hidden,
   address@hidden, address@hidden, |FORMAT.^.:@{.2|, |FORMAT.^.:@{.4|,
   |FORMAT.^.:@{.6|, |FORMAT.^.:@{.7|, |FORMAT.^.:@{.9|,
   |FORMAT.^.:@{.10|, |FORMAT.^.:@{.11|, |FORMAT.^.:@{.13|,
   |FORMAT.^.:@{.14|, |FORMAT.^.:@{.15|, |FORMAT.^.:@{.16|,
   |FORMAT.^.:@{.38|, |FORMAT.^.:@{.39|, |FORMAT.:^.:{.2|,
   |FORMAT.:^.:{.3|, |FORMAT.:^.:{.6|, |FORMAT.:^.:{.8|,
   |FORMAT.:^.:{.21|, |FORMAT.:^.:{.22|, |FORMAT.:^.:{.26|,
   |FORMAT.:^.:@{.2|, |FORMAT.:^.:@{.3|, |FORMAT.:^.:@{.6|,
   |FORMAT.:^.:@{.8|, |FORMAT.:^.:@{.21|, |FORMAT.:^.:@{.22|,
   |FORMAT.:^.:@{.26|, DISASSEMBLE.1, DISASSEMBLE.2, DISASSEMBLE.3,
   DISASSEMBLE.4, DISASSEMBLE.5, DISASSEMBLE.6, DISASSEMBLE.7.