[Armedbear-ticket] [armedbear] #382: Error compiling com.informatimago.common-lisp.unix.option

[armedbear]

#382: Error compiling com.informatimago.common-lisp.unix.option
--------------------------------------------------+-----------------------
 Reporter:  mevenson                              |      Owner:
     Type:  defect                                |     Status:  new
 Priority:  major                                 |  Milestone:  1.4.0
Component:  compiler                              |    Version:  1.3.0-dev
 Keywords:  compiler quicklisp com.informatimago  |
--------------------------------------------------+-----------------------
 In http://article.gmane.org/gmane.lisp.armedbear.devel/3335 and
 http://article.gmane.org/gmane.lisp.armedbear.devel/3349 Pascal reports on
 the compiler failing on a specific kind of DEFSTRUCT and DEFCLASS that
 doesn't easily factor into a standalone case:

 While compiling the package com.informatimago.common-lisp.unix.option,
 abcl 1.3.1 fails with the following error, apparently on:
 {{{
 (defstruct option
  "An option structure."
  keys arguments documentation function)
 }}}
 It fails similarly to compile com.informatimago.tools.script, which
 contains this other (unrelated) structure:
 {{{
 (defstruct option
  keys arguments documentation function)
 }}}
 It can also be reproduced with:
 {{{
 abcl --noinit
 (load "quicklisp/setup.lisp")
 (ql:quickload :com.informatimago.common-lisp.cesarum) ; dependency
 (ql:quickload :com.informatimago.common-lisp.unix :verbose t)
 }}}
 but not with:
 {{{
 (compile-file
 #P"~/quicklisp/dists/quicklisp/software/com.informatimago-20141217-git
 /common-lisp/unix/option.lisp" :verbose t :print t)
 }}}


 Actually, the error occurs also when I replace defstruct by defclass.
 However, I could obtain a slime backtrace.  So it seems the error is
 produced by the compiler when compiling:

 {{{
 option> (compile 'help-wrapper
                 (lambda (#1=#:G99340)
                   (if (<= 0 (length #1#))
                       (destructuring-bind (&rest #2=#:G99341) #1# (funcall
 (quote #.(function list))) #2#)
                       (error "Missing arguments: ~{~A ~}" (subseq (quote
 nil) (length #1#))))))
 help-wrapper
 nil
 nil

 in (JVM::EMIT-CONSTRUCTOR-LAMBDA-LIST (#:G99340))
 }}}
 but I can't reproduced it stand-alone.

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