Received: (at submit) by debbugs.gnu.org; 14 Dec 2010 17:21:30 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Tue Dec 14 12:21:30 2010
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1PSYZ6-0003Yv-FD
for submit <at> debbugs.gnu.org; Tue, 14 Dec 2010 12:21:30 -0500
Received: from eggs.gnu.org ([140.186.70.92])
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <rustompmody <at> gmail.com>) id 1PSYXv-0003VU-5U
for submit <at> debbugs.gnu.org; Tue, 14 Dec 2010 12:20:17 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <rustompmody <at> gmail.com>) id 1PSYdi-0006cU-SC
for submit <at> debbugs.gnu.org; Tue, 14 Dec 2010 12:26:29 -0500
X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org
X-Spam-Level:
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
T_DKIM_INVALID,
T_TO_NO_BRKTS_FREEMAIL autolearn=unavailable version=3.3.1
Received: from lists.gnu.org ([199.232.76.165]:46362)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <rustompmody <at> gmail.com>) id 1PSYdi-0006R2-CI
for submit <at> debbugs.gnu.org; Tue, 14 Dec 2010 12:26:14 -0500
Received: from [140.186.70.92] (port=50827 helo=eggs.gnu.org)
by lists.gnu.org with esmtp (Exim 4.43) id 1PSYSn-0002vH-9L
for bug-gnu-emacs <at> gnu.org; Tue, 14 Dec 2010 12:14:59 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <rustompmody <at> gmail.com>) id 1PSYSj-0003Nn-33
for bug-gnu-emacs <at> gnu.org; Tue, 14 Dec 2010 12:14:57 -0500
Received: from mail-iy0-f169.google.com ([209.85.210.169]:55097)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <rustompmody <at> gmail.com>) id 1PSYSi-0003NX-Po
for bug-gnu-emacs <at> gnu.org; Tue, 14 Dec 2010 12:14:53 -0500
Received: by iyj17 with SMTP id 17so438804iyj.0
for <bug-gnu-emacs <at> gnu.org>; Tue, 14 Dec 2010 09:14:51 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;
h=domainkey-signature:mime-version:received:received:date:message-id
:subject:from:to:content-type:content-transfer-encoding;
bh=lzdgBNiFdvmWj/1duju2BoDF7trTmv3OlmJDP2hwzNI=;
b=pSoqdmaFxYoi71ypcq5e1oMJfi3TeS1uc/VMNquiMXqoLtALiSiBeho14hw0UmiVCc
2MLNeOwoeSwv7lWjHid5jzTk5NTMNpFxb9MElSzEDZdGMrZV6ZoZWFuHzOjqbBy6wKTr
kS0vTwQ2lH5sTaoDR12hkRIDC/nAWIVVkNOhY=
DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
h=mime-version:date:message-id:subject:from:to:content-type
:content-transfer-encoding;
b=QYgmarCpmZZ+Jx+tZGs4yHoWMwdU8QBaYoynSFvYxafIFblK2hrNT4ln1wPQO8/5d+
7viUJtuxxNPOm9Nr2i4ZM/izPsi2BhgoQeBCs/ixMGrffjVEufXM7dIR+/iDj8upUxw0
Pp21hc2vrpPDzTb5mHYU34lJYC7N97LF4C+bo=
MIME-Version: 1.0
Received: by 10.231.32.140 with SMTP id c12mr3578147ibd.74.1292346891752; Tue,
14 Dec 2010 09:14:51 -0800 (PST)
Received: by 10.231.34.72 with HTTP; Tue, 14 Dec 2010 09:14:51 -0800 (PST)
Date: Tue, 14 Dec 2010 22:44:51 +0530
Message-ID: <AANLkTinEDvMGeT6ZDy7YbV8p+EvA8A6D1F4aCvo6-LsB <at> mail.gmail.com>
Subject: 23.1; edebug parsing error
From: Rustom Mody <rustompmody <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2)
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2)
X-Spam-Score: -5.9 (-----)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Tue, 14 Dec 2010 12:21:26 -0500
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/pipermail/debbugs-submit>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -5.9 (-----)
edebug errors out on the following code.
Note: The code loads silently without edebug -- so its not an obvious
syntax error.
When debug-all-defs is on and debug-on-error is on I get the following trac=
e:
Debugger entered--Lisp error: (invalid-read-syntax "Failed matching"
([&optional ["named" symbolp]] [&rest &or ["repeat" form] loop-for-as
loop-with loop-initial-final] [&rest loop-clause]))
signal(invalid-read-syntax ("Failed matching" ([&optional ["named"
symbolp]] [&rest &or ["repeat" form] loop-for-as loop-with
loop-initial-final] [&rest loop-clause])))
edebug-syntax-error("Failed matching" ([&optional ["named" symbolp]]
[&rest &or ["repeat" form] loop-for-as loop-with loop-initial-final]
[&rest loop-clause]))
apply(edebug-syntax-error ("Failed matching" ([&optional ["named"
symbolp]] [&rest &or ["repeat" form] loop-for-as loop-with
loop-initial-final] [&rest loop-clause])))
edebug-no-match(((for event =3D (let ... ... ... ...) until (eq event
t) when event collect (cons ticks event)) (401 . 404) (405 . 410) (411
. 412) (416 (417 . 420) (421 ... . 448) (454 ... ... ... ... . 642)
(648 ... ... ... . 702) (708 ... ... ... . 2378) . 2379) (2383 . 2388)
(2389 (2390 . 2392) (2393 . 2398) (2399 . 2400) . 2401) (2402 . 2406)
(2407 . 2412) (2413 . 2420) (2421 (2422 . 2426) (2427 . 2432) (2433 .
2438) . 2439) . 2440) "Failed matching" ([&optional ["named" symbolp]]
[&rest &or ["repeat" form] loop-for-as loop-with loop-initial-final]
[&rest loop-clause]))
edebug-match-sublist(((for event =3D (let ... ... ... ...) until (eq
event t) when event collect (cons ticks event)) (401 . 404) (405 .
410) (411 . 412) (416 (417 . 420) (421 ... . 448) (454 ... ... ... ...
. 642) (648 ... ... ... . 702) (708 ... ... ... . 2378) . 2379) (2383
. 2388) (2389 (2390 . 2392) (2393 . 2398) (2399 . 2400) . 2401) (2402
. 2406) (2407 . 2412) (2413 . 2420) (2421 (2422 . 2426) (2427 . 2432)
(2433 . 2438) . 2439) . 2440) ([&optional ["named" symbolp]] [&rest
&or ["repeat" form] loop-for-as loop-with loop-initial-final] [&rest
loop-clause]))
edebug-list-form(((for event =3D (let ... ... ... ...) until (eq event
t) when event collect (cons ticks event)) (401 . 404) (405 . 410) (411
. 412) (416 (417 . 420) (421 ... . 448) (454 ... ... ... ... . 642)
(648 ... ... ... . 702) (708 ... ... ... . 2378) . 2379) (2383 . 2388)
(2389 (2390 . 2392) (2393 . 2398) (2399 . 2400) . 2401) (2402 . 2406)
(2407 . 2412) (2413 . 2420) (2421 (2422 . 2426) (2427 . 2432) (2433 .
2438) . 2439) . 2440))
edebug-form((((loop while ... do ... for event =3D ... until ... when
event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ... ... .
360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410) (411
. 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ... ...
... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ... ...
... . 2439) . 2440) . 2441))
edebug-match-form((((loop while ... do ... for event =3D ... until ...
when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ... ...
. 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441))
edebug-match-symbol((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) form)
edebug-match-one-spec((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) form)
edebug-match-specs((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (form) edebug-&rest-wrapper)
byte-code("=08 \n#=13" [cursor specs remainder-handler result
edebug-match-specs nil] 4)
edebug-&optional-wrapper((((loop while ... do ... for event =3D ...
until ... when event collect ...)) (333 (334 . 338) (339 . 344) (345
... ... ... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404)
(405 . 410) (411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388)
(2389 ... ... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420)
(2421 ... ... ... . 2439) . 2440) . 2441) (form) edebug-&rest-wrapper)
edebug-&rest-wrapper((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) nil edebug-&rest-wrapper)
edebug-match-specs((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (form) edebug-&rest-wrapper)
byte-code("=08 \n#=13" [cursor specs remainder-handler result
edebug-match-specs nil] 4)
edebug-&optional-wrapper((((loop while ... do ... for event =3D ...
until ... when event collect ...)) (333 (334 . 338) (339 . 344) (345
... ... ... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404)
(405 . 410) (411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388)
(2389 ... ... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420)
(2421 ... ... ... . 2439) . 2440) . 2441) (form) edebug-&rest-wrapper)
edebug-&rest-wrapper((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (form) edebug-&rest-wrapper)
edebug-match-&rest((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (form))
edebug-match-specs((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (&rest form) edebug-match-specs)
edebug-match((((loop while ... do ... for event =3D ... until ... when
event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ... ... .
360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410) (411
. 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ... ...
... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ... ...
... . 2439) . 2440) . 2441) (&rest form))
edebug-match-body((((loop while ... do ... for event =3D ... until ...
when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ... ...
. 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441))
edebug-match-symbol((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) body)
edebug-match-one-spec((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) body)
edebug-match-specs((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) (body) edebug-match-specs)
edebug-match-specs((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) ((&rest &or (symbolp &optional form)
symbolp) body) edebug-match-specs)
edebug-match-sublist((((loop while ... do ... for event =3D ... until
... when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ...
... . 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441) ((&rest &or (symbolp &optional form)
symbolp) body))
edebug-list-form((((loop while ... do ... for event =3D ... until ...
when event collect ...)) (333 (334 . 338) (339 . 344) (345 ... ... ...
. 360) (364 . 366) (367 ... ... ... . 397) (401 . 404) (405 . 410)
(411 . 412) (416 ... ... ... ... ... . 2379) (2383 . 2388) (2389 ...
... ... . 2401) (2402 . 2406) (2407 . 2412) (2413 . 2420) (2421 ...
... ... . 2439) . 2440) . 2441))
edebug-form((((let ... ... ...)) (179 (180 . 183) (184 ... ... ...
... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... . 2440) . 2441) . 2442))
edebug-match-form((((let ... ... ...)) (179 (180 . 183) (184 ... ...
... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442))
edebug-match-symbol((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) form)
edebug-match-one-spec((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) form)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) (form)
edebug-&rest-wrapper)
byte-code("=08 \n#=13" [cursor specs remainder-handler result
edebug-match-specs nil] 4)
edebug-&optional-wrapper((((let ... ... ...)) (179 (180 . 183) (184
... ... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
(form) edebug-&rest-wrapper)
edebug-&rest-wrapper((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) (form)
edebug-&rest-wrapper)
edebug-match-&rest((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
(form))
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) (&rest
form) edebug-match-specs)
edebug-match((((let ... ... ...)) (179 (180 . 183) (184 ... ... ...
... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) (&rest form))
edebug-match-def-body((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442))
edebug-match-symbol((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
def-body)
edebug-match-one-spec((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
def-body)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
(def-body) edebug-match-specs)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
([&optional ("interactive" interactive)] def-body) edebug-match-specs)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
([&optional stringp] [&optional ("interactive" interactive)] def-body)
edebug-match-specs)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
(lambda-list [&optional stringp] [&optional ("interactive"
interactive)] def-body) edebug-match-specs)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442) (name
lambda-list [&optional stringp] [&optional ("interactive"
interactive)] def-body) edebug-match-specs)
edebug-match-specs((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
("defun" name lambda-list [&optional stringp] [&optional
("interactive" interactive)] def-body) edebug-match-specs)
edebug-match-sublist((((let ... ... ...)) (179 (180 . 183) (184 ...
... ... ... . 270) (275 ... ... ... . 328) (333 ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... . 2440) . 2441) . 2442)
("defun" name lambda-list [&optional stringp] [&optional
("interactive" interactive)] def-body))
edebug-match-list((((defun smf-read-mtrk ... "Read one MTrk
chunk.\nNoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event\npairs are
unified into a Note event with a certain duration." ...)) (15 (16 .
21) (22 . 35) (36 ... . 44) (47 . 176) (179 ... ... ... ... . 2441) .
2442)) ("defun" name lambda-list [&optional stringp] [&optional
("interactive" interactive)] def-body))
edebug-match-one-spec((((defun smf-read-mtrk ... "Read one MTrk
chunk.\nNoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event\npairs are
unified into a Note event with a certain duration." ...)) (15 (16 .
21) (22 . 35) (36 ... . 44) (47 . 176) (179 ... ... ... ... . 2441) .
2442)) ("defun" name lambda-list [&optional stringp] [&optional
("interactive" interactive)] def-body))
edebug-match-specs((((defun smf-read-mtrk ... "Read one MTrk
chunk.\nNoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event\npairs are
unified into a Note event with a certain duration." ...)) (15 (16 .
21) (22 . 35) (36 ... . 44) (47 . 176) (179 ... ... ... ... . 2441) .
2442)) (("defun" name lambda-list [&optional stringp] [&optional ...]
def-body)) edebug-match-specs)
edebug-match((((defun smf-read-mtrk ... "Read one MTrk
chunk.\nNoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event\npairs are
unified into a Note event with a certain duration." ...)) (15 (16 .
21) (22 . 35) (36 ... . 44) (47 . 176) (179 ... ... ... ... . 2441) .
2442)) (("defun" name lambda-list [&optional stringp] [&optional ...]
def-body)))
edebug-make-form-wrapper((((defun smf-read-mtrk ... "Read one MTrk
chunk.\nNoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event\npairs are
unified into a Note event with a certain duration." ...)) (15 (16 .
21) (22 . 35) (36 ... . 44) (47 . 176) (179 ... ... ... ... . 2441) .
2442)) 15 2441 (("defun" name lambda-list [&optional stringp]
[&optional ...] def-body)))
edebug-read-and-maybe-wrap-form1()
byte-code(" =10" [result edebug-read-and-maybe-wrap-form1 nil] 1)
edebug-read-and-maybe-wrap-form()
edebug-read(#<buffer midi3.el>)
eval-buffer() ; Reading at buffer position 401
call-interactively(eval-buffer t nil)
execute-extended-command(nil)
call-interactively(execute-extended-command nil nil)
The code that triggers it is from this file http://delysid.org/emacs/midi.e=
l
I have narrowed it down to this function: But could not go further (I
dont know commonlisp)
(require 'cl)
(defun smf-read-mtrk (length)
"Read one MTrk chunk.
NoteOn/NoteOff and NoteOn/NoteOn(vel=3D0) event
pairs are unified into a Note event with a certain duration."
(let ((end (+ (point) length))
(notes (make-vector 16 nil))
(ticks 0) (running-status 0))
(dotimes (i 16) (aset notes i (make-vector 128 nil)))
(loop while (< (point) end)
do (incf ticks (smf-read-varlen))
for event =3D
(let ((status (following-char)))
(if (/=3D (logand status #B10000000 ) #B10000000 )
(if (=3D running-status 0)
(error "Seen data byte without running status")
(setq status running-status))
(forward-char 1))
(unless (=3D status #XFF ) (setq running-status status))
(let ((lower (logand status #X0F )))
(case (ash status -4)
(8 (let* ((note (smf-read-byte)) (vel (smf-read-byte))
(old-note (aref (aref notes lower) note)))
(if (not old-note)
(list 'NoteOff lower note vel)
(setcar (cdr old-note) 'Note)
(setcdr (nthcdr 4 old-note)
(list (- ticks (car old-note)) vel))
(aset (aref notes lower) note nil))))
(9 (let* ((note (smf-read-byte)) (vel (smf-read-byte))
(data (cons ticks (list 'NoteOn lower note vel))))
(if (=3D vel 0)
(let ((old-note (aref (aref notes lower) note)))
(if (not old-note)
(cdr data)
(setcar (cdr old-note) 'Note)
(setcdr (nthcdr 4 old-note)
(list (- ticks (car old-note))))
(aset (aref notes lower) note nil)))
(cdr (aset (aref notes lower) note data)))))
(10 (list 'At lower (smf-read-byte) (smf-read-byte)))
(11 (list 'CC lower (smf-read-byte) (smf-read-byte)))
(12 (list 'PC lower (smf-read-byte)))
(13 (list 'CP lower (smf-read-byte)))
(14 (list 'PW lower (logior (smf-read-byte)
(lsh (smf-read-byte) 7))))
(15 (case lower
(0 (append (list 'SysEx)
(loop repeat (smf-read-varlen) collect
(smf-read-byte))))
(2 (let ((value (logior (smf-read-byte)
(lsh (smf-read-byte) 7))))
(list 'SongPosition value)))
(3 (list 'SongSelect (smf-read-byte)))
(6 (list 'TuneRequest))
(8 (list 'Clock))
(9 (list 'Tick))
(10 (list 'Start))
(11 (list 'Continue))
(12 (list 'Stop))
(14 (list 'ActiveSense))
(15 (smf-read-meta-event))
(t (error "Unknown stuff")))))))
until (eq event t) when event collect (cons ticks event))))
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.
Your bug report will be posted to the bug-gnu-emacs <at> gnu.org mailing list,
and to the gnu.emacs.bug news group.
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
`bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/home/siva/local/share/emacs/23.1/etc/DEBUG for instructions.
In GNU Emacs 23.1.1 (i686-pc-linux-gnu, GTK+ Version 2.12.12)
of 2010-04-28 on Arunachala
Windowing system distributor `The X.Org Foundation', version 11.0.10707000
configured using `configure '--with-x-toolkit=3Dgtk' '--prefix=3D/home/siv=
a/local''
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: en_US
value of $XMODIFIERS: nil
locale-coding-system: iso-latin-1-unix
default-enable-multibyte-characters: t
Major mode: Debugger
Minor modes in effect:
tooltip-mode: t
tool-bar-mode: t
mouse-wheel-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
global-auto-composition-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
M-x e d e b u g - a l l - d e f <tab> <return> M-x
s e y <backspace> t - v a r i <tab> <return> d e b
u <tab> o <tab> e <tab> <return> t <return> C-x C-f
m i d <tab> 3 <tab> <return> M-x e v a l - b u <tab>
<return> M-x r e p o r t - e m <tab> <return>
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Edebugging all definitions is on.
Entering debugger...
Rustom Mody <rustompmody <at> gmail.com>:bug-gnu-emacs <at> gnu.org.
Full text available.owner <at> debbugs.gnu.org, bug-gnu-emacs <at> gnu.org:bug#7639; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.