Bug#148926: clisp eats whole memory

2002-06-03 Thread Jan Gregor
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  libc62.2.5-4 GNU C Library: Shared libraries an
ii  libncurses5  5.2.20020112a-7 Shared libraries for terminal hand

(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
))





Bug#148865: marked as done (freeamp doesn't run)

2002-06-03 Thread Debian Bug Tracking System
Your message dated Mon, 3 Jun 2002 23:20:27 -0400
with message-id <[EMAIL PROTECTED]>
and subject line Disk space problem?
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 01:42:56 +
>From [EMAIL PROTECTED] Sun Jun 02 20:42:56 2002
Return-path: <[EMAIL PROTECTED]>
Received: from (green.daf.2y.net) [24.102.84.29] (mail)
by master.debian.org with esmtp (Exim 3.12 1 (Debian))
id 17Egs3-0002fs-00; Sun, 02 Jun 2002 20:42:55 -0500
Received: from daf by green.daf.2y.net with local (Exim 3.35 #1 (Debian))
id 17Egrw-0002MZ-00; Sun, 02 Jun 2002 21:42:48 -0400
Subject: freeamp doesn't run
From: "Duncan Findlay" <[EMAIL PROTECTED]>
To: "Debian Bug Tracking System" <[EMAIL PROTECTED]>
X-Mailer: reportbug 1.99.34
Date: Sun, 02 Jun 2002 21:42:48 -0400
Message-Id: <[EMAIL PROTECTED]>
Delivered-To: [EMAIL PROTECTED]

Package: freeamp
Version: 1:2.1.1.0-4
Severity: important

freeamp doesn't seem to run right now. Sometimes it does, sometimes it
doesn't, however, I can usually fix it by deleting ~/.freeamp and
trying again. Not now, it just doesn't run at all. No output,
either. I wonder if it's something caused by the apt-get upgrade I did
a few hours ago.

Here's a strace:

[EMAIL PROTECTED]:~$ rm -Rf ~/.freeamp/
[EMAIL PROTECTED]:~$ strace freeamp
execve("/usr/bin/freeamp", ["freeamp"], [/* 32 vars */]) = 0
uname({sys="Linux", node="green", ...}) = 0
brk(0)  = 0x810a920
open("/etc/ld.so.preload", O_RDONLY)= -1 ENOENT (No such file or directory)
open("/etc/ld.so.cache", O_RDONLY)  = 3
fstat64(3, {st_mode=S_IFREG|0644, st_size=48310, ...}) = 0
old_mmap(NULL, 48310, PROT_READ, MAP_PRIVATE, 3, 0) = 0x40014000
close(3)= 0
open("/lib/libdl.so.2", O_RDONLY)   = 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0T\27\0\000"..., 1024) = 
1024
fstat64(3, {st_mode=S_IFREG|0644, st_size=8008, ...}) = 0
old_mmap(NULL, 11004, PROT_READ|PROT_EXEC, MAP_PRIVATE, 3, 0) = 0x4002
mprotect(0x40022000, 2812, PROT_NONE)   = 0
old_mmap(0x40022000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 
0x1000) = 0x40022000
close(3)= 0
open("/lib/libpthread.so.0", O_RDONLY)  = 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0`C\0\000"..., 1024) = 
1024
fstat64(3, {st_mode=S_IFREG|0644, st_size=102172, ...}) = 0
old_mmap(NULL, 81316, PROT_READ|PROT_EXEC, MAP_PRIVATE, 3, 0) = 0x40023000
mprotect(0x4003, 28068, PROT_NONE)  = 0
old_mmap(0x4003, 28672, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 
0xd000) = 0x4003
close(3)= 0
open("/lib/libnsl.so.1", O_RDONLY)  = 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0 ;\0\000"..., 1024) = 
1024
fstat64(3, {st_mode=S_IFREG|0644, st_size=69472, ...}) = 0
old_mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 
0x40037000
old_mmap(NULL, 80988, PROT_READ|PROT_EXEC, MAP_PRIVATE, 3, 0) = 0x40038000
mprotect(0x40049000, 11356, PROT_NONE)  = 0
old_mmap(0x40049000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 
0x1) = 0x40049000
old_mmap(0x4004a000, 7260, PROT_READ|PROT_WRITE, 
MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x4004a000
close(3)= 0
open("/usr/lib/libmusicbrainz.so.1", O_RDONLY) = 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0\300(\1"..., 1024) = 
1024
fstat64(3, {st_mode=S_IFREG|0644, st_size=495224, ...}) = 0
old_mmap(NULL, 498648, PROT_READ|PROT_EXEC, MAP_PRIVATE, 3, 0) = 0x4004c000
mprotect(0x400b6000, 64472, PROT_NONE)  = 0
old_mmap(0x400b6000, 65536, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 
0x69000) = 0x400b6000
close(3)= 0
open("/usr/lib/libstdc++-libc6.2-2.so.3", O_RDONLY) = 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0P\233\1"..., 1024) = 
1024
fstat64(3, {st_mode=S_IFREG|0644, st_size=288540, ...}) = 0
old_mmap(NULL, 296708, PROT_READ|PROT_EXEC, MAP_PRIVATE, 3, 0) = 0x400c6000
mprotect(0x400fc000, 75524, PROT_NONE)  = 0
old_mmap(0x400fc000, 69632, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 
0x36000) = 0x400fc000
old_mmap(0x4010d000, 5892, PROT_READ|PROT_WRITE, 
MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x4010d000
close(3)= 0
open("/lib/libm.so.6", O_RDONLY)= 3
read(3, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3\0\3\0\1\0\0\0\2007\0"..., 1024) = 
1024
fstat64(3, {st_mode=S