Your message dated Sat, 15 Jun 2002 19:32:05 +0100
with message-id <[EMAIL PROTECTED]>
and subject line Not a bug
has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Debian bug tracking system administrator
(administrator, Debian Bugs database)
--------------------------------------
Received: (at submit) by bugs.debian.org; 3 Jun 2002 16:16:16 +0000
>From [EMAIL PROTECTED] Mon Jun 03 11:16:16 2002
Return-path: <[EMAIL PROTECTED]>
Received: from stateless3.tiscali.cz (mail.tiscali.cz) [213.235.135.72]
by master.debian.org with esmtp (Exim 3.12 1 (Debian))
id 17EuVE-0002sc-00; Mon, 03 Jun 2002 11:16:16 -0500
Received: from localhost (212.90.234.218) by mail.tiscali.cz (6.0.044)
id 3CA1A1280056D3DA for [EMAIL PROTECTED]; Mon, 3 Jun 2002 18:14:53
+0200
Received: from honza by localhost with local (Exim 3.32 #1 (Debian))
id 17Eu5y-0000DJ-00
for <[EMAIL PROTECTED]>; Mon, 03 Jun 2002 17:50:10 +0200
Date: Mon, 3 Jun 2002 17:50:09 +0200
From: Jan Gregor <[EMAIL PROTECTED]>
To: Debian Bug Tracking System <[EMAIL PROTECTED]>
Subject: clisp eats whole memory
Message-ID: <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="T4sUOijqQbZv57TR"
Content-Disposition: inline
User-Agent: Mutt/1.3.22i
X-Reportbug-Version: 1.36
Delivered-To: [EMAIL PROTECTED]
--T4sUOijqQbZv57TR
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Package: clisp
Version: 1:2.27-0.5
Severity: important
Following sequence produce this effect:
(jtms-init)
(setq a (install-node 'a))
(setq b (install-node 'b))
(install-just a (list b))
I found that this problem has something to do with push and defstruct.
In harlequin lisp (lispworks) program worked without problems.
When I replaced defstruct with defclass, problem disappeared in clisp
too.
-- System Information
Debian Release: testing/unstable
Architecture: i386
Kernel: Linux pisidlo 2.2.20 #1 Sun Feb 24 20:26:35 CET 2002 i686
Locale: LANG=cs_CZ, LC_CTYPE=cs_CZ
Versions of packages clisp depends on:
ii libc6 2.2.5-4 GNU C Library: Shared libraries an
ii libncurses5 5.2.20020112a-7 Shared libraries for terminal hand
--T4sUOijqQbZv57TR
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="jtms.lsp"
(defstruct node
(index 0)
(datum nil)
(label 'out)
(support nil)
(justifications nil)
(consequences nil)
)
(defstruct justification
(index 0)
in-list
out-list
consequence
)
(defvar *node-counter*)
(defvar *just-counter*)
(defun in-node? (node) (eq (node-label node) 'in))
(defun out-node? (node) (eq (node-label node) 'out))
(defun jtms-init ()
(setq *node-counter* 0
*just-counter* 0)
)
(defun install-node (datum)
(let (node)
(setq node (make-node :datum datum :index (incf *node-counter*)))
))
(defun install-just (conseq in-supp &optional (out-supp nil))
(let (just)
(setq just (make-justification :index (incf *just-counter*)
:in-list in-supp
:out-list out-supp
:consequence conseq))
; (setf (node-justifications conseq)
; (append (node-justifications conseq) just))
(push just (node-justifications conseq))
just
))
--T4sUOijqQbZv57TR--
---------------------------------------
Received: (at 148926-done) by bugs.debian.org; 15 Jun 2002 18:29:06 +0000
>From [EMAIL PROTECTED] Sat Jun 15 13:29:06 2002
Return-path: <[EMAIL PROTECTED]>
Received: from mail13.svr.pol.co.uk [195.92.193.24]
by master.debian.org with esmtp (Exim 3.12 1 (Debian))
id 17JIIM-00072o-00; Sat, 15 Jun 2002 13:29:06 -0500
Received: from modem-426.babbelas.dialup.pol.co.uk ([62.25.133.170] helo=there)
by mail13.svr.pol.co.uk with smtp (Exim 3.35 #1)
id 17JIIK-0004PN-00
for [EMAIL PROTECTED]; Sat, 15 Jun 2002 19:29:04 +0100
Content-Type: text/plain;
charset="iso-8859-1"
From: Will Newton <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: Not a bug
Date: Sat, 15 Jun 2002 19:32:05 +0100
X-Mailer: KMail [version 1.3.2]
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Message-Id: <[EMAIL PROTECTED]>
Delivered-To: [EMAIL PROTECTED]
See response from upstream.
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
