[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#148926: marked as done (clisp eats whole memory)



Your message dated Sat, 15 Jun 2002 19:32:05 +0100
with message-id <E17JIIK-0004PN-00.2002-06-15-19-29-04@mail13.svr.pol.co.uk>
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 gregor_jan@seznam.cz Mon Jun 03 11:16:16 2002
Return-path: <gregor_jan@seznam.cz>
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 submit@bugs.debian.org; 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 <submit@bugs.debian.org>; Mon, 03 Jun 2002 17:50:10 +0200
Date: Mon, 3 Jun 2002 17:50:09 +0200
From: Jan Gregor <gregor_jan@seznam.cz>
To: Debian Bug Tracking System <submit@bugs.debian.org>
Subject: clisp eats whole memory
Message-ID: <20020603175009.A815@pisidlo>
Reply-To: gregor_jan@seznam.cz
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: submit@bugs.debian.org


--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 will@misconception.org.uk Sat Jun 15 13:29:06 2002
Return-path: <will@misconception.org.uk>
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 148926-done@bugs.debian.org; Sat, 15 Jun 2002 19:29:04 +0100
Content-Type: text/plain;
  charset="iso-8859-1"
From: Will Newton <will@misconception.org.uk>
To: 148926-done@bugs.debian.org
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: <E17JIIK-0004PN-00.2002-06-15-19-29-04@mail13.svr.pol.co.uk>
Delivered-To: 148926-done@bugs.debian.org


See response from upstream.


-- 
To UNSUBSCRIBE, email to debian-qa-packages-request@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org



Reply to: