Changeset 15576 for trunk/abcl


Ignore:
Timestamp:
04/30/22 14:27:09 (2 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/jss/javaparser.lisp

    r15571 r15576  
    6868    symbol))
    6969
     70(def-java-read NameExpr javaparser ()
     71  (let ((symbol (intern (#"getIdentifier" (#"getName" node)))))
     72    symbol))
     73
    7074(eval-when (:compile-toplevel :load-toplevel :execute)
    7175  (defun read-invoke/javaparser (stream char arg)
  • trunk/abcl/contrib/jss/read-sharp-quote-expression.lisp

    r15146 r15576  
    7575  (let ((scope (process-node obj (#"getScope" node))))
    7676    (if (and (symbolp scope) (upper-case-p (char (string scope) 0)))
    77         `(get-java-field ',(process-node obj (#"getScope" node)) ,(#"getIdentifier" (#"getField" node)) t)
    78         `(get-java-field ,(maybe-class (process-node obj (#"getScope" node))) ,(#"getIdentifier" (#"getField" node)) t))))
     77        `(get-java-field ',(process-node obj (#"getScope" node)) ,(#"getIdentifier" (#"getName" node)) t)
     78        `(get-java-field ,(maybe-class (process-node obj (#"getScope" node))) ,(#"getIdentifier" (#"getName" node)) t))))
    7979
    8080(def-java-read ArrayAccessExpr sharp-quote-expression-reader ()
Note: See TracChangeset for help on using the changeset viewer.