[armedbear-ticket] [armedbear] #338: read-invoke #" reader-macro doesn't work for top level forms

[armedbear]

#338: read-invoke #" reader-macro doesn't work for top level forms
-----------------------------------------+-----------------------
 Reporter:  charmon                      |      Owner:
     Type:  defect                       |     Status:  new
 Priority:  major                        |  Milestone:
Component:  libraries                    |    Version:  1.3.0-dev
 Keywords:  read-invoke sharpsign-quote  |
-----------------------------------------+-----------------------
 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)
 ...

--
Ticket URL: <http://abcl.org/trac/ticket/338>
armedbear <http://abcl.org>
armedbear