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

Re: [armedbear-ticket] [armedbear] #198: Hunchentoot load failure
by armedbear 13 Aug '12

13 Aug '12

#198: Hunchentoot load failure ----------------------+----------------------------------------------------- Reporter: mevenson | Owner: mevenson Type: defect | Status: assigned Priority: blocker | Milestone: 1.1.0 Component: compiler | Version: 1.1.0-dev Keywords: | ----------------------+----------------------------------------------------- Comment(by mevenson): Hunchentoot now loads, but testing the system results in {{{ Unable to display error condition: The value NIL is not of type (INTEGER 0 0). [Condition of type PROGRAM-ERROR] Restarts: 0: [RETRY] Retry #<STANDARD-CLASS ASDF:TEST-OP {57044C5}> on #<ASDF:SYSTEM "hunchentoot">. 1: [ACCEPT] Continue, treating #<STANDARD-CLASS ASDF:TEST-OP {57044C5}> on #<ASDF:SYSTEM "hunchentoot"> as having been successful. 2: [ABORT] Abort compilation. 3: [*ABORT] Return to SLIME's top level. 4: [ABORT] Abort thread. Backtrace: 0: (#<FUNCTION {5A34AB7A}> #<PROGRAM-ERROR {2FF68A99}> #<FUNCTION {5A34AB7A}>) 1: (APPLY #<FUNCTION {5A34AB7A}> (#<PROGRAM-ERROR {2FF68A99}> #<FUNCTION {5A34AB7A}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<PROGRAM-ERROR {2FF68A99}> #<FUNCTION {5A34AB7A}>) 3: (INVOKE-DEBUGGER #<PROGRAM-ERROR {2FF68A99}>) 4: (ERROR PROGRAM-ERROR :FORMAT-CONTROL "Invalid initarg ~S in call to ~S with arglist ~S." :FORMAT-ARGUMENTS (:PORT MAKE-INSTANCE (#<HUNCHENTOOT :EASY-ACCEPTOR {260674CA}> :PORT 4241))) 5: (MOP::CHECK-INITARGS (#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE {7EEC835F}> #<STANDARD-GENERIC-FUNCTION INITIALIZE-INSTANCE {6212F195}>) (#<HUNCHENTOOT:EASY-ACCEPTOR {260674CA}> :PORT 4241) #<HUNCHENTOOT:EASY- ACCEPTOR {260674CA}> T (:PORT 4241) #<EQ HASH-TABLE 3 entries, 22 buckets {63055B68}> MAKE-INSTANCE) 6: (#<FUNCTION {74B43BA1}> #<STANDARD-CLASS HUNCHENTOOT:EASY-ACCEPTOR {6D176900}> :PORT 4241) 7: (APPLY #<FUNCTION {74B43BA1}> (#<STANDARD-CLASS HUNCHENTOOT:EASY- ACCEPTOR {6D176900}> :PORT 4241)) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/198#comment:11> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 0

[armedbear-ticket] [armedbear] #176: Patch to get CFFI to find the JNA libraries dynamically via Maven3
by armedbear 13 Aug '12

13 Aug '12

#176: Patch to get CFFI to find the JNA libraries dynamically via Maven3 ----------------------------+----------------------------------------------- Reporter: mevenson | Owner: mevenson Type: defect | Status: new Priority: major | Milestone: unscheduled Component: libraries | Version: Keywords: quicklisp cffi | ----------------------------+----------------------------------------------- Need to get the following upstream to CFFI to ease use of JNA: {{{ #+abcl (eval-when (:load-toplevel) (require 'abcl-contrib) (require 'abcl-asdf) (java:add-to-classpath (abcl-asdf:resolve-dependencies "com.sun.jna" "jna" "3.0.9"))) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/176> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 1

[armedbear-ticket] [armedbear] #214: Stack overflow when compiler macro with fallback is triggered
by armedbear 12 Aug '12

12 Aug '12

#214: Stack overflow when compiler macro with fallback is triggered ----------------------+----------------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 1.1.0 Component: compiler | Version: 1.0.1 Keywords: | ----------------------+----------------------------------------------------- [http://article.gmane.org/gmane.lisp.armedbear.devel/2352 James Lawerence reports] {{{ (eval-when (:compile-toplevel :load-toplevel :execute) (defun foo () 99) (define-compiler-macro foo () `(locally (declare (notinline foo)) (foo)))) (defun call-foo () (foo)) }}} Of course, the use case is a compiler macro that says, "OK, let's optimize! ... Never mind, I don't want to optimize that." {{{ Armed Bear Common Lisp 1.0.1-svn-13750-13751 Java 1.7.0_04 Oracle Corporation [...] ; (DEFUN FOO ...) ; (DEFINE-COMPILER-MACRO FOO ...) ; (DEFUN CALL-FOO ...) java.lang.StackOverflowError at org.armedbear.lisp.StructureObject$pf_make_structure.execute(StructureObject.java:671) at org.armedbear.lisp.Symbol.execute(Symbol.java:865) at org.armedbear.lisp.LispThread.execute(LispThread.java:760) at org.armedbear.lisp.jvm_714.execute(jvm.lisp:567) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/214> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 5

[armedbear-ticket] [armedbear] #195: prompt is displayed twice when evaluating NIL at the REPL
by armedbear 11 Aug '12

11 Aug '12

#195: prompt is displayed twice when evaluating NIL at the REPL -------------------------+-------------------------------------------------- Reporter: rschlatte | Owner: ehuelsmann Type: defect | Status: new Priority: trivial | Milestone: Component: interpreter | Version: Keywords: | -------------------------+-------------------------------------------------- {{{ $ abcl Armed Bear Common Lisp 1.1.0-dev Java 1.6.0_29 Apple Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.724 seconds. Startup completed in 2.336 seconds. Loading /home/rudi/.abclrc completed in 11.57 seconds. Type ":help" for a list of available commands. CL-USER(1): NIL NIL CL-USER(2): CL-USER(2): }}} Reported by Blake McBride Jan 16, 2012 -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/195> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 3

[armedbear-ticket] [armedbear] #168: Compilation fails for quicklisp let-plus
by armedbear 08 Aug '12

08 Aug '12

#168: Compilation fails for quicklisp let-plus ----------------------------------------+----------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 0.28 Component: compiler | Version: Keywords: quicklisp ansi_confromance | ----------------------------------------+----------------------------------- let-plus-20110730-git, a dependency for LLA, cannot be compiled resulting in the following error: {{{ ; Loading /Users/evenson/.cache/common-lisp/abcl-0.27.0-dev-fasl37-macosx- java/Users/evenson/quicklisp/dists/quicklisp/software/let- plus-20110730-git/package.abcl ... ; Loaded /Users/evenson/.cache/common-lisp/abcl-0.27.0-dev-fasl37-macosx- java/Users/evenson/quicklisp/dists/quicklisp/software/let- plus-20110730-git/package.abcl (0.027 seconds) ; Compiling /Users/evenson/quicklisp/dists/quicklisp/software/let- plus-20110730-git/let-plus.lisp ... ; (IN-PACKAGE #:LET-PLUS) ; (DEFUN IGNORED? ...) ; (DEFUN REPLACE-IGNORED ...) ; (DEFUN EXPAND-SLOT-FORMS ...) ; (DEFUN EXPAND-ENTRY-FORMS ...) ; (DEFUN EXPAND-ARRAY-ELEMENTS ...) ; (DEFGENERIC LET+-EXPANSION ...) ; (DEFGENERIC LET+-EXPANSION-FOR-LIST ...) ; (DEFMACRO LET+ ...) ; (DEFMACRO DEFINE-LET+-EXPANSION ...) #<THREAD "interpreter" {52BBC66F}>: Debugger invoked on condition of type COMPILER-UNSUPPORTED-FEATURE-ERROR COMPILE-FORM unhandled case ((ANAPHORA:IT #:THIS-S2842)) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/168> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 6

[armedbear-ticket] [armedbear] #73: "normalize-type" buffering
by armedbear 08 Aug '12

08 Aug '12

#73: "normalize-type" buffering -------------------------+-------------------------------------------------- Reporter: ehuelsmann | Owner: somebody Type: task | Status: new Priority: major | Milestone: Component: CLOS | Version: Keywords: performance | -------------------------+-------------------------------------------------- Peter Graves points out that with his "canonicalize-type" buffering, he achieved measurable performance gain in XCL. We want to do the same in ABCL. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/73> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 5

[armedbear-ticket] [armedbear] #202: ENSURE-GENERIC-FUNCTION assumes LAMBDA-LIST is NIL
by armedbear 06 Aug '12

06 Aug '12

#202: ENSURE-GENERIC-FUNCTION assumes LAMBDA-LIST is NIL --------------------+------------------------------------------------------- Reporter: gpfeil | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: 1.1.0-dev Keywords: | --------------------+------------------------------------------------------- I know ABCL's MOP isn't complete yet, but I just saw this with ENSURE- GENERIC-FUNCTION. {{{ (ensure-generic-function 'make-instance :method-combination *contract-method- combination*) }}} complains that the lambda list NIL isn't compatible with MAKE-INSTANCE's lambda list. If I don't pass the :LAMBDA-LIST parameter, it shouldn't attempt to change the lambda list. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/202> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2

[armedbear-ticket] [armedbear] #221: Stack exhaustion on invocation of function in non-existing package
by armedbear 05 Aug '12

05 Aug '12

#221: Stack exhaustion on invocation of function in non-existing package -------------------------+-------------------------------------------------- Reporter: ehuelsmann | Owner: ehuelsmann Type: defect | Status: new Priority: blocker | Milestone: 1.1.0 Component: interpreter | Version: Keywords: | -------------------------+-------------------------------------------------- Note that it's not related to Hunchentoot or Quicklisp, but can be triggered by any function. Armed Bear Common Lisp 1.1.0-dev-svn-14016M Java 1.6.0_26 Sun Microsystems Inc. Java HotSpot(TM) Client VM Low-level initialization completed in 0.317 seconds. Startup completed in 1.76 seconds. Type ":help" for a list of available commands. CL-USER(1): (ql:quickload :hunchentoot) #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type READER-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR #<THREAD "interpreter" {1479EF9}>: Debugger invoked on condition of type SIMPLE-ERROR -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/221> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 1

[armedbear-ticket] [armedbear] #201: &WHOLE broken in DEFINE-METHOD-COMBINATION
by armedbear 05 Aug '12

05 Aug '12

#201: &WHOLE broken in DEFINE-METHOD-COMBINATION ----------------------------------------------------------------------------------------------+ Reporter: https://www.google.com/accounts/o8/id?id=aitoawlfp20ohzeq8vs4btepsaqltprtai… | Owner: somebody Type: defect | Status: new Priority: minor | Milestone: Component: CLOS | Version: 1.1.0-dev Keywords: | ----------------------------------------------------------------------------------------------+ I get an error whenever I call a function that uses the simple method combination shown here. {{{ CL-USER> (define-method-combination progn-with-whole () ((methods ())) (:arguments &whole whole) `(progn (format nil "using ~a" ,whole) ,@(mapcar (lambda (method) `(call-method ,method)) methods))) PROGN-WITH-WHOLE CL-USER> (defgeneric test-&whole (x) (:method-combination progn-with-whole) (:method (x) x)) #<STANDARD-GENERIC-FUNCTION TEST-&WHOLE {34315D04}> CL-USER> (test-&whole 4) }}} Here is the error: {{{ The value 4 is not of type LIST. [Condition of type TYPE-ERROR] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [ABORT] Abort thread. Backtrace: 0: (#<FUNCTION {C69203}> #<TYPE-ERROR {FE85ADF}> #<FUNCTION {C69203}>) 1: (APPLY #<FUNCTION {C69203}> (#<TYPE-ERROR {FE85ADF}> #<FUNCTION {C69203}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR {FE85ADF}> #<FUNCTION {C69203}>) 3: (INVOKE-DEBUGGER #<TYPE-ERROR {FE85ADF}>) 4: org.armedbear.lisp.Lisp.error(Lisp.java:379) 5: org.armedbear.lisp.Lisp.type_error(Lisp.java:420) 6: org.armedbear.lisp.LispObject.car(LispObject.java:156) 7: org.armedbear.lisp.Lisp.eval(Lisp.java:520) 8: org.armedbear.lisp.Lisp.evalCall(Lisp.java:559) 9: org.armedbear.lisp.Lisp.eval(Lisp.java:515) 10: org.armedbear.lisp.Lisp.progn(Lisp.java:684) 11: org.armedbear.lisp.SpecialOperators$sf_progn.execute(SpecialOperators.java:275) 12: org.armedbear.lisp.Lisp.eval(Lisp.java:505) 13: org.armedbear.lisp.Lisp.progn(Lisp.java:684) 14: org.armedbear.lisp.Primitives$sf_macrolet.execute(Primitives.java:3641) 15: ((LAMBDA (#:G13665) (MACROLET (#) (PROGN # #))) (4)) 16: (FUNCALL (LAMBDA (#:G13665) (MACROLET (#) (PROGN # #))) (4)) 17: (#<STANDARD-GENERIC-FUNCTION TEST-&WHOLE {34315D04}> 4) 18: (APPLY #<STANDARD-GENERIC-FUNCTION TEST-&WHOLE {34315D04}> (4)) 19: (MOP::INITIAL-DISCRIMINATING-FUNCTION #<STANDARD-GENERIC-FUNCTION TEST-&WHOLE {34315D04}> (4)) 20: (#<STANDARD-GENERIC-FUNCTION TEST-&WHOLE {34315D04}> 4) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/201> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 5

[armedbear-ticket] [armedbear] #227: Invocation of an undefined function in a fresh ABCL crashes
by armedbear 01 Aug '12

01 Aug '12

#227: Invocation of an undefined function in a fresh ABCL crashes ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: somebody Type: defect | Status: new Priority: blocker | Milestone: Component: other | Version: Keywords: | ------------------------+--------------------------------------------------- Evaluating (slot-boundp) in a freshly started ABCL ("naked", not in SLIME) causes too many errors and terminates ABCL hard. No idea where the error is yet, but it's probably something to do with auto loading. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/227> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2