Changeset 15146

Timestamp:

11/05/19 13:03:33 (4 years ago)

Author:

Mark Evenson

Message:

JSS read sharp expression bugfixes
(Alan Ruttenberg)

Fix the following in JSS:

1) method call expression lookup java class for jstatic.
2) maybe-class, if it isn't a class, intern in current package vs. jss

Added missing <file:contrib/jss/util.lisp> from the head as of
github.com/alanruttenberg/abcl
with commit 2dab9f16384f279afe0127ef3c540811939c5bcb
<​https://github.com/alanruttenberg/abcl/commit/0ce3f7d0e8003d2ca66cf59c4cd5d32a7c8f4f40>.

Untabify all source units for sanity.

Merges <​https://github.com/armedbear/abcl/pull/65>.

Via
<​https://github.com/armedbear/abcl/pull/65/commits/4461941d335feb298fd246f29967766c213b0e8c>,
<​https://github.com/armedbear/abcl/pull/65/commits/3a681f852f0dc0581f8d47393e0d2d5d6e58596f>.

Location:

trunk/abcl

Files:

• contrib/jss/collections.lisp (modified) (1 diff)
• contrib/jss/invoke.lisp (modified) (3 diffs)
• contrib/jss/javaparser.lisp (modified) (2 diffs)
• contrib/jss/jss.asd (modified) (2 diffs)
• contrib/jss/jtypecase.lisp (modified) (1 diff)
• contrib/jss/optimize-java-call.lisp (modified) (2 diffs)
• contrib/jss/read-sharp-quote-expression.lisp (modified) (4 diffs)
• contrib/jss/t/javaparser.lisp (modified) (1 diff)
• contrib/jss/transform-to-field.lisp (modified) (5 diffs)
• contrib/jss/util.lisp (added)
• test/lisp/ansi/ansi-test-failures (modified) (3 diffs)

trunk/abcl/contrib/jss/collections.lisp

@@ -160 +160 @@
   (declare (optimize (speed 3) (safety 0)))
   (flet ((iterator-collect (iterator)
-     (with-constant-signature ((has-next "hasNext")
-             (next "next"))
-       (loop :while (has-next iterator)
-       :collect (next iterator))))
-   (enumeration-collect (enumeration)
-     (with-constant-signature ((has-next "hasMoreElements")
-             (next "nextElement"))
-       (loop :while (has-next enumeration)
-       :collect (next enumeration))))
-   (map-collect (map)
-     (with-constant-signature ((has-next "hasMoreElements")
-             (next "nextElement"))
-       (let ((keyiterator (#"iterator" (#"keyset" map))))
-         (loop :while (has-next keyiterator)
-         :for key = (next keyiterator)
+           (with-constant-signature ((has-next "hasNext")
+                                     (next "next"))
+             (loop :while (has-next iterator)
+                   :collect (next iterator))))
+         (enumeration-collect (enumeration)
+           (with-constant-signature ((has-next "hasMoreElements")
+                                     (next "nextElement"))
+             (loop :while (has-next enumeration)
+                   :collect (next enumeration))))
+         (map-collect (map)
+           (with-constant-signature ((has-next "hasMoreElements")
+                                     (next "nextElement"))
+             (let ((keyiterator (#"iterator" (#"keyset" map))))
+               (loop :while (has-next keyiterator)
+                     :for key = (next keyiterator)
                   :collect (cons key (#"get" map key)))))))
     (let ((isinstance

trunk/abcl/contrib/jss/invoke.lisp

@@ -257 +257 @@
   (when (boundp '*class-lookup-overrides*)
       (let ((found (find-if (lambda(el) (#"matches" (string el) (concatenate 'string "(?i).*" (string name) "$")))
-          *class-lookup-overrides*)))
-  (if found
-      (let ((*class-lookup-overrides* nil))
-        (lookup-class-name found))))))
+                            *class-lookup-overrides*)))
+        (if found
+            (let ((*class-lookup-overrides* nil))
+              (lookup-class-name found))))))
 
 
@@ -288 +288 @@
                       (length full)))
                  (ambiguous (choices)
-       (if return-ambiguous 
-           (return-from lookup-class-name choices)
-           (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices))))
+                   (if return-ambiguous 
+                       (return-from lookup-class-name choices)
+                       (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices))))
             (if (zerop bucket-length)
-    (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
+                (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
                 (let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
                   (if (= (length matches) 1)
@@ -301 +301 @@
                                 (car matches)
                                 (if (= (length matches) 0)
-            (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
+                                    (progn (unless muffle-warning (warn "can't find class named ~a" name)) nil)
                                     (ambiguous matches))))
                           (ambiguous matches))))))))))

trunk/abcl/contrib/jss/javaparser.lisp

@@ -10 +10 @@
        (setf (gethash ,jclass *class-to-last-component*) ',ast-class)
        (defmethod ,ast-class ((obj ,class) node &optional
-            ,@(loop for field in fields
-              collect `(,(intern (string-upcase field)) (get-java-field node ,field t))))
-     ,@body))))
+                              ,@(loop for field in fields
+                                      collect `(,(intern (string-upcase field)) (get-java-field node ,field t))))
+           ,@body))))
 
 (defvar *object-for-this* (new 'lang.object))
@@ -45 +45 @@
     (setq raw (#"replaceAll" raw "_" ""))
     (if (#"matches" raw ".*[dD]$")
-  (read-from-string (#"replaceFirst" (subseq raw 0 (1- (length raw))) "e" "d"))
-  (if (#"matches" raw ".*[fF]$")
-      (read-from-string (subseq raw 0 (1- (length raw))))
-      (read-from-string raw)))))
+        (read-from-string (#"replaceFirst" (subseq raw 0 (1- (length raw))) "e" "d"))
+        (if (#"matches" raw ".*[fF]$")
+            (read-from-string (subseq raw 0 (1- (length raw))))
+            (read-from-string raw)))))
 
 (def-java-read CharLiteralExpr javaparser nil

trunk/abcl/contrib/jss/jss.asd

@@ -3 +3 @@
   :author "Alan Ruttenberg, Mark Evenson"
   :long-description "<urn:abcl.org/release/1.6.0/contrib/jss#>"
-  :version "3.5.0" 
+  :version "3.6.0" 
   :components ((:module base :pathname "" :serial t 
                         :components ((:file "packages")
@@ -12 +12 @@
                                      (:file "transform-to-field")
                                      (:file "compat")
-                                     (:file "jtypecase"))))
+                                     (:file "jtypecase")
+                                     (:file "util"))))
   :perform (asdf:test-op (op c)
                          (asdf:test-system :jss-tests)))

trunk/abcl/contrib/jss/jtypecase.lisp

@@ -6 +6 @@
   (declare (optimize (speed 3) (safety 0)))
   (let ((class (or (gethash type *jtypecache*)
-       (ignore-errors (setf (gethash type *jtypecache*) (find-java-class type)))))
-  (method (load-time-value (jmethod "java.lang.Class" "isInstance" "java.lang.Object"))))
+                   (ignore-errors (setf (gethash type *jtypecache*) (find-java-class type)))))
+        (method (load-time-value (jmethod "java.lang.Class" "isInstance" "java.lang.Object"))))
     (and class 
-   (jcall method class object))))
+         (jcall method class object))))
     
 (defmacro jtypecase (keyform &body cases)

trunk/abcl/contrib/jss/optimize-java-call.lisp

@@ -10 +10 @@
     (precompiler::precompile-function-call 
      `(jss::invoke-restargs-macro
-    ,(second form)
-    ,(car args) (list ,@(cdr args)) ,(fifth form)))))
+          ,(second form)
+          ,(car args) (list ,@(cdr args)) ,(fifth form)))))
 
 (defmacro invoke-restargs-macro ( method object args &optional (raw? nil))
@@ -18 +18 @@
   (if (and (consp object) (eq (car object) 'quote))
       (let ((object (eval object)))
-  (let* ((object-as-class
-     (or (ignore-errors (let ((*muffle-warnings* t)) (find-java-class object)))
-         `(find-java-class ',object))))
-    (if raw?
-        `(jstatic-raw ,method ,object-as-class ,@args)
-        `(jstatic ,method ,object-as-class ,@args))))
+        (let* ((object-as-class
+                 (or (ignore-errors (let ((*muffle-warnings* t)) (find-java-class object)))
+                     `(find-java-class ',object))))
+          (if raw?
+              `(jstatic-raw ,method ,object-as-class ,@args)
+              `(jstatic ,method ,object-as-class ,@args))))
       (let ((objectvar (make-symbol "INVOKE-RESTARGS-ARG1")))
-  (if raw?
-      `(let ((,objectvar ,object))
-         (if (symbolp ,objectvar)
-       (jstatic-raw ,method (find-java-class ,objectvar) ,@args)
-       (jcall-raw ,method ,objectvar ,@args)))
-      `(let ((,objectvar ,object))
-         (if (symbolp ,objectvar)
-       (jstatic ,method (find-java-class ,objectvar) ,@args)
-       (jcall ,method ,objectvar ,@args)))))))
+        (if raw?
+            `(let ((,objectvar ,object))
+               (if (symbolp ,objectvar)
+                   (jstatic-raw ,method (find-java-class ,objectvar) ,@args)
+                   (jcall-raw ,method ,objectvar ,@args)))
+            `(let ((,objectvar ,object))
+               (if (symbolp ,objectvar)
+                   (jstatic ,method (find-java-class ,objectvar) ,@args)
+                   (jcall ,method ,objectvar ,@args)))))))
 
 

trunk/abcl/contrib/jss/read-sharp-quote-expression.lisp

@@ -7 +7 @@
      (with-output-to-string (s)
        (loop with embedded-string = nil
-       for last = #\space then char
-       for char = (read-char stream)
-       until (and (char= char #\") 
-      ;; really end if: we've established embedded string and the peek is a space
-      ;; we're not about to start embedded string. We're about to start embedded string if next character isn't #\).
-      ;; we're not embedded-string and not about to start one
-      (cond ((null (peek-char nil stream nil)) t) ;; eof
-            (embedded-string (system:whitespacep (peek-char nil stream))) ; embedded " needs "<space>" to end
-            ((find last ",(+=" :test 'char=)
-             (setq embedded-string t)
-             nil)
-            (t t)))
-       do
-    (write-char char s)))))
+             for last = #\space then char
+             for char = (read-char stream)
+             until (and (char= char #\") 
+                        ;; really end if: we've established embedded string and the peek is a space
+                        ;; we're not about to start embedded string. We're about to start embedded string if next character isn't #\).
+                        ;; we're not embedded-string and not about to start one
+                        (cond ((null (peek-char nil stream nil)) t) ;; eof
+                              (embedded-string (system:whitespacep (peek-char nil stream))) ; embedded " needs "<space>" to end
+                              ((find last ",(+=" :test 'char=)
+                               (setq embedded-string t)
+                               nil)
+                              (t t)))
+             do
+                (write-char char s)))))
 
 
@@ -27 +27 @@
     (let ((read (read-java-expression (make-instance 'sharp-quote-expression-reader) de-lisped)))
       (loop for (var nil) in bindings
-      do (setq read (cl-user::tree-replace (lambda(e) (if (equalp e (string var)) var e)) read )))
+            do (setq read (tree-replace (lambda(e) (if (equalp e (string var)) var e)) read )))
       (if bindings
-    `(let ,bindings ,read)
-    read))))
+          `(let ,bindings ,read)
+          read))))
 
 (defun extract-lisp-expressions (string)
   (let ((bindings nil))
     (let ((de-lisped
-      (cl-user::replace-all string "\\{(.*?)\\}" 
-          (lambda(match) 
-            (let ((replacevar (find-symbol-not-matching string (mapcar 'car bindings))))
-              (push (list replacevar (read-from-string match)) bindings)
-              (string replacevar)))
-          1)))
+            (replace-all string "\\{(.*?)\\}" 
+                                  (lambda(match) 
+                                    (let ((replacevar (find-symbol-not-matching string (mapcar 'car bindings))))
+                                      (push (list replacevar (read-from-string match)) bindings)
+                                      (string replacevar)))
+                                  1)))
     (values bindings de-lisped))))
 
 (defun find-symbol-not-matching (string already)
   (loop for candidate = (format nil "JSS_~a" (random 10000))
-  until (and (not (member candidate already :test 'equalp :key 'string))
-       (not (search string already)))
-  finally (return-from find-symbol-not-matching (intern candidate :jss))))
-          
+        until (and (not (member candidate already :test 'equalp :key 'string))
+                   (not (search string already)))
+        finally (return-from find-symbol-not-matching (intern candidate :jss))))
+                            
 (defun maybe-class (el)
   (if (and (symbolp el) (upper-case-p (char (string el) 0)) (not (eql (search "JSS_" (string el)) 0)))
       `(find-java-class ',el)
       (if (symbolp el)
-    (intern (string-upcase el) :jss)
-    el)))
+          (intern (string-upcase el))
+          el)))
 
 (def-java-read ObjectCreationExpr sharp-quote-expression-reader ()
@@ -62 +62 @@
 (def-java-read MethodCallExpr sharp-quote-expression-reader ()
   (let* ((scope1 (process-node obj (process-node obj (#"getScope" node))))
-   (how  (if (and (symbolp scope1) (not (null scope1)) (upper-case-p (char (string scope1) 0))) 
-       'jstatic
-       'jcall)))
+         (how  (if (and (symbolp scope1) (not (null scope1)) (upper-case-p (char (string scope1) 0))) 
+                   'jstatic
+                   'jcall)))
     (if (and (symbolp scope1) (not (null scope1)) (upper-case-p (char (string scope1) 0)))
-  (setq scope1 `',scope1))
+        (setq scope1 `(find-java-class ',scope1)))
     `(,how ,(#"getIdentifier" (#"getName" node)) ,(or scope1 'this) ,@(mapcar 'maybe-class 
-                        (mapcar (lambda(el) (process-node obj el))
-                          (j2list (#"getArguments" node)))))
+                                                                              (mapcar (lambda(el) (process-node obj el))
+                                                                                      (j2list (#"getArguments" node)))))
     ))
-
 
 (def-java-read FieldAccessExpr sharp-quote-expression-reader ()
   (let ((scope (process-node obj (#"getScope" node))))
     (if (and (symbolp scope) (upper-case-p (char (string scope) 0)))
-  `(get-java-field ',(process-node obj (#"getScope" node)) ,(#"getIdentifier" (#"getField" node)) t)
-  `(get-java-field ,(maybe-class (process-node obj (#"getScope" node))) ,(#"getIdentifier" (#"getField" node)) t))))
+        `(get-java-field ',(process-node obj (#"getScope" node)) ,(#"getIdentifier" (#"getField" node)) t)
+        `(get-java-field ,(maybe-class (process-node obj (#"getScope" node))) ,(#"getIdentifier" (#"getField" node)) t))))
 
 (def-java-read ArrayAccessExpr sharp-quote-expression-reader ()
@@ -87 +86 @@
   (let ((name (process-node obj (#"getName" (#"getType" node)))))
     (if (eql (search "JSS_" (string name) :test 'equalp) 0)
-  name
-  `(find-java-class ',name))))
+        name
+        `(find-java-class ',name))))
 
 (def-java-read NameExpr sharp-quote-expression-reader ()

trunk/abcl/contrib/jss/t/javaparser.lisp

@@ -2 +2 @@
 
 (defparameter expanded '(let ((jss::this jss::*object-for-this*))
-      (jcall "getLoaded"
-       (jcall "load"
-        (jcall "make"
-         (jcall "intercept"
-          (jcall "method"
-           (jcall "subclass"
-            (new '|ByteBuddy|)
-            (find-java-class '|Object|)
-            t)
-           (jstatic "named"
-              '|ElementMatchers|
-              "toString"))
-          (jstatic "value"
-             '|FixedValue|
-             "Hello World!")))
-        (jcall "getClassLoader"
-         (jcall "getClass" jss::this))))))
+  (jcall "getLoaded"
+         (jcall "load"
+                (jcall "make"
+                       (jcall "intercept"
+                              (jcall "method"
+                                     (jcall "subclass"
+                                            (new '|ByteBuddy|)
+                                            (find-java-class '|Object|)
+                                            t)
+                                     (jstatic "named"
+                                              (find-java-class '|ElementMatchers|)
+                                              "toString"))
+                              (jstatic "value"
+                                       (find-java-class '|FixedValue|)
+                                       "Hello World!")))
+                (jcall "getClassLoader"
+                       (jcall "getClass" jss::this))))))
 
 (defparameter source '#1"new ByteBuddy().subclass(Object.class,t)

trunk/abcl/contrib/jss/transform-to-field.lisp

@@ -24 +24 @@
 (defun jss-transform-to-field (string sharp-arg)
   (let* ((pattern (#"compile" 'java.util.regex.Pattern "((==){0,1})(.*)\\.([^.]+)$"))
-   (matcher (#"matcher" pattern string)))
+         (matcher (#"matcher" pattern string)))
     (#"find" matcher)
     (let ((parts (list (#"group" matcher 3) (#"group" matcher 4)))
-    (scope (#"group" matcher 1)))
+          (scope (#"group" matcher 1)))
       (check-class-or-eval (first parts))
       (check-field-or-eval (second parts))
@@ -41 +41 @@
 (defun check-field-or-eval (string)
   (assert (or (#"matches" string "^(\\p{javaJavaIdentifierStart}(\\p{javaJavaIdentifierPart})*)+$")
-        (#"matches" string "^\\{.+\\}$"))
-    (string)
-    "inside #\"..\" expected either a field name or an expression surrounded by {}. Found: #~s" string))
+              (#"matches" string "^\\{.+\\}$"))
+          (string)
+          "inside #\"..\" expected either a field name or an expression surrounded by {}. Found: #~s" string))
 
 (defun field-access-expression (sharp-arg scope thing field )
@@ -49 +49 @@
       (static-field-ref-transform thing field sharp-arg scope)
       (if (and (equal scope "==") (char= (char thing 0) #\{) (not (char= (char field 0) #\{)))
-    (always-same-signature-field-ref-transform sharp-arg thing field)
-    `(get-java-field ,(if (char= (char thing 0) #\{)
-        (read-from-string (subseq thing 1 (- (length thing) 1)))
-        `(load-time-value (find-java-class ,thing)))
-         ,(if (char= (char field 0) #\{)
-        (read-from-string (subseq field 1 (- (length field) 1)))
-        field)
-         t))))
+          (always-same-signature-field-ref-transform sharp-arg thing field)
+          `(get-java-field ,(if (char= (char thing 0) #\{)
+                                (read-from-string (subseq thing 1 (- (length thing) 1)))
+                                `(load-time-value (find-java-class ,thing)))
+                           ,(if (char= (char field 0) #\{)
+                                (read-from-string (subseq field 1 (- (length field) 1)))
+                                field)
+                           t))))
 
 ;; If a class name and explicit field name we can look everything up at load time
@@ -63 +63 @@
       `(load-time-value (get-java-field (find-java-class ,class) ,field t))
       `(,(if (eql sharp-arg 0) 'jcall-raw 'jcall) 
-  (load-time-value (jmethod "java.lang.reflect.Field" "get" "java.lang.Object"))
-  (load-time-value 
-   (let ((jfield (find-declared-field ,field (find-java-class ,class))))
-     (#"setAccessible" jfield t)
-     jfield))
-  (load-time-value (find-java-class ',class)))))
+        (load-time-value (jmethod "java.lang.reflect.Field" "get" "java.lang.Object"))
+        (load-time-value 
+         (let ((jfield (find-declared-field ,field (find-java-class ,class))))
+           (#"setAccessible" jfield t)
+           jfield))
+        (load-time-value (find-java-class ',class)))))
 
 ;; 1 case: =={var}.foo
@@ -74 +74 @@
 (defun always-same-signature-field-ref-transform (sharp-arg object field)
   (let ((cached (make-symbol (format nil "CACHED-FIELD-field")))
-  (object (intern (string-upcase (subseq object 1 (- (length object) 1))))))
+        (object (intern (string-upcase (subseq object 1 (- (length object) 1))))))
     `(,(if (eql sharp-arg 0) 'jcall-raw 'jcall)
       (load-time-value (jmethod "java.lang.reflect.Field" "get" "java.lang.Object"))
       (locally (declare (special ,cached))
-  (if (boundp ',cached)
-      ,cached
-      (progn (setq ,cached 
-       (find-declared-field ,field (jcall (load-time-value (jmethod "java.lang.Object" "getClass")) ,object)))
-       (jcall (load-time-value (jmethod "java.lang.reflect.Field" "setAccessible" "boolean")) ,cached t)
-       ,cached)))
+        (if (boundp ',cached)
+            ,cached
+            (progn (setq ,cached 
+                         (find-declared-field ,field (jcall (load-time-value (jmethod "java.lang.Object" "getClass")) ,object)))
+                   (jcall (load-time-value (jmethod "java.lang.reflect.Field" "setAccessible" "boolean")) ,cached t)
+                   ,cached)))
       ,object)))
 

trunk/abcl/test/lisp/ansi/ansi-test-failures

@@ -813 +813 @@
      :jvm "OpenJDK_64-Bit_Server_VM-Oracle_Corporation-11.0.5+10-1"
      :id oxi-java11
-     ((SHIFTF.7 LOOP.1.40 LOOP.1.41 LOOP.1.42 LOOP.1.43
+     (SHIFTF.7 LOOP.1.40 LOOP.1.41 LOOP.1.42 LOOP.1.43
        DEFGENERIC.ERROR.1 DEFGENERIC.ERROR.2 DEFGENERIC.ERROR.3
        CALL-NEXT-METHOD.ERROR.1 CALL-NEXT-METHOD.ERROR.2
@@ -831 +831 @@
        SYNTAX.SHARP-COLON.ERROR.1 APROPOS.ERROR.2
        APROPOS-LIST.ERROR.2 DISASSEMBLE.ERROR.3 TRACE.8
-       DECODE-UNIVERSAL-TIME.5)))
+       DECODE-UNIVERSAL-TIME.5))
+
 ;;  55 out of 21836 total tests failed:  
-(compileit
+(compileit abcl-1.6.0-dev-20190111a
  :uname "amd64-FreeBSD-12.0-RELEASE-p10"
- :vm ""OpenJDK_64-Bit_Server_VM-Oracle_Corporation-1.8.0_232-b09"
+ :vm "OpenJDK_64-Bit_Server_VM-Oracle_Corporation-1.8.0_232-b09"
  :id oxi-java8
- ((SHIFTF.7 LOOP.1.40 LOOP.1.41 LOOP.1.42 LOOP.1.43 DEFGENERIC.ERROR.1
+ (SHIFTF.7 LOOP.1.40 LOOP.1.41 LOOP.1.42 LOOP.1.43 DEFGENERIC.ERROR.1
    DEFGENERIC.ERROR.2 DEFGENERIC.ERROR.3 CALL-NEXT-METHOD.ERROR.1
    CALL-NEXT-METHOD.ERROR.2 INVOKE-DEBUGGER.1 MAKE-CONDITION.3
@@ -852 +853 @@
    DISASSEMBLE.ERROR.3 TRACE.8 DECODE-UNIVERSAL-TIME.5))
 
+(compileit abcl-1.6.0-dev-20191105a
+  :id oxi-java8
+  (SHIFTF.7 LOOP.1.40 LOOP.1.41 LOOP.1.42 LOOP.1.43 DEFGENERIC.ERROR.1
+   DEFGENERIC.ERROR.2 DEFGENERIC.ERROR.3 CALL-NEXT-METHOD.ERROR.1
+   CALL-NEXT-METHOD.ERROR.2 INVOKE-DEBUGGER.1 MAKE-CONDITION.3
+   MAKE-CONDITION.4 DEFPACKAGE.2B EXPT.29 MAP.48 DEFSTRUCT.ERROR.3
+   DEFSTRUCT.ERROR.4 TYPE-OF.1 TYPE-OF.4 LOGICAL-PATHNAME.3
+   DIRECTORY.8 ENSURE-DIRECTORIES-EXIST.8 RENAME-FILE.5 DELETE-FILE.3
+   DELETE-FILE.4 READ-BYTE.ERROR.5 WRITE-BYTE.ERROR.4 OPEN.64
+   OPEN.OUTPUT.3 OPEN.IO.3 CLEAR-INPUT.ERROR.5 FINISH-OUTPUT.ERROR.3
+   FORCE-OUTPUT.ERROR.3 CLEAR-OUTPUT.ERROR.3 PRINT.RANDOM-STATE.1
+   PRINT-STRUCTURE.1 PPRINT-FILL.2 PPRINT-LINEAR.2 PPRINT-TABULAR.2
+   PPRINT-LOGICAL-BLOCK.17 FORMAT.F.5 FORMAT.F.8 FORMAT.F.45
+   FORMATTER.F.45 FORMAT.F.46 FORMATTER.F.46 FORMAT.F.46B
+   FORMATTER.F.46B FORMAT.F.47 FORMATTER.F.47 FORMAT.E.1 FORMAT.E.2
+   FORMAT.E.3 FORMAT.E.6 FORMAT.E.20 FORMAT.E.26
+   SYNTAX.SHARP-COLON.ERROR.1 COMPILE-FILE.17 COMPILE-FILE.18 LOAD.19
+   APROPOS.ERROR.2 APROPOS-LIST.ERROR.2 DISASSEMBLE.ERROR.3 TRACE.8
+   DECODE-UNIVERSAL-TIME.5))
+