;;; -*- Mode: Scheme; pseudoscheme-package: SCHEME -*-

;;;; Pseudoscheme Support for ABCL/Java Method Invocation

(define (read-invoke port char arg)
  (cl:unread-char char port)
  (let ((java-name (read port)))
    ;++ Respect the argument for static optimizations.
    `(LAMBDA (OBJECT . ARGS)
       (CL-USER::INVOKE-RESTARGS ,java-name OBJECT ARGS
                                 ',(ps:truep (eqv? arg 0))))))

(cl:set-dispatch-macro-character #\# #\" read-invoke ps:scheme-readtable)

(define new #'cl-user::new)