Changeset 15576 for trunk

Timestamp:

04/30/22 14:27:09 (13 months ago)

Author:

Mark Evenson

Message:

getField->getName Must be a change from updated javaparser. No idea how this worked with the patch I submitted

Location:

trunk/abcl/contrib/jss

Files:

• javaparser.lisp (modified) (1 diff)
• read-sharp-quote-expression.lisp (modified) (1 diff)

trunk/abcl/contrib/jss/javaparser.lisp

@@ -68 +68 @@
     symbol))
 
+(def-java-read NameExpr javaparser ()
+  (let ((symbol (intern (#"getIdentifier" (#"getName" node)))))
+    symbol))
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun read-invoke/javaparser (stream char arg) 

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

@@ -75 +75 @@
   (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" (#"getName" node)) t)
+        `(get-java-field ,(maybe-class (process-node obj (#"getScope" node))) ,(#"getIdentifier" (#"getName" node)) t))))
 
 (def-java-read ArrayAccessExpr sharp-quote-expression-reader ()