Re: [armedbear] #338: read-invoke #" reader-macro doesn't work for top level forms - armedbear-ticket - mailman3.common-lisp.net

6 Feb 2023


      #338: read-invoke #" reader-macro doesn't work for top level forms
-------------------------+-------------------------------------------------
      Reporter:          |      Owner:  Mark Evenson
  charmon                |
          Type:  defect  |     Status:  closed
      Priority:  major   |  Milestone:  1.9.1
     Component:          |    Version:  1.3.0-dev
  libraries              |   Keywords:  read-invoke sharpsign-doublequote
    Resolution:  fixed   |  jss has-test
Parent Tickets:          |
-------------------------+-------------------------------------------------
Changes (by Mark Evenson):
* status:  assigned => closed
 * resolution:   => fixed
Old description:
...
Attempting to use the #" read-invoke reader macro fails for top-level
forms:
;; This works:
(defun bar ()
  (#"openConnection" (jss::new 'java.net.url "http://google.com")))
(bar)
;; This doesn't:
(#"openConnection" (jss::new 'java.net.url "http://google.com"))
And here is the stack trace:
The value (LAMBDA (#1=#:G5344 &REST #2=#:G5345)
            (JSS:INVOKE-RESTARGS "openConnection" #1# #2# NIL)) is not of
type SYMBOL.
   [Condition of type TYPE-ERROR]
Restarts:
 0: [ABORT] Abort compilation.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] Abort thread.
Backtrace:
  0: (#<FUNCTION {4EF56F8}> #<TYPE-ERROR {5D0F047B}> #<FUNCTION
{4EF56F8}>)
  1: (APPLY #<FUNCTION {4EF56F8}> (#<TYPE-ERROR {5D0F047B}> #<FUNCTION
{4EF56F8}>))
  2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR
{5D0F047B}> #<FUNCTION {4EF56F8}>)
  3: (INVOKE-DEBUGGER #<TYPE-ERROR {5D0F047B}>)
  4: org.armedbear.lisp.Lisp.error(Lisp.java:382)
  5: org.armedbear.lisp.Lisp.type_error(Lisp.java:435)
  6: org.armedbear.lisp.Lisp.checkSymbol(Lisp.java:1089)
  7: org.armedbear.lisp.Lisp.get(Lisp.java:1962)
  8: org.armedbear.lisp.compile_file_50.execute(compile-file.lisp:606)
...
New description:
c.f. https://github.com/armedbear/abcl/issues/541
Attempting to use the #" read-invoke reader macro fails for top-level
 forms:
;; This works:
 (defun bar ()
   (#"openConnection" (jss::new 'java.net.url "http://google.com")))
 (bar)
;; This doesn't:
 (#"openConnection" (jss::new 'java.net.url "http://google.com"))
And here is the stack trace:
The value (LAMBDA (#1=#:G5344 &REST #2=#:G5345)
             (JSS:INVOKE-RESTARGS "openConnection" #1# #2# NIL)) is not of
 type SYMBOL.
    [Condition of type TYPE-ERROR]
Restarts:
  0: [ABORT] Abort compilation.
  1: [*ABORT] Return to SLIME's top level.
  2: [ABORT] Abort thread.
Backtrace:
   0: (#<FUNCTION {4EF56F8}> #<TYPE-ERROR {5D0F047B}> #<FUNCTION
 {4EF56F8}>)
   1: (APPLY #<FUNCTION {4EF56F8}> (#<TYPE-ERROR {5D0F047B}> #<FUNCTION
 {4EF56F8}>))
   2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR
 {5D0F047B}> #<FUNCTION {4EF56F8}>)
   3: (INVOKE-DEBUGGER #<TYPE-ERROR {5D0F047B}>)
   4: org.armedbear.lisp.Lisp.error(Lisp.java:382)
   5: org.armedbear.lisp.Lisp.type_error(Lisp.java:435)
   6: org.armedbear.lisp.Lisp.checkSymbol(Lisp.java:1089)
   7: org.armedbear.lisp.Lisp.get(Lisp.java:1962)
   8: org.armedbear.lisp.compile_file_50.execute(compile-file.lisp:606)
 ...
--
Comment:
Fixed with https://abcl.org/trac/changeset/15630.
c.f. https://github.com/armedbear/abcl/pull/545
Thanks to Alejandro Zamora Fonseca https://github.com/alejandrozf
-- 
Ticket URL: https://abcl.org/trac/ticket/338#comment:16
armedbear https://abcl.org
armedbear