- armedbear-ticket - mailman3.common-lisp.net

[armedbear-ticket] [armedbear] #285: (setf documentation) is undefined until documentation is called
by armedbear 06 Jan '13

06 Jan '13

#285: (setf documentation) is undefined until documentation is called -------------------------+-------------------------------------------------- Reporter: rschlatte | Owner: ehuelsmann Type: defect | Status: new Priority: minor | Milestone: Component: interpreter | Version: Keywords: | -------------------------+-------------------------------------------------- Reported by Eric Marsden: {{{ Armed Bear Common Lisp 1.2.0-dev-svn-14349 Java 1.6.0_18 Sun Microsystems Inc. OpenJDK 64-Bit Server VM Low-level initialization completed in 0.241 seconds. Startup completed in 1.128 seconds. Type ":help" for a list of available commands. CL-USER(1): (defun foo (x) x) FOO CL-USER(2): (setf (documentation 'foo 'function) "Horx") #<THREAD "interpreter" {482982BF}>: Debugger invoked on condition of type UNDEFINED-FUNCTION The function (SETF DOCUMENTATION) is undefined. }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/285> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 3

[armedbear-ticket] [armedbear] #278: closer-mop:class-finalized-p returns t without ever running finalize-inheritance method
by armedbear 02 Jan '13

02 Jan '13

#278: closer-mop:class-finalized-p returns t without ever running finalize- inheritance method ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 1.1.1 Component: (A)MOP | Version: Keywords: | ------------------------+--------------------------------------------------- Report by stassats on IRC. He's drawing up a testcase as we speak. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/278> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 3

[armedbear-ticket] [armedbear] #279: default-initargs not respected for funcallable-standard-class
by armedbear 31 Dec '12

31 Dec '12

#279: default-initargs not respected for funcallable-standard-class -----------------------+---------------------------------------------------- Reporter: rschlatte | Owner: rschlatte Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | -----------------------+---------------------------------------------------- Report by Pascal Costanza: Here is a test case: {{{ CL-USER(1): (use-package :mop) T CL-USER(2): (defclass my-method (standard-method) ()) #<STANDARD-CLASS MY-METHOD {1EE9DE5F}> CL-USER(3): (defclass my-generic-function (standard-generic-function) () (:metaclass funcallable-standard-class) (:default-initargs :method-class (find-class 'my-method))) #<FUNCALLABLE-STANDARD-CLASS MY-GENERIC-FUNCTION {6E06D676}> CL-USER(4): (defgeneric my-function () (:generic-function-class my-generic-function)) #<MY-GENERIC-FUNCTION MY-FUNCTION {2EA1569}> CL-USER(5): (generic-function-method-class #'my-function) #<STANDARD-CLASS STANDARD-METHOD {4E513D61}> }}} The reason is that the defaulting happens in the keyword arguments for ensure-generic-function (in clos.lisp), which thus overrides any default initargs. However, the defaulting should be left to the class. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/279> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2

[armedbear-ticket] [armedbear] #280: Additional slots in function classes screw up std-compute-discriminating-function
by armedbear 23 Dec '12

23 Dec '12

#280: Additional slots in function classes screw up std-compute-discriminating- function -----------------------+---------------------------------------------------- Reporter: rschlatte | Owner: rschlatte Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | -----------------------+---------------------------------------------------- Report by Pascal Costanza Here is a test case: {{{ CL-USER(1): (use-package :mop) T CL-USER(2): (defclass my-function (standard-generic-function) ((a-slot :initarg :a-slot :accessor a-slot)) (:metaclass funcallable-standard-class)) #<FUNCALLABLE-STANDARD-CLASS MY-FUNCTION {24DF7EA4}> CL-USER(3): (defgeneric test (x y z) (:generic-function-class my-function)) #<THREAD "interpreter" {14BAAEA8}>: Debugger invoked on condition of type TYPE-ERROR The value TEST is not of type LIST. }}} The reason is that std-compute-discriminating-function is also called for subclasses of standard-generic-function that don't override compute- discriminating function. The specialization in std-compute-discriminating- function should only occur if the passed function is _extactly_ a standard-generic-function (or if it doesn't add any slots on top of standard-generic-function). By the way, we're getting closer (ha!). More and more test cases in my test suites work. I'm pretty confident that I can add full support for ABCL in Closer to MOP for the next version of ABCL. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/280> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2

[armedbear-ticket] [armedbear] #283: (pathname-host (open #p"/dev/null")) => NIL
by armedbear 20 Dec '12

20 Dec '12

#283: (pathname-host (open #p"/dev/null")) => NIL ----------------------+----------------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | ----------------------+----------------------------------------------------- -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/283> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 4

[armedbear-ticket] [armedbear] #281: cancel-finalization on an non-finalized object causes null pointer exception
by armedbear 19 Dec '12

19 Dec '12

#281: cancel-finalization on an non-finalized object causes null pointer exception -----------------------+---------------------------------------------------- Reporter: sboukarev | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: other | Version: Keywords: | -----------------------+---------------------------------------------------- (ext:cancel-finalization 1) {{{ java.lang.NullPointerException at org.armedbear.lisp.util.Finalizer.clearFinalizers(Finalizer.java:165) at org.armedbear.lisp.Primitives$pf_cancel_finalization.execute(Primitives.java:5851) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/281> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2

[armedbear-ticket] [armedbear] #251: ffi callbacks don't unbox integer values
by armedbear 19 Dec '12

19 Dec '12

#251: ffi callbacks don't unbox integer values -----------------------+---------------------------------------------------- Reporter: sboukarev | Owner: nobody Type: defect | Status: new Priority: major | Milestone: 1.1.0 Component: java | Version: 1.1.0-dev Keywords: | -----------------------+---------------------------------------------------- It very well may be a cffi issue. Compile the following C code with gcc -shared test.c -o test.so {{{ #ifdef WIN32 #define DLLEXPORT __declspec(dllexport) #else #define DLLEXPORT #endif DLLEXPORT short test(short (*f)(short, short)) { return f(23, 24); } }}} Then {{{ (cffi:load-foreign-library "/tmp/test.so") (cffi:defcfun test :short (function :pointer)) (cffi:defcallback (test-callback) :short ((a :short) (b :short)) (+ a b)) }}} And finally {{{ (test (cffi:get-callback 'test-callback)) => The value #<java.lang.Short 23 {5EE76547}> is not of type NUMBER. }}} That's on 64-bit x86 linux, with OpenJDK 1.6.0_24 and jna downloaded by maven. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/251> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 10

[armedbear-ticket] [armedbear] #258: Compiler bug in call to MAX
by armedbear 09 Dec '12

09 Dec '12

#258: Compiler bug in call to MAX ----------------------+----------------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 1.1.0 Component: compiler | Version: 1.1.0-dev Keywords: | ----------------------+----------------------------------------------------- Eric Marsten reports in http://article.gmane.org/gmane.lisp.armedbear.devel/2611: The following illustrates what looks like a bug in the compiler's handling of type propagation (bug disappears without the type declaration). {{{ CL-USER(25): (lisp-implementation-version) "1.1.0-dev-svn-14222M" "OpenJDK_64-Bit_Server_VM-Oracle_Corporation-1.7.0_03-b21)" "amd64-Linux-3.3.0-trunk-amd64)" CL-USER(26): (defun foo (a b) (declare (type (integer * 6488318769) b)) (max 1 (the (integer * 5711538578) a) b 2 1351352470)) FOO CL-USER(27): (foo 5711538444 6488318765) 6488318765 CL-USER(28): (compile 'foo) FOO NIL NIL CL-USER(29): (foo 5711538444 6488318765) 1351352470 }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/258> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2

[armedbear-ticket] [armedbear] #257: ASDF:MVN components always retrieve LATEST artifacts
by armedbear 09 Dec '12

09 Dec '12

#257: ASDF:MVN components always retrieve LATEST artifacts ------------------------------------------+--------------------------------- Reporter: mevenson | Owner: somebody Type: defect | Status: new Priority: major | Milestone: 1.1.0 Component: other | Version: 1.1.0-dev Keywords: abcl-contrib abcl-asdf maven | ------------------------------------------+--------------------------------- ABCL-ASDF seems to be ignoring versions declared in the system definition, instead electing to load the LATEST version". {{{ (abcl-asdf:resolve (asdf:find-component (asdf:find-system :jna) "net.java.dev.jna/jna/3.4.0")) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/257> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 3

[armedbear-ticket] [armedbear] #259: jss:jarray-to-list fails
by armedbear 09 Dec '12

09 Dec '12

#259: jss:jarray-to-list fails --------------------------------------------+------------------------------- Reporter: https://openid.fau.de/eg74yneg | Owner: mevenson Type: defect | Status: new Priority: major | Milestone: Component: abcl-contrib | Version: Keywords: | --------------------------------------------+------------------------------- CL-USER> * #<jarray [B@5719d1 {15F987F}> CL-USER> (jss:jarray-to-list *) ========== no such method [Condition of type ERROR] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [ABORT] Return to sldb level 1. 2: [RETRY] Retry SLIME REPL evaluation request. 3: [*ABORT] Return to SLIME's top level. 4: [ABORT] Abort thread. Backtrace: 0: (#<FUNCTION {149EEF3}> #<ERROR {E6942E}> #<FUNCTION {149EEF3}>) 1: (APPLY #<FUNCTION {149EEF3}> (#<ERROR {E6942E}> #<FUNCTION {149EEF3}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<ERROR {E6942E}> #<FUNCTION {149EEF3}>) 3: (INVOKE-DEBUGGER #<ERROR {E6942E}>) 4: org.armedbear.lisp.Lisp.error(Lisp.java:382) 5: org.armedbear.lisp.Java.jstatic(Java.java:462) 6: org.armedbear.lisp.Java$pf_jstatic.execute(Java.java:512) 7: org.armedbear.lisp.Primitive.execute(Primitive.java:135) 8: (JSS:JARRAY-TO-LIST #<jarray [B@5719d1 {15F987F}>) 9: (SYSTEM::%EVAL (JSS:JARRAY-TO-LIST *)) 10: (EVAL (JSS:JARRAY-TO-LIST *)) 11: (SWANK::EVAL-REGION "(jss:jarray-to-list *) ") -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/259> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 7