From efrias@kant.dcs.cie.uva.es Tue Jan 16 10:55:27 1996 Return-Path: Received: from kant.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA27455; Tue, 16 Jan 96 10:55:27 +0100 Message-Id: <9601160955.AA27455@ma2s2.mathematik.uni-karlsruhe.de> Received: by kant.dcs.cie.uva.es (1.38.193.5/16.2) id AA11813; Tue, 16 Jan 1996 10:47:05 +0100 Date: Tue, 16 Jan 1996 10:47:05 +0100 From: 46775835 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Does anyone Know if there is a compiler from Common Lisp to C for Linux? If you know a ftp-site where I could get it, please tell me. Is there any way of making an executable from a CLISP code? I send this message a couple of days ago, but my daemon mailer has gone down, and my email has changed, please if you have answered do it again. Tank you again and sorry , Enrique Frias Undergraduate Student Comp. Science Universidad de Valladolid EMAIL: efrias@kant.dcs.cie.uva.es WWW: http://www.uva.es From marcus@aristotle.icc.pdx.edu Wed Jan 17 06:21:55 1996 Return-Path: Received: from aristotle.icc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA28608; Wed, 17 Jan 96 06:21:55 +0100 Received: from nietzsche.icc.pdx.edu (nietzsche.icc.pdx.edu [131.252.86.110]) by aristotle.icc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id FAA22406; Wed, 17 Jan 1996 05:12:36 GMT for Received: (marcus@localhost) by nietzsche.icc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id DAA27178; Wed, 17 Jan 1996 03:01:18 GMT Date: Wed, 17 Jan 1996 03:01:18 GMT Message-Id: <199601170301.DAA27178@nietzsche.icc.pdx.edu> From: Marcus Daniels To: clisp-list In-Reply-To: <9601160955.AA27455@ma2s2.mathematik.uni-karlsruhe.de> References: <9601160955.AA27455@ma2s2.mathematik.uni-karlsruhe.de> Reply-To: marcus@sysc.pdx.edu >>>>> "Enrique" == 46775835 writes: Enrique> Does anyone Know if there is a compiler from Common Lisp to C Enrique> for Linux? CLiCC -- a Common Lisp subset to C converter ECL -- A more complete implementation than CLiCC, but still intended to be embedabble. GCL -- GNU Common Lisp, uses C compiler as back end Enrique> If you know a ftp-site where I could get it, please tell me. CLiCC: ftp.informatik.uni-kiel.de:/pub/kiel/apply ECL: ftp.di.unipi.it:/pub/lang/lisp GCL: ftp.ma.utexas.edu:/pub/gcl Enrique> Is there any way of making an executable from a CLISP code? If you merely need a way to make a program look like a typical executable, you might try: ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp/contrib/clispsh.tar.z From aaronn@linfield.edu Wed Jan 17 17:17:31 1996 Return-Path: Received: from linfield.edu (calvin.linfield.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29462; Wed, 17 Jan 96 17:17:31 +0100 Received: by linfield.edu (5.0/SMI-SVR4) id AA17593; Wed, 17 Jan 1996 08:07:10 +0800 Date: Wed, 17 Jan 1996 08:07:10 -0800 (PST) From: Aaron Ben Neerenberg Subject: Re: your mail To: clisp-list In-Reply-To: <9601160955.AA27455@ma2s2.mathematik.uni-karlsruhe.de> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Content-Length: 437 > Does anyone Know if there is a compiler from Common Lisp to C for Linux? > > If you know a ftp-site where I could get it, please tell me. > > Is there any way of making an executable from a CLISP code? There's a program floating around somewhere called CLiCC. I don't remember where to get it, but you could try doing an archie search, or searching via www to find a site for it. -aaronn Aaron Neerenberg Linfield College From xjam@ginkgo.CS.Berkeley.EDU Thu Jan 18 03:30:23 1996 Return-Path: Received: from ginkgo.CS.Berkeley.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00288; Thu, 18 Jan 96 03:30:23 +0100 Received: from ginkgo.CS.Berkeley.EDU (localhost.Berkeley.EDU [127.0.0.1]) by ginkgo.CS.Berkeley.EDU (8.6.11/8.6.9) with ESMTP id SAA14112 for ; Wed, 17 Jan 1996 18:20:55 -0800 From: "Brian F. Dennis" Message-Id: <199601180220.SAA14112@ginkgo.CS.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Dealing with the binary representation of floats. Reply-To: xjam@cork.cs.berkeley.edu Date: Wed, 17 Jan 1996 21:20:53 -0500 Is there any easy or standard way to take an IEEE floating point number in Clisp and turn it into it's bit representation for transmission through IPC? Ditto for receiving a bit pattern and turning it into a float. Thanks. --Bri From marcus@aristotle.icc.pdx.edu Thu Jan 18 03:56:47 1996 Return-Path: Received: from aristotle.icc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00388; Thu, 18 Jan 96 03:56:47 +0100 Received: from nietzsche.icc.pdx.edu (nietzsche.icc.pdx.edu [131.252.86.110]) by aristotle.icc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id CAA27793; Thu, 18 Jan 1996 02:47:19 GMT for Received: (marcus@localhost) by nietzsche.icc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id AAA04467; Thu, 18 Jan 1996 00:33:27 GMT Date: Thu, 18 Jan 1996 00:33:27 GMT Message-Id: <199601180033.AAA04467@nietzsche.icc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Dealing with the binary representation of floats. In-Reply-To: <199601180220.SAA14112@ginkgo.CS.Berkeley.EDU> References: <199601180220.SAA14112@ginkgo.CS.Berkeley.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "Brian" == "Brian F Dennis" writes: Brian> Is there any easy or standard way to take an IEEE floating Brian> point number in Clisp and turn it into it's bit representation Brian> for transmission through IPC? Ditto for receiving a bit pattern Brian> and turning it into a float. INTEGER-DECODE-FLOAT and SCALE-FLOAT might do what you want. Another approach is to use the FFI with IPC-ready C library routines that accept floating point numbers. For instance, some low-level glue to pack a various types with PVM library routines: (def-c-call-out raw-pkdouble (:name "pvm_pkdouble") (:arguments (val (c-ptr double-float)) (nitem int) (stride int)) (:return-type int)) [etc] (def-c-call-out raw-upkdouble (:name "pvm_upkdouble") (:arguments (fptr (c-ptr double-float) :out :alloca) (nitem int) (stride int)) (:return-type int)) [etc] (defun unpack-double () (multiple-value-bind (ret-code a-double) (raw-upkdouble 1 1) (if (zerop ret-code) a-double (check-return-code ret-code)))) From tkunze@cmsgia.Stanford.EDU Mon Jan 29 21:35:42 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA13720; Mon, 29 Jan 96 21:35:42 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA01849; Mon, 29 Jan 96 12:24:04 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id MAA24191; Mon, 29 Jan 1996 12:21:36 -0800 From: "Tobias Kunze" Message-Id: <9601291221.ZM24189@cmsgia.stanford.edu> Date: Mon, 29 Jan 1996 12:21:34 -0800 X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: image-directory Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii does anyone know how i get the directory of the currently starting lisp image? Ie, not clisp/base/lisp.run, but the dumped image i give with the -M option? TIA, -Tobias Kunze ________________________________________________________________ Center for Computer Research in Music and Acoustics 660 Lomita Dr, Stanford University, Stanford, CA 94305-8180 Vox: (415) 723-4971, Fax: (415) 723-8468 Net: t@kunze.stanford.edu Web: http://www.stanford.edu/~tkunze From wainz@focushope.edu Tue Jan 30 21:59:49 1996 Return-Path: Received: from gate.focushope.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15220; Tue, 30 Jan 96 21:59:49 +0100 Received: by gate.focushope.edu; id PAA10359; Tue, 30 Jan 1996 15:45:57 -0500 Received: from library(198.109.57.15) by gate.focushope.edu via smap (V1.3) id sma010346; Tue Jan 30 15:45:04 1996 Received: from aladdin by comsvr1.cat.focushope.edu (5.0/SMI-SVR4) id AA02966; Tue, 30 Jan 1996 15:45:45 -0500 Received: by aladdin (5.0/SMI-SVR4) id AA14112; Tue, 30 Jan 1996 15:45:29 +0500 Date: Tue, 30 Jan 1996 15:45:29 +0500 From: wainz@focushope.edu (Josef Wainz) Message-Id: <9601302045.AA14112@aladdin> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: RSX X-Sun-Charset: US-ASCII Content-Length: 1870 Can anyone help on setting up clisp in MS Windows 3.1. I followed the PIF instructions that came with the clisp readme file, but when I start clisp using the icon, it gives me an error about not finding file. My PIF file looks like this: Program: c:\rsx\bin\rsx.exe c:\ex_sys\lisp\lisp.exe Program title: COMMON LISP Program parameters: -M c:\ex_sys\lisp\lispinit.mem Start directory: c:\ex_sys\lisp Screen: Text Memory requirements: requires: 500 maximum: 640 EMS memory: requires: 0 maximum: 0 XMS memory: requires: 1024 maximum: -1 I've checked for path and spelling errors, but found none. To aid debugging I ran the following in a DOS Window: rsx c:\ex_sys\lisp\lisp.exe -M c:\ex_sys\lisp\lispinit.mem I got the following response: RSX (32 bir rel 5) dpmi 0.9-1.0 extender (c) Rainer Schnitker i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I I I I I I I 8 8 8 8 8 8 I I I I I I I 8 8 8 ooooo 8oooo I \ `+' / I 8 8 8 8 8 \ `-+-' / 8 o 8 8 o 8 8 `-__|__-' ooooo 8oooooo ooo8ooo ooooo 8 | ------+------ Copyright (c) Bruno Haible, Michael Stoll 1992, 1993, 1994 > process 2 get hardware fault 12 (stack fault) at 9EC2C writing core file I then ran the same in DOS with the following results: loader v1.0 :(c) Rainer Schnitker rsx_32 loader error: No DPMI-host found! My thanks and appreciation in advance for any help offered, Joe Wainz wainz@focushope.edu From marcus@sysc.pdx.edu Tue Jan 30 22:26:14 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15325; Tue, 30 Jan 96 22:26:14 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id NAA15907; Tue, 30 Jan 1996 13:14:26 -0800 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id VAA13167; Tue, 30 Jan 1996 21:14:21 GMT Date: Tue, 30 Jan 1996 21:14:21 GMT Message-Id: <199601302114.VAA13167@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: RSX In-Reply-To: <9601302045.AA14112@aladdin> References: <9601302045.AA14112@aladdin> Reply-To: marcus@sysc.pdx.edu >>>>> "Josef" == Josef Wainz writes: Josef> Can anyone help on setting up clisp in MS Windows 3.1. You could give: http://sayre.sysc.pdx.edu:8001/clisp/binaries/dos.zip a try. RSX and a PIF file are included, you'll need to tweak it with your paths. It works for me. From amolsky@osf1.gmu.edu Wed Jan 31 22:27:39 1996 Return-Path: Received: from osf1.gmu.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16589; Wed, 31 Jan 96 22:27:39 +0100 Received: by osf1.gmu.edu; (5.65v3.2/1.1.8.2/07Sep94-1001AM/GMUv3) id AA08785; Wed, 31 Jan 1996 16:15:40 -0500 Message-Id: <9601312115.AA08785@osf1.gmu.edu> Subject: Newbie os/2 install questions To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (lisp) Date: Wed, 31 Jan 1996 16:15:40 -0500 (EST) From: "Audrey Molsky" Cc: amolsky@osf1.gmu.edu (Audrey Molsky) X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 725 Hi, I hope someone can help me with this: I downloaded os2.zip from the web page, but when I unziped it - the three directories that were zipped could not be created. Also, the readme file lists a number of files under Contents that were not in my unzipped directory: the emx files, the LISP tutorial, etc. I then read the install file and became really confused. It implies that I must be in a UNIX emulation? What additional files do I actually need to download? Do I need to do everything listed in the install document? (The install document references a CLISP.ZIP, not the OS2.ZIP I actually downloaded.) If anyone can help clarify this for me I would really appreaciate it! (I am running WARP) Thanks, Audrey From haible@ilog.ilog.fr Wed Jan 31 23:36:16 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16728; Wed, 31 Jan 96 23:36:16 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA05622; Wed, 31 Jan 1996 23:24:19 +0100 (MET) Date: Wed, 31 Jan 96 22:54:51 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 31 Jan 96 22:54:52 +0100 From: haible@ilog.ilog.fr (Bruno Haible) Message-Id: <9601312154.AA27971@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA10506; Wed, 31 Jan 96 22:54:50 +0100 To: clisp-list Subject: Re: RSX In-Reply-To: <9601302045.AA14112@aladdin> References: <9601302045.AA14112@aladdin> [Message forwarded from Alex David Groce .] On Jan 30, 10:04pm, Josef Wainz wrote: > Subject: RSX > Can anyone help on setting up clisp in MS Windows 3.1. > > I followed the PIF instructions that came with the clisp readme file, but when I > start clisp using the icon, it gives me an error about not finding file. > > My PIF file looks like this: > > Program: c:\rsx\bin\rsx.exe c:\ex_sys\lisp\lisp.exe > Program title: COMMON LISP > Program parameters: -M c:\ex_sys\lisp\lispinit.mem > Start directory: c:\ex_sys\lisp Try placing the c:\ex_sys\lisp\lisp.exe in the Program parameters line. You may also need to add a -Ra or -Rs60 or some such to the line for it to work, if I read the error you got in DOS correctly. (I'm not sure which, but it's in the RSX documentation. Haven't used DOS CLISP in a while.) -- "And ye shall know the truth, and the truth shall set you free." - John 8:32 -- Alex David Groce (adgroce@eos.ncsu.edu) Sophomore (Computer Science/Multi-Disciplinary Studies/Applied Mathematics) 1995-96 DPMA Secretary, 1996 Benjamin Franklin Scholars Computer Manager 1005B Sullivan Hall (512-5172) http://www4.ncsu.edu/eos/users/a/adgroce/WWW/index.html From marcus@sysc.pdx.edu Thu Feb 1 00:12:09 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16852; Thu, 1 Feb 96 00:12:09 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id PAA17982; Wed, 31 Jan 1996 15:00:04 -0800 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id WAA01812; Wed, 31 Jan 1996 22:59:58 GMT Date: Wed, 31 Jan 1996 22:59:58 GMT Message-Id: <199601312259.WAA01812@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Newbie os/2 install questions In-Reply-To: <9601312115.AA08785@osf1.gmu.edu> References: <9601312115.AA08785@osf1.gmu.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Audrey" == Audrey Molsky writes: Audrey> Hi, I hope someone can help me with this: I downloaded os2.zip Audrey> from the web page, but when I unziped it - the three Audrey> directories that were zipped could not be created. Try the `-d' flag: unzip -d os2.zip Audrey> Also, the Audrey> readme file lists a number of files under Contents that were Audrey> not in my unzipped directory: the emx files, the LISP Audrey> tutorial, etc. A volunteer was nice enough to put together the OS2 package. If you want, you can get the missing text files from the source distribution, or I can email them to you. Also, I'd be happy to update the www/ftp sites if an OS/2 user would like to make an updated archive. I don't have acess to an OS/2 machine or I'd test it out myself. Audrey> I then read the install file and became really confused. It Audrey> implies that I must be in a UNIX emulation? The included INSTALL file describes how to build CLISP from source. The os2.zip file includes an executable and image so you won't need to do that. EMX is an extender that lets programs run with DOS as full 32-bit applications. EMX also provides a C library with some Unix-like features that CLISP uses. Provided you setup of the LIBPATH for emx.dll, etc. as described in the README, AFAIK it will work. Audrey> What additional files do I actually need to download? Do I Audrey> need to do everything listed in the install document? (The Audrey> install document references a CLISP.ZIP, not the OS2.ZIP I Audrey> actually downloaded.) ftp://ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp is the `official' distribution site for CLISP. The files at http://sayre.sysc.pdx.edu:8001/clisp are typically compiled from alpha-level sources -- you shouldn't be surprised if you have problems unless you talked about it with me first. However, aside from some superficial problems with the archive, I doubt there is anything really wrong with the actual os2 binaries. From xjam@ginkgo.CS.Berkeley.EDU Fri Feb 2 01:14:10 1996 Return-Path: Received: from ginkgo.CS.Berkeley.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18046; Fri, 2 Feb 96 01:14:10 +0100 Received: from ginkgo.CS.Berkeley.EDU (localhost.Berkeley.EDU [127.0.0.1]) by ginkgo.CS.Berkeley.EDU (8.6.11/8.6.9) with ESMTP id QAA25095 for ; Thu, 1 Feb 1996 16:01:54 -0800 From: "Brian F. Dennis" Message-Id: <199602020001.QAA25095@ginkgo.CS.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: argc and argv Reply-To: xjam@cork.cs.berkeley.edu Date: Thu, 01 Feb 1996 19:01:52 -0500 Does clisp have any builtin access for getting at argc and argv on os's that support it? --Bri From marcus@sysc.pdx.edu Fri Feb 2 01:37:46 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18114; Fri, 2 Feb 96 01:37:46 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id QAA20229; Thu, 1 Feb 1996 16:24:50 -0800 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id AAA13066; Fri, 2 Feb 1996 00:24:46 GMT Date: Fri, 2 Feb 1996 00:24:46 GMT Message-Id: <199602020024.AAA13066@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: argc and argv In-Reply-To: <199602020001.QAA25095@ginkgo.CS.Berkeley.EDU> References: <199602020001.QAA25095@ginkgo.CS.Berkeley.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "Brian" == Brian F Dennis writes: Brian> Does clisp have any builtin access for getting at argc and argv Brian> on os's that support it? Not really, but you can run lisp.run from a shell script (or alias) and create a expression for the `-x' option. ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp/contrib/clispsh.tar.z is an example of this. From Otahara.Taizo@tko.dec.com Tue Feb 6 08:43:04 1996 Return-Path: Received: from mail2.digital.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22793; Tue, 6 Feb 96 08:43:04 +0100 Received: from tkobs0.tko.dec.com by mail2.digital.com (5.65 EXP 4/12/95 for V3.2/1.0/WV) id AA13660; Mon, 5 Feb 1996 23:27:21 -0800 Received: by tkobs0.tko.dec.com (5.65/ULTRIX-fma-940408); id AA00982; Tue, 6 Feb 1996 16:27:17 +0900 From: Otahara.Taizo@tko.dec.com Received: by tkobs0.tko.dec.com (5.65/ULTRIX-fma-940408); id AA00968; Tue, 6 Feb 1996 16:27:02 +0900 Received: by synapse.tko.dec.com (5.57/ULTRIX-fma-041391); id AA29562; Tue, 6 Feb 96 16:24:05 +0900 Message-Id: <9602060724.AA29562@synapse.tko.dec.com> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: unsubscribe Date: Tue, 06 Feb 96 16:24:05 +0900 X-Mts: smtp unsubscribe From stoffel@cs.tu-berlin.de Tue Feb 6 14:33:30 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23172; Tue, 6 Feb 96 14:33:30 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id OAA20077 for ; Tue, 6 Feb 1996 14:10:12 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <31175330.144B@cs.tu-berlin.de> Date: Tue, 06 Feb 1996 14:10:08 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0b5 (X11; I; SunOS 5.4 sun4m) Mime-Version: 1.0 To: clisp-list Subject: CLISP and TCL/TK? Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Does anyone know if there exists an Interface between CLISP and TCL/TK, and where i can get it? Thanks in Advance, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From matthias@intellektik.informatik.th-darmstadt.de Tue Feb 6 15:43:21 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23438; Tue, 6 Feb 96 15:43:21 +0100 Received: from plopp.intellektik.informatik.th-darmstadt.de (plopp.intellektik.informatik.th-darmstadt.de [130.83.7.136]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with SMTP id PAA18502 for ; Tue, 6 Feb 1996 15:30:23 +0100 Received: by plopp.intellektik.informatik.th-darmstadt.de (4.1/Server-1.3/HRZ-THD) id AA20530; Tue, 6 Feb 96 15:30:22 +0100 Date: Tue, 6 Feb 96 15:30:22 +0100 From: Matthias Lindner Message-Id: <9602061430.AA20530@plopp.intellektik.informatik.th-darmstadt.de> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: CLISP and TCL/TK? Mark Mueller writes: > Does anyone know if there exists an Interface between CLISP > and TCL/TK, and where i can get it? > Try ftp://aida.intellektik.informatik.th-darmstadt.de/pub/plopp/with-wish.tar.gz It's a small interface from Commonlisp (CLISP,(A)KCL,GCL,Allegro,Lucid,CMU) to a Tcl/Tk-Process. It works *only* if the Lisp interpreter allows to spawn subshells (i.e. RUN-PROGRAM, SYSTEM e.a.). I've tested it only under UNIX (SunOS, Solaris, Linux). There is another package named lisp2wish written by J.Kaye that does a similar thing. Look at http://www.cis.upenn.edu:80/~kaye/tcl.html. Have fun --Matthias ------------------------------------------------------------------------------ Matthias Lindner Bayerisches Forschungszentrum fuer Wissensbasierte Systeme (FORWISS) Am Weichselgarten 7 91058 Erlangen-Tennenlohe TEL: +49 9131 691-196 FAX: +49 9131 691-185 NET: lindner@forwiss.uni-erlangen.de WWW: http://www.forwiss.uni-erlangen.de/~lindner/ ------------------------------------------------------------------------------ From hofbaur@fstgds06.tu-graz.ac.at Sun Feb 11 20:13:44 1996 Return-Path: Received: from fstgds06.tu-graz.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29749; Sun, 11 Feb 96 20:13:44 +0100 Received: by fstgds06.tu-graz.ac.at id AA15306 (5.65c/IDA-1.5s for clisp-list@ma2s2.mathematik.uni-karlsruhe.de); Sun, 11 Feb 1996 19:59:49 +0100 Date: Sun, 11 Feb 1996 19:59:03 +0100 (MET) From: Michael Hofbaur Subject: Clisp question To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hi, I am new to clisp and would like to use it to run the qsim software on our IBM RS6000. Qsim uses the "Logical-Pathnames System" and the "Defsystem" from CMU. However the first one causes some troubles and my limited lisp- and Clisp knowledge does not allow me to get past this error. Maybe the solution is trivial, but I would be very grateful for some help. The clisp session looks like: ............................................................... > (load "start-nq.lisp") ;; Loading file start-nq.lisp ... ;; Loading file /users/michi/qsim/c-lisp/logical-pathnames.lisp ... ** - Continuable Error Redefining the COMMON LISP function LOGICAL-PATHNAME-TRANSLATIONS If you continue (by typing 'continue'): The old definition will be lost 1. Break> continue ** - Continuable Error Redefining the COMMON LISP function LOAD-LOGICAL-PATHNAME-TRANSLATIONS If you continue (by typing 'continue'): The old definition will be lost 1. Break> continue *** - (SETF CLOS:FIND-CLASS): cannot redefine built-in class # 1. Break> .................................................. The error is caused by the following code from the file logical-pathnames.lisp: .............................................................. ;;; ******************************** ;;; Logical Pathname Defstruct ***** ;;; ******************************** (defstruct (logical-pathname (:include physical-pathname) (:conc-name %logical-pathname-) (:print-function %print-logical-pathname) (:constructor %make-logical-pathname (host device directory name type version)) (:predicate logical-pathnamep)) "Logical-pathname is the underlying structure for a logical pathname.") .................................................................... How could I get around this problem? Thanks for your help, michael. -------------------------------------------------------- Michael Hofbaur Dept. of Automatic Control Graz University of Technology, Austria hofbaur@fstgds06.tu-graz.ac.at michi@irt.tu-graz.ac.at From tkunze@cmsgia.Stanford.EDU Mon Feb 12 02:59:12 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29951; Mon, 12 Feb 96 02:59:12 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA00997; Sun, 11 Feb 96 17:45:13 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id RAA08509; Sun, 11 Feb 1996 17:43:38 -0800 From: "Tobias Kunze" Message-Id: <9602111743.ZM8507@cmsgia.stanford.edu> Date: Sun, 11 Feb 1996 17:43:34 -0800 In-Reply-To: Michael Hofbaur "Clisp question" (Feb 11, 8:18pm) References: X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: clisp-list Subject: Re: Clisp question Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii im almost sure it's not the right solution, but i run across this problem all the time and it works for me to define this in my init file: #+clisp (defun undef (symbol) (setf (get symbol 'clos::class) nil)) For some reason, clisp doesn't seem to let you redefine a class once it's defined: > (defclass bar () ((x)) ) # > (defclass bar () ((y)) ) *** - DEFCLASS: Cannot redefine class BAR 1. Break> (get 'bar 'clos::class) # 1. Break> (undef 'bar) NIL 1. Break> (get 'bar 'clos::class) NIL 1. Break> (defclass bar () ((y)) ) # 1. Break> (defclass bar () ((z)) ) *** - DEFCLASS: Cannot redefine class BAR 2. Break> etc... From bernardp@CLI.DI.Unipi.IT Mon Feb 12 16:44:19 1996 Return-Path: Received: from mailserver.cli.di.unipi.it (alice.cli.di.unipi.it) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00890; Mon, 12 Feb 96 16:44:19 +0100 Organization: Centro di Calcolo - Dip. di Informatica di Pisa - Italy Received: from helen.cli.di.unipi.it (helen.cli.di.unipi.it [131.114.11.38]) by mailserver.cli.di.unipi.it (8.6.12/8.6.12) with ESMTP id QAA12684 for ; Mon, 12 Feb 1996 16:32:18 +0100 From: Pierpaolo Bernardi Received: (bernardp@localhost) by helen.cli.di.unipi.it (8.6.12/8.6.12) id QAA12732 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Mon, 12 Feb 1996 16:32:15 +0100 Message-Id: <199602121532.QAA12732@helen.cli.di.unipi.it> Subject: Re: Clisp question To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 12 Feb 1996 16:32:14 +0100 (MET) In-Reply-To: <9602111743.ZM8507@cmsgia.stanford.edu> from "Tobias Kunze" at Feb 12, 96 03:02:28 am X-Mailer: ELM [version 2.4 PL24] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 433 > im almost sure it's not the right solution, but i run > across this problem all the time and it works for me > to define this in my init file: > > #+clisp > (defun undef (symbol) > (setf (get symbol 'clos::class) nil)) Clisp has logical-pathnames built-in. Your program is trying to redefine them with its own version. This isn't necessary. You must delete the offending expressions _from the program_, not from Clisp. P. From marcus@sysc.pdx.edu Mon Feb 12 20:35:52 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01195; Mon, 12 Feb 96 20:35:52 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id LAA05669; Mon, 12 Feb 1996 11:21:44 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id LAA23334; Mon, 12 Feb 1996 11:21:39 -0800 Date: Mon, 12 Feb 1996 11:21:39 -0800 Message-Id: <199602121921.LAA23334@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: Clisp question In-Reply-To: <9602111743.ZM8507@cmsgia.stanford.edu> References: <9602111743.ZM8507@cmsgia.stanford.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Tobias" == Tobias Kunze writes: Tobias> For some reason, clisp doesn't seem to let you redefine a Tobias> class once it's defined CLISP's CLOS doesn't support class redefinition (UPDATE-INSTANCE-FOR-REDEFINED-CLASS, etc). Perhaps you could use PCL for development... From marcus@sysc.pdx.edu Mon Feb 12 20:43:49 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01260; Mon, 12 Feb 96 20:43:49 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id LAA05692; Mon, 12 Feb 1996 11:29:42 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id LAA23338; Mon, 12 Feb 1996 11:29:39 -0800 Date: Mon, 12 Feb 1996 11:29:39 -0800 Message-Id: <199602121929.LAA23338@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Clisp question In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu >>>>> "MH" == Michael Hofbaur writes: MH> Qsim uses the "Logical-Pathnames MH> System" and the "Defsystem" from CMU. However the first one causes MH> some troubles and my limited lisp- and Clisp knowledge does not MH> allow me to get past this error. Maybe the solution is trivial, MH> but I would be very grateful for some help. In this package, there is likely a `WHATEVER' configuration for Common Lisp implementations which include logical-pathname support. Find all the #+WHATEVER [implementation has logical pathname support] and replace the conditionals with #+(or WHATEVER clisp) so as to avoid the logical-pathname emulation code. CLISP has logical pathname support built in. From tkunze@cmsgia.Stanford.EDU Mon Feb 12 22:18:33 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01463; Mon, 12 Feb 96 22:18:33 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA09499; Mon, 12 Feb 96 13:00:43 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id MAA19782; Mon, 12 Feb 1996 12:59:11 -0800 From: "Tobias Kunze" Message-Id: <9602121259.ZM19780@cmsgia.stanford.edu> Date: Mon, 12 Feb 1996 12:59:09 -0800 In-Reply-To: Marcus Daniels "Re: Clisp question" (Feb 12, 8:40pm) References: <199602121921.LAA23334@sayre.sysc.pdx.edu> X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: clisp-list Subject: Re: Clisp question Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii | CLISP's CLOS doesn't support class redefinition | (UPDATE-INSTANCE-FOR-REDEFINED-CLASS, etc). Perhaps you | could use PCL for development... argh, pcl gazonks constantly. are there any plans to add class redefs to clisp in the future? From hofbaur@fstgds06.tu-graz.ac.at Tue Feb 13 00:48:17 1996 Return-Path: Received: from fstgds06.tu-graz.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01684; Tue, 13 Feb 96 00:48:17 +0100 Received: by fstgds06.tu-graz.ac.at id AA17025 (5.65c/IDA-1.5s for clisp-list@ma2s2.mathematik.uni-karlsruhe.de); Mon, 12 Feb 1996 23:02:25 +0100 Date: Mon, 12 Feb 1996 22:55:32 +0100 (MET) From: Michael Hofbaur Sender: Michael Hofbaur Reply-To: Michael Hofbaur Subject: Clisp and logical-pathnames To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; CHARSET=US-ASCII Ok, thanks for your replies, I tried to use the built in logical-pathnames, but it seems like I am a totaly stupid lisp programmer, I cannot get it working. I tried the example from CltL2 (23.1.5.4. Examples of the Use of Logical Pathnames) and get the following reply: .......................................... > (setf (logical-pathname-translations "foo") '(("**;*.*.*" "MY-LISPM:>library>foo>**>"))) ((#S(LOGICAL-PATHNAME :HOST "FOO" :DEVICE NIL :DIRECTORY (:ABSOLUTE :WILD-INFERIORS) :NAME :WILD :TYPE :WILD :VERSION :WILD ) "MY-LISPM:>library>foo>**>" )) > (translate-logical-pathname "foo:bar;baz;mum.quux.3") #"foo:bar;baz;mum.quux.3" > ............................................... it should be: #P"MY-LISPM:>library>foo>bar>baz>mum.quux.3" hhhhhm, so it does not seem to translate anything! michael. -------------------------------------------------------- Michael Hofbaur Dept of Automatic Control Graz University of Technology, Austria. From xjam@ginkgo.CS.Berkeley.EDU Tue Feb 13 01:00:22 1996 Return-Path: Received: from ginkgo.CS.Berkeley.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01750; Tue, 13 Feb 96 01:00:22 +0100 Received: from ginkgo.CS.Berkeley.EDU (localhost.Berkeley.EDU [127.0.0.1]) by ginkgo.CS.Berkeley.EDU (8.6.11/8.6.9) with ESMTP id PAA13982 for ; Mon, 12 Feb 1996 15:46:09 -0800 From: "Brian F. Dennis" Message-Id: <199602122346.PAA13982@ginkgo.CS.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Does READ-BYTE work on pipe-input-streams? Reply-To: xjam@cork.cs.berkeley.edu Date: Mon, 12 Feb 1996 15:46:08 -0800 The impnotes imply so under the entry for READ-BYTE-SEQUENCE but it always fails when I actually try it. --Bri From marcus@sysc.pdx.edu Tue Feb 13 02:05:02 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01880; Tue, 13 Feb 96 02:05:02 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id QAA06111; Mon, 12 Feb 1996 16:50:12 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id QAA24544; Mon, 12 Feb 1996 16:50:08 -0800 Date: Mon, 12 Feb 1996 16:50:08 -0800 Message-Id: <199602130050.QAA24544@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: Clisp question In-Reply-To: <9602121259.ZM19780@cmsgia.stanford.edu> References: <9602121259.ZM19780@cmsgia.stanford.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Tobias" == Tobias Kunze writes: Tobias> argh, pcl gazonks constantly. are there any plans to add Tobias> class redefs to clisp in the future? It is not a high priority for me, but patches are welcome. From marcus@sysc.pdx.edu Tue Feb 13 06:33:29 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02308; Tue, 13 Feb 96 06:33:29 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id VAA06393; Mon, 12 Feb 1996 21:19:16 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id VAA25606; Mon, 12 Feb 1996 21:19:11 -0800 Date: Mon, 12 Feb 1996 21:19:11 -0800 Message-Id: <199602130519.VAA25606@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Clisp and logical-pathnames In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu >>>>> "MH" == Michael Hofbaur writes: MH> I tried the example from MH> CltL2 (23.1.5.4. Examples of the Use of Logical Pathnames) and get MH> the following reply: MH> ......................................... MH> (setf (logical-pathname-translations "foo") MH> '(("**;*.*.*" "MY-LISPM:>library>foo>**>"))) MH> (translate-logical-pathname "foo:bar;baz;mum.quux.3") MH> MH> #"foo:bar;baz;mum.quux.3" MH> ......................................... MH> it should be: MH> MH> #P"MY-LISPM:>library>foo>bar>baz>mum.quux.3" Here's an example of how it would work on Unix: (setf (logical-pathname-translations "foo") '(("**;*.*" #"/library/foo/**/*.*"))) (defun test () (translate-logical-pathname (logical-pathname "foo:bar;baz;mum.quux"))) > (test) #"/library/foo/bar/baz/mum.quux" From marcus@sysc.pdx.edu Tue Feb 13 06:36:02 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02314; Tue, 13 Feb 96 06:36:02 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id VAA06397; Mon, 12 Feb 1996 21:21:53 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id VAA25609; Mon, 12 Feb 1996 21:21:48 -0800 Date: Mon, 12 Feb 1996 21:21:48 -0800 Message-Id: <199602130521.VAA25609@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Does READ-BYTE work on pipe-input-streams? In-Reply-To: <199602122346.PAA13982@ginkgo.CS.Berkeley.EDU> References: <199602122346.PAA13982@ginkgo.CS.Berkeley.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "Bri" == Brian F Dennis writes: Bri> The impnotes imply so under the entry for READ-BYTE-SEQUENCE but Bri> it always fails when I actually try it. Yeah, the MAKE-PIPE-INPUT/OUTPUT-STREAM functions don't fill in the byte pseudo-functions. Here's how: Index: stream.d =================================================================== RCS file: /u/marcus/cvs/clisp/src/stream.d,v retrieving revision 1.22 diff -c -r1.22 stream.d *** stream.d 1996/01/26 03:22:31 1.22 --- stream.d 1996/02/13 05:03:31 *************** *** 10769,10774 **** --- 10769,10775 ---- # READ-CHAR - Pseudofunktion für Pipe-Input-Streams: #define rd_ch_pipe_in rd_ch_handle + #define rd_by_pipe_in rd_by_handle # Schließt einen Pipe-Input-Stream. # close_pipe_in(stream); *************** *** 10897,10903 **** # Stream allozieren: { var reg1 object stream = # neuer Stream, nur READ-CHAR erlaubt allocate_stream(strmflags_rd_ch_B,strmtype_pipe_in,strm_len+4); ! TheStream(stream)->strm_rd_by = P(rd_by_dummy); TheStream(stream)->strm_wr_by = P(wr_by_dummy); TheStream(stream)->strm_rd_ch = P(rd_ch_pipe_in); TheStream(stream)->strm_rd_ch_last = NIL; --- 10898,10904 ---- # Stream allozieren: { var reg1 object stream = # neuer Stream, nur READ-CHAR erlaubt allocate_stream(strmflags_rd_ch_B,strmtype_pipe_in,strm_len+4); ! TheStream(stream)->strm_rd_by = P(rd_by_pipe_in); TheStream(stream)->strm_wr_by = P(wr_by_dummy); TheStream(stream)->strm_rd_ch = P(rd_ch_pipe_in); TheStream(stream)->strm_rd_ch_last = NIL; *************** *** 10926,10931 **** --- 10927,10933 ---- # WRITE-CHAR - Pseudofunktion für Pipe-Output-Streams: #define wr_ch_pipe_out wr_ch_handle_x + #define wr_by_pipe_out wr_by_handle #ifdef STRM_WR_SS # WRITE-SIMPLE-STRING - Pseudofunktion für Pipe-Output-Streams: *************** *** 11050,11056 **** { var reg1 object stream = # neuer Stream, nur WRITE-CHAR erlaubt allocate_stream(strmflags_wr_ch_B,strmtype_pipe_out,strm_len+4); TheStream(stream)->strm_rd_by = P(rd_by_dummy); ! TheStream(stream)->strm_wr_by = P(wr_by_dummy); TheStream(stream)->strm_rd_ch = P(rd_ch_dummy); TheStream(stream)->strm_rd_ch_last = NIL; TheStream(stream)->strm_wr_ch = P(wr_ch_pipe_out); --- 11052,11058 ---- { var reg1 object stream = # neuer Stream, nur WRITE-CHAR erlaubt allocate_stream(strmflags_wr_ch_B,strmtype_pipe_out,strm_len+4); TheStream(stream)->strm_rd_by = P(rd_by_dummy); ! TheStream(stream)->strm_wr_by = P(wr_by_pipe_out); TheStream(stream)->strm_rd_ch = P(rd_ch_dummy); TheStream(stream)->strm_rd_ch_last = NIL; TheStream(stream)->strm_wr_ch = P(wr_ch_pipe_out); From ilog!haible%ilog.ilog.fr Tue Feb 13 20:56:31 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03248; Tue, 13 Feb 96 20:56:31 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA24796; Tue, 13 Feb 1996 20:42:09 +0100 (MET) Date: Tue, 13 Feb 96 20:19:10 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Tue, 13 Feb 96 20:19:10 +0100 From: ilog!haible%ilog.ilog.fr (Bruno Haible) Message-Id: <9602131919.AA11609@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA18623; Tue, 13 Feb 96 20:19:11 +0100 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: Clisp question Marcus Daniels writes: > > Tobias> For some reason, clisp doesn't seem to let you redefine a > Tobias> class once it's defined > > CLISP's CLOS doesn't support class redefinition > (UPDATE-INSTANCE-FOR-REDEFINED-CLASS, etc). Perhaps you could use PCL > for development... Definitely not a good advice for people which have only 8 MB or less of RAM. Maybe doable if you have 32 MB and do not have lots of code written in CLOS. Instead, consider just throwing away the class' symbol: > (defclass bar () ((x)) ) # > (unintern 'bar) T > (defclass bar () ((y)) ) # Of course, you have to keep in mind that the new `bar' is another symbol (in memory) than the old `bar', thus you have to reload all of your code which defines a subclass of `bar' or a method on `bar'. Bruno From tkunze@cmsgia.Stanford.EDU Tue Feb 13 21:47:45 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03347; Tue, 13 Feb 96 21:47:45 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA18592; Tue, 13 Feb 96 12:33:01 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) id MAA21783; Tue, 13 Feb 1996 12:31:22 -0800 From: "Tobias Kunze" Message-Id: <9602131231.ZM21781@cmsgia.stanford.edu> Date: Tue, 13 Feb 1996 12:31:19 -0800 In-Reply-To: haible%ilog.ilog.fr@ilog.uucp (Bruno Haible) "Re: Clisp question" (Feb 13, 8:17pm) References: <9602121259.ZM19780@cmsgia.stanford.edu> <9602131917.AA11602@ilog.ilog.fr> X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: ilog!haible%ilog.ilog.fr (Bruno Haible) Subject: Re: Clisp question Cc: clisp-list@ma2s2.mathematik.uni-karlsruhe.de, Marcus Daniels Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii This might be a working solution (ok, "hack" :) I've put this in my init file and it works fine... #+clisp (eval-when (load eval) (unless (fboundp 'clos::%defclass) (setf (symbol-function 'clos::%defclass) (symbol-function 'clos::defclass)) (defmacro clos::defclass (&rest args) `(progn (setf (get (first ',args) 'clos::class) nil) (clos::%defclass ,@args))))) > (defclass foo () ()) # > (defclass foo () ((x))) # > (defclass foo () ((x) (y))) # > So far i haven't encountered any problems. However, Im not sure whether it might be harmful... The only downside seems to be that it triggers a continuable error because clos:defclass is a clisp kernel macro. It would be nice to get around it somehow... From atai@ece.UCSD.EDU Tue Feb 13 22:46:33 1996 Return-Path: Received: from mail.ucsd.edu (ucsd.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03611; Tue, 13 Feb 96 22:46:33 +0100 Received: from vision by mail.ucsd.edu; id NAA10408 sendmail 8.6.12/UCSD-2.2-sun via SMTP Tue, 13 Feb 1996 13:32:15 -0800 for Received: by vision (4.1/UCSDPSEUDO.4) id AA13584 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Tue, 13 Feb 96 13:32:13 PST Date: Tue, 13 Feb 96 13:32:13 PST From: atai@ece.UCSD.EDU (Andy Tai) Message-Id: <9602132132.AA13584@vision> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: version of CLISP for SGI Irix 5.3? Hi, I wonder is there any binary version of CLISP for SGI Irix 5.3? I get the Irix 4 version which crashes on Irix 5.3 machines here. I have got the source but it won't compile on these machines. Thanks for any help. -- Li-Cheng Tai (Andy Tai) e-mail: atai@ece.ucsd.edu Visual Computing Lab telephone: (619) 534-5935 Dept. of ECE, UCSD, Mail Code 0407 fax: (619) 534-2486 From ilog!haible%ilog.ilog.fr Tue Feb 13 23:02:05 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03684; Tue, 13 Feb 96 23:02:05 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA01541; Tue, 13 Feb 1996 22:47:42 +0100 (MET) Date: Tue, 13 Feb 96 22:20:16 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Tue, 13 Feb 96 22:20:16 +0100 From: ilog!haible%ilog.ilog.fr (Bruno Haible) Message-Id: <9602132120.AA13733@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA19027; Tue, 13 Feb 96 22:20:15 +0100 To: clisp-list Subject: Re: Clisp question and hack In-Reply-To: <9602131231.ZM21781@cmsgia.stanford.edu> References: <9602131231.ZM21781@cmsgia.stanford.edu> Tobias Kunze writes: > The only downside seems to be that it triggers a continuable error > because clos:defclass is a clisp kernel macro. It would be nice > to get around it somehow... To avoid the continuable error, just add a call to `fmakunbound': #+clisp (eval-when (load eval) (unless (fboundp 'clos::%defclass) (setf (symbol-function 'clos::%defclass) (symbol-function 'clos::defclass)) (fmakunbound 'clos::defclass) (defmacro clos::defclass (&rest args) `(progn (setf (get (first ',args) 'clos::class) nil) (clos::%defclass ,@args))))) Seems we are establishing a new winner of the contest "What is the biggest hack ever done to CLISP?" Up to now, the winner (IMO) was Rick Taube with his hack which added new commands to clisp's debugger :-) Bruno From tkunze@cmsgia.Stanford.EDU Tue Feb 13 23:07:32 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03747; Tue, 13 Feb 96 23:07:32 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA19366; Tue, 13 Feb 96 13:53:14 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id NAA22118; Tue, 13 Feb 1996 13:51:48 -0800 From: "Tobias Kunze" Message-Id: <9602131351.ZM22116@cmsgia.stanford.edu> Date: Tue, 13 Feb 1996 13:51:44 -0800 In-Reply-To: atai@ece.UCSD.EDU (Andy Tai) "version of CLISP for SGI Irix 5.3?" (Feb 13, 10:51pm) References: <9602132132.AA13584@vision> X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: clisp-list Subject: Re: version of CLISP for SGI Irix 5.3? Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii go http://sayre.sysc.pdx.edu:8001/clisp pick the 5.3 binary. From marcus@sysc.pdx.edu Tue Feb 13 23:10:08 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03788; Tue, 13 Feb 96 23:10:08 +0100 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Tue, 13 Feb 1996 22:55:15 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id NAA07493; Tue, 13 Feb 1996 13:47:33 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id NAA29003; Tue, 13 Feb 1996 13:47:31 -0800 Date: Tue, 13 Feb 1996 13:47:31 -0800 Message-Id: <199602132147.NAA29003@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: version of CLISP for SGI Irix 5.3? In-Reply-To: <9602132132.AA13584@vision> References: <9602132132.AA13584@vision> Reply-To: marcus@sysc.pdx.edu >>>>> "Andy" == Andy Tai writes: Andy> Hi, I wonder is there any binary version of CLISP for SGI Irix Andy> 5.3? I get the Irix 4 version which crashes on Irix 5.3 Andy> machines here. I have got the source but it won't compile on Andy> these machines. Thanks for any help. FTP host: ma2s2.mathematik.uni-karlsruhe.de directory: /pub/lisp/clisp/binaries/sgi-irix53 file: clisp.tar.z Also, I just built one from development sources: http://sayre.sysc.pdx.edu:8001/clisp/binaries/mips_Irix5.tar.z From tkunze@cmsgia.Stanford.EDU Tue Feb 13 23:25:16 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03918; Tue, 13 Feb 96 23:25:16 +0100 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA19546; Tue, 13 Feb 96 14:10:58 -0800 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id OAA22297; Tue, 13 Feb 1996 14:09:33 -0800 From: "Tobias Kunze" Message-Id: <9602131409.ZM22295@cmsgia.stanford.edu> Date: Tue, 13 Feb 1996 14:09:30 -0800 In-Reply-To: ilog.ilog.fr!ilog!haible (Bruno Haible) "Re: Clisp question and hack" (Feb 13, 11:06pm) References: <9602132120.AA13733@ilog.ilog.fr> X-Mailer: Z-Mail (3.2.1 6apr95 MediaMail) To: clisp-list Subject: Re: Clisp question and hack Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii | Up to now, the winner (IMO) was Rick Taube with his hack | which added new commands to clisp's debugger :-) im working with him on the same software project! =:) thanks for your hint. did it already... From hofbaur@fstgds06.tu-graz.ac.at Wed Feb 14 16:20:01 1996 Return-Path: Received: from fstgds06.tu-graz.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04945; Wed, 14 Feb 96 16:20:01 +0100 Received: by fstgds06.tu-graz.ac.at id AA19794 (5.65c/IDA-1.5s for clisp-list ); Wed, 14 Feb 1996 16:05:26 +0100 Date: Wed, 14 Feb 1996 16:03:25 +0100 (MET) From: Michael Hofbaur Subject: Re: Clisp question To: clisp-list In-Reply-To: <199602121532.QAA12732@helen.cli.di.unipi.it> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII On Mon, 12 Feb 1996, Pierpaolo Bernardi wrote: > > Clisp has logical-pathnames built-in. > Your program is trying to redefine them with its own version. > This isn't necessary. You must delete the offending expressions > _from the program_, not from Clisp. > > P. I did that and use now the built in logical-pathnames, and IT WORKS!! Thanks to everybody! michael. From ilog!haible%ilog.ilog.fr Wed Feb 14 23:32:31 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05407; Wed, 14 Feb 96 23:32:31 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA02319; Wed, 14 Feb 1996 23:18:00 +0100 (MET) Date: Wed, 14 Feb 96 23:00:52 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 14 Feb 96 23:00:53 +0100 From: ilog!haible%ilog.ilog.fr (Bruno Haible) Message-Id: <9602142200.AA03033@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA22113; Wed, 14 Feb 96 23:00:52 +0100 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Can I call C functions from CLISP? Cc: [Forwarded message from John Williams . Please CC: your answers to him, additionally to clisp-list.] Hello folks -- I'm relatively new to CLISP. I'm wondering if it is possible to call C functions from my CLISP (dos) program. Specifically, I want to use some handy C routines that access my soundcard so I can control some sampled .wav files. Alternately, does anyone happen to have some experience using CLISP with a soundcard? I hear that Allegro for Windows supports the MCI standard for audio and video, but I'm doing initial work with CLISP. Another question, just to prove that I really am a novice: do I presume that I will have to be running a C implementation to call C functions from CLISP, or is there be a built-in interpreter? Thanks kindly, -- John Williams http://watarts.uwaterloo.ca/~jwwilla/florgon.html From stoffel@cs.tu-berlin.de Mon Feb 19 15:37:23 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03295; Mon, 19 Feb 96 15:37:23 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id PAA07197; Mon, 19 Feb 1996 15:02:39 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <312882FC.4D15@cs.tu-berlin.de> Date: Mon, 19 Feb 1996 15:02:36 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0b5 (X11; I; SunOS 5.4 sun4m) Mime-Version: 1.0 To: clisp-list Cc: stoffel@cs.tu-berlin.de Subject: CLISP-Shell in a TCL/TK-Window? References: <9602061430.AA20530@plopp.intellektik.informatik.th-darmstadt.de> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I now know how to make the connection between CLISP and Tcl/Tk with the with-wish.tar extension (Thanks to Matthias Lindner). Has someone already programmed a CLISP-Shell in an Tcl/Tk window? That means, that full stdin and stdout of the CLISP-Interpreter are inserted in the the Tk-Widget or something like that. Then one could make some really user-friendly things (like a point-and-click history function, loading code with a filebox, etc). Greetings, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From rls@hoiho.math.waikato.ac.nz Wed Feb 21 13:12:19 1996 Return-Path: Received: from GRACE.WAIKATO.AC.NZ by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06175; Wed, 21 Feb 96 13:12:19 +0100 Received: from hoiho.math.waikato.ac.nz by waikato.ac.nz (PMDF V5.0-5 #11755) id <01I1HU97POI8AHCI7U@waikato.ac.nz> for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Thu, 22 Feb 1996 00:56:18 +1300 Received: from pukeko.math.waikato.ac.nz.math.waikato.ac.nz by hoiho.math.waikato.ac.nz (5.x/SMI-SVR4) id AA22501; Thu, 22 Feb 1996 00:56:15 +1300 Date: Thu, 22 Feb 1996 01:00:24 +1300 (NZDT) From: rls@hoiho.math.waikato.ac.nz (Richard Shepherd) Subject: strange 1+/1- bug? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (CLisp List) Reply-To: rls@hoiho.math.waikato.ac.nz Message-Id: <9602211156.AA22501@hoiho.math.waikato.ac.nz> Mime-Version: 1.0 X-Mailer: ELM [version 2.4 PL22] Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit I am running: (lisp-implementation-version) -> "1995-04-04 (April 1995)" and have noticed the following strange goings on: (defun bob (x) (+ x 1)) -> BOB (bob 3) -> 4 (compile 'bob) -> BOB (bob 3) -> 4 which looks good, but if I now fiddle with 1+ like so: (defun 1+ (x) (+ x 1)) -> ** - Continuable Error Redefining the COMMON LISP function 1+ If you continue (by typing 'continue'): The old definition will be lost 1. Break> continue -> 1+ (1+ 3) -> 4 (compile '1+) -> 1+ (1+ 3) -> *****hangs***** i.e. never returns, infinite loop, etc. and if I Ctrl-C it and try bob again: (bob 3) -> *****hangs***** i.e. never returns, infinite loop, etc. this also happens under "1995-04-25 (April 1995)" version (on Linux and Alpha OSF). Soooooooo what's happening. (I checked the same test on Allegro CL and it was happy.) However if I replace 1 with 2 or more in "bob" then all is well i.e.: (defun bob (x) (+ x 2)) will evaluate (bob 3) just fine whether interpreted or compiled, and regardless of how I've stuffed round with 1+ !? Is this a bug that is fixed in later versions? What's so special about the 1 in addition? Look forward to getting to the bottom of this mystery.........Cheers, 8<--------------------------->8 Richard Shepherd. (rls@math.waikato.ac.nz) PS: this all came about 'cos I was simulating operator overloading in CLOS and decided to redefine 1+ and 1- just to be on the safe side (I know it probably throws away a lot of efficiency, but doesn't CLOS anyway?), and my program seems to run fine interpreted, compiles OK, but then I can't load the compiled code---hangs! From marcus@aristotle.icc.pdx.edu Wed Feb 21 14:11:10 1996 Return-Path: Received: from aristotle.icc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06498; Wed, 21 Feb 96 14:11:10 +0100 Received: from nietzsche.icc.pdx.edu (nietzsche.icc.pdx.edu [131.252.86.110]) by aristotle.icc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) with ESMTP id MAA13133; Wed, 21 Feb 1996 12:54:05 GMT for Received: (marcus@localhost) by nietzsche.icc.pdx.edu (8.6.10/CATastrophe-9/18/94-C) id JAA19349; Wed, 21 Feb 1996 09:10:55 GMT Date: Wed, 21 Feb 1996 09:10:55 GMT Message-Id: <199602210910.JAA19349@nietzsche.icc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: strange 1+/1- bug? In-Reply-To: <9602211156.AA22501@hoiho.math.waikato.ac.nz> References: <9602211156.AA22501@hoiho.math.waikato.ac.nz> Reply-To: marcus@sysc.pdx.edu >>>>> "rs" == Richard Shepherd writes: rs> What's so special about the 1 in addition? (+ 1 x) is optimized into (1+ x) From ilog!haible%ilog.ilog.fr Wed Feb 21 15:21:16 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06672; Wed, 21 Feb 96 15:21:16 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA21173; Wed, 21 Feb 1996 15:05:34 +0100 (MET) Date: Wed, 21 Feb 96 15:00:32 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 21 Feb 96 15:00:32 +0100 From: ilog!haible%ilog.ilog.fr (Bruno Haible) Message-Id: <9602211400.AA27230@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA19847; Wed, 21 Feb 96 15:00:31 +0100 To: clisp-list Subject: Re: strange 1+/1- bug? In-Reply-To: <9602211156.AA22501@hoiho.math.waikato.ac.nz> References: <9602211156.AA22501@hoiho.math.waikato.ac.nz> Richard Shepherd writes: > > (defun 1+ (x) (+ x 1)) > -> ** - Continuable Error > Redefining the COMMON LISP function 1+ > If you continue (by typing 'continue'): The old definition will be > lost > 1. Break> continue > -> 1+ > (1+ 3) > -> 4 > (compile '1+) > -> 1+ > (1+ 3) > -> *****hangs***** i.e. never returns, infinite loop, etc. Of course. The CLISP compiler recognizes that (+ x 1) is equivalent to (1+ x) and thus generates a tail-recursive call, just as if you had written (defun 1+ (x) (1+ x)). > (defun 1+ (x) (+ x 1)) ** - Continuable Error Redefining the COMMON LISP function 1+ If you continue (by typing 'continue'): The old definition will be lost 1. Break> continue 1+ > (disassemble #'1+) ;; disassemble without installing the compiled definition Disassembly of function 1+ 1 required arguments 0 optional arguments No rest parameter No keyword parameters 0 L0 0 (LOAD&PUSH 1) 1 (JMPTAIL 1 3 L0) # > Is this a bug that is fixed in later versions? No, this isn't a bug. You are not allowed to modify built-in Common Lisp functions (see CLtL2 or dpANS), and that's what the warning was about. > What's so special about the 1 in addition? The compiler optimizes (+ x 1), but not (+ x 2). > PS: this all came about 'cos I was simulating operator overloading in > CLOS and decided to redefine 1+ and 1- just to be on the safe side (I > know it probably throws away a lot of efficiency, but doesn't CLOS > anyway?) Using CLOS for arithmetic operations provides a great flexibility. But redefining 1+ is a no-no. That's what Common Lisp packages are for. Here is an example of code, written by Michael Stoll, so you get the idea. =========================== part of domain.lsp =========================== (provide :domain) (defpackage "DOMAIN" (:use "LISP" "CLOS") (:shadow "NUMBERP" "=" "ZEROP" "INTEGERP" "EXQUO" "EXPT" "NUMERATOR" "DENOMINATOR" "+" "-" "*" "/" "GCD" "LCM") (:export "DIVIDE" "NORMALIZE" "DOMAINIFY")) (in-package :domain) (eval-when (load eval compile) (pushnew ':DOMAIN *features*)) (eval-when (load eval) (defmacro domainify () `(progn (defpackage ,(package-name *package*) (:shadowing-import-from "DOMAIN" "NUMBERP" "=" "ZEROP" "INTEGERP" "EXQUO" "EXPT" "NUMERATOR" "DENOMINATOR" "+" "-" "*" "/" "GCD" "LCM" "DIVIDE" "NORMALIZE") (:use ,@(mapcar #'package-name (package-use-list *package*))))))) ;; At the beginning of every program which uses the domain package ;; you write (after the in-package form) ;; #+DOMAIN (domain:domainify) ============================================================================ Bruno Haible email: Software Engineer phone: +33-1-49083585 From pg@das.harvard.edu Wed Feb 21 16:38:33 1996 Return-Path: Received: from speed.harvard.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06811; Wed, 21 Feb 96 16:38:33 +0100 Date: Wed, 21 Feb 96 10:22:27 EST From: pg@das.harvard.edu Message-Id: <9602211522.AA06597@speed.harvard.edu> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: turn off warnings Can someone tell me how to turn of warnings about unused lexical variables? In my program a lot of the code is generated by macros, and short of writing a code-walker I can't cause the macros to generate the proper ignore declarations. Thanks, -- pg From ilog!haible%ilog.ilog.fr Wed Feb 21 18:41:01 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07086; Wed, 21 Feb 96 18:41:01 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA07554; Wed, 21 Feb 1996 18:25:17 +0100 (MET) Date: Wed, 21 Feb 96 18:22:13 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 21 Feb 96 18:22:13 +0100 From: ilog!haible%ilog.ilog.fr (Bruno Haible) Message-Id: <9602211722.AA03117@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA20818; Wed, 21 Feb 96 18:22:09 +0100 To: clisp-list Subject: Re: turn off warnings In-Reply-To: <9602211522.AA06597@speed.harvard.edu> References: <9602211522.AA06597@speed.harvard.edu> pg@das.harvard.edu writes: > Can someone tell me how to turn of warnings about unused lexical > variables? In my program a lot of the code is generated by macros, > and short of writing a code-walker I can't cause the macros to > generate the proper ignore declarations. You don't need a code walker for this. Just add a dummy reference to the variable. The compiler will optimize it away. Instead of `(let ((,gen-sym ,form)) ,@body) you write `(let ((,gen-sym ,form)) ,gen-sym ,@(or body '(nil))) Bruno Haible email: Software Engineer phone: +33-1-49083585 From rls@hoiho.math.waikato.ac.nz Wed Feb 21 23:57:16 1996 Return-Path: Received: from GRACE.WAIKATO.AC.NZ by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07514; Wed, 21 Feb 96 23:57:16 +0100 Received: from hoiho.math.waikato.ac.nz by waikato.ac.nz (PMDF V5.0-5 #11755) id <01I1IGRSNJNKAHDWEJ@waikato.ac.nz> for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Thu, 22 Feb 1996 11:41:13 +1300 Received: from pukeko.math.waikato.ac.nz.math.waikato.ac.nz by hoiho.math.waikato.ac.nz (5.x/SMI-SVR4) id AA23269; Thu, 22 Feb 1996 11:41:06 +1300 Date: Thu, 22 Feb 1996 11:45:16 +1300 (NZDT) From: rls@hoiho.math.waikato.ac.nz (Richard Shepherd) Subject: Re: strange 1+/1- bug? In-Reply-To: <9602211400.AA27230@ilog.ilog.fr> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Reply-To: rls@hoiho.math.waikato.ac.nz Message-Id: <9602212241.AA23269@hoiho.math.waikato.ac.nz> Mime-Version: 1.0 X-Mailer: ELM [version 2.4 PL22] Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Bruno Haible wrote: > > Of course. The CLISP compiler recognizes that (+ x 1) is equivalent to > (1+ x) and thus generates a tail-recursive call, just as if you had written > (defun 1+ (x) (1+ x)). Ah, how silly of me! > > Is this a bug that is fixed in later versions? > > No, this isn't a bug. You are not allowed to modify built-in Common Lisp > functions (see CLtL2 or dpANS), and that's what the warning was about. Aha, I did not know this either. Can you tell me *where* in CLtL2 it says this? I have been looking but with no success yet. As it turns out I don't need to play with 1+ anyway. I thought incf may use it but it doen't seem to, i.e. (incf x) seems to work, even when x is not a number, in my code. So I'll leave it there. > Using CLOS for arithmetic operations provides a great flexibility. It certainly does, everything (in the arithmetic sense) seems to be fine now, cheers, 8<--------------------------->8 Richard Shepherd. (rls@math.waikato.ac.nz) From bshults@math.utexas.edu Fri Feb 23 18:50:32 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10097; Fri, 23 Feb 96 18:50:32 +0100 Date: Fri, 23 Feb 96 11:33:57 CST From: bshults@math.utexas.edu Posted-Date: Fri, 23 Feb 96 11:33:57 CST Message-Id: <9602231733.AA07194@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA07194; Fri, 23 Feb 96 11:33:57 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: "clisp" and ilisp I rember some discussion (a long time ago) about a problem getting Stolle's and Haible's "clisp" to work under ilisp. Was that all worked out? Does "clisp" now run under ilisp? Benji -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA Office: RLM 10.142 Hours: M 11-12, Th 1-3 FAX: (512) 471-9038 (attn: Benjamin Shults) From stoffel@cs.tu-berlin.de Fri Feb 23 21:17:54 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10378; Fri, 23 Feb 96 21:17:54 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id UAA05777 for ; Fri, 23 Feb 1996 20:47:26 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <312E19CB.11BB@cs.tu-berlin.de> Date: Fri, 23 Feb 1996 20:47:23 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0b5 (X11; I; SunOS 5.4 sun4m) Mime-Version: 1.0 To: clisp-list Subject: How to convert a string into real code? References: <9602211722.AA03117@ilog.ilog.fr> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I have the String: "(defun _Fct (L) (if (NULL L) T (if (EQUAL (CAR L) 0) (NIL) (_Fct (CDR L)))))" and want to convert it to a list of lists, so i can eval it and can use _Fct . How can i manage that? Greetings, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From gat@aig.jpl.nasa.gov Fri Feb 23 21:35:18 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10456; Fri, 23 Feb 96 21:35:18 +0100 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA12533; Fri, 23 Feb 96 12:18:26 PST Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id MAA03170; Fri, 23 Feb 1996 12:18:25 -0800 (PST) Date: Fri, 23 Feb 1996 12:18:25 -0800 (PST) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199602232018.MAA03170@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: How to convert a string into real code? X-Sun-Charset: US-ASCII read-from-string From stoffel@cs.tu-berlin.de Fri Feb 23 21:48:11 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10578; Fri, 23 Feb 96 21:48:11 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id VAA07985 for ; Fri, 23 Feb 1996 21:27:37 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <312E2335.1609@cs.tu-berlin.de> Date: Fri, 23 Feb 1996 21:27:33 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0b5 (X11; I; SunOS 5.4 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Re: How to convert a string into real code? References: <199602232018.MAA03170@binkley.jpl.nasa.gov> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Thanks to all how helped me! It works. Greetings, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From marcus@aristotle.icc.pdx.edu Sat Feb 24 00:15:22 1996 Return-Path: Received: from plato.icc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10839; Sat, 24 Feb 96 00:15:22 +0100 Received: (marcus@localhost) by plato.icc.pdx.edu (8.6.10/CATastrophe-12/23/94-P) id XAA08433; Fri, 23 Feb 1996 23:06:54 GMT for Date: Fri, 23 Feb 1996 23:06:54 GMT Message-Id: <199602232306.XAA08433@plato.icc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: "clisp" and ilisp In-Reply-To: <9602231733.AA07194@marie.ma.utexas.edu> References: <9602231733.AA07194@marie.ma.utexas.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "bshults" == bshults writes: bshults> I rember some discussion (a long time ago) about a problem bshults> getting Stolle's and Haible's "clisp" to work under ilisp. bshults> Was that all worked out? Does "clisp" now run under ilisp? CLISP does work with Ilisp. This URL might help: http://sayre.sysc.pdx.edu:8001/clisp_and_emacs/clisp_and_emacs.html From dxs@evolving.com Mon Feb 26 22:23:33 1996 Return-Path: Received: from citadel.evolving.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA13266; Mon, 26 Feb 96 22:23:33 +0100 Received: from shakey (shakey.evolving.com [192.124.159.3]) by citadel.evolving.com (8.6.12/8.6.9) with SMTP id OAA26549 for ; Mon, 26 Feb 1996 14:06:55 -0700 Received: by shakey (AIX 3.2/UCB 5.64/4.03) id AA25859; Mon, 26 Feb 1996 14:06:54 -0700 Date: Mon, 26 Feb 1996 14:06:54 -0700 From: dxs@evolving.com (Dan Stanger) Message-Id: <9602262106.AA25859@shakey> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: renaming a lisp function is it possible to rename a lisp function? thanks, dan stanger From liebig@faw.uni-ulm.de Tue Feb 27 11:44:18 1996 Return-Path: Received: from faw.uni-ulm.de (merlin.faw.uni-ulm.de) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14623; Tue, 27 Feb 96 11:44:18 +0100 Received: from sun32.faw.uni-ulm.de by faw.uni-ulm.de (AIX 3.2/UCB 5.64/4.03) id AA21076; Tue, 27 Feb 1996 11:26:58 +0100 Date: Tue, 27 Feb 1996 11:26:58 +0100 From: liebig@faw.uni-ulm.de (Thorsten Liebig) Message-Id: <9602271026.AA21076@faw.uni-ulm.de> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: LOOM with clisp ------------------------------------------------------------------- Thorsten Liebig, FAW Ulm / ____) | | Ulm / Helmholtzstr. 16, D-89081 Ulm / / / | | / Tel: +49 0731/501-8995 / ___) /__ | | / | / EMail: liebig@faw.uni-ulm.de _/_/ _/ _| _/ __/ Forschungsinstitut fuer anwendungsorientierte Wissensverarbeitung From jan@ifs.univie.ac.at Thu Feb 29 12:56:11 1996 Return-Path: Received: from email.univie.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02107; Thu, 29 Feb 96 12:56:11 +0100 Received: from ifs.univie.ac.at (actually ravel.ifs.univie.ac.at) by email.univie.ac.at with SMTP (PP); Thu, 29 Feb 1996 12:38:48 +0100 Received: by ifs.univie.ac.at (4.1/SMI-4.3.12) id AA13278; Thu, 29 Feb 96 12:38:46 +0100 Date: Thu, 29 Feb 96 12:38:46 +0100 From: jan@ifs.univie.ac.at (Jan M. STANKOVSKY) Message-Id: <9602291138.AA13278@ifs.univie.ac.at> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Clisp on Solaris x86 I urgently need to compile clisp (1995-08-12) on a Solaris x86 2.4. I used gcc 2.6 and 2.7.2 (as well as the Suncompiler, but it was aborted very soon). After one week I managed to get to gcc ....... -o lisp.run but now I'm really stucked. The compiler / linker abords with: Undefined first referenced symbol in file andc2_loop_up lisparit.o . . . . subx_loop_down lisparit.o All routines included from lisparit.c - arilev1.c - ari80386.c .... I must confess, that I'm not much of a C programmer .... The compilation of clisp on a x86 seems to be possible, because I heard that on the Wintertime CD for x86 (compiled GNU stuff) clisp is included. Because I need clisp next week and I've no credit cards, I doubt I'll ever get this CD. So if anybody got any help for me (or even the WIntertime CD) I would be very glad !!! thanks jan m. - jan@ifs.univie.ac.at From bshults@math.utexas.edu Thu Feb 29 22:07:16 1996 Return-Path: Received: from leonhard.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03133; Thu, 29 Feb 96 22:07:16 +0100 Date: Thu, 29 Feb 96 14:50:13 CST From: bshults@math.utexas.edu Posted-Date: Thu, 29 Feb 96 14:50:13 CST Message-Id: <9602292050.AA22978@leonhard.ma.utexas.edu> Received: by leonhard.ma.utexas.edu (4.1/5.51) id AA22978; Thu, 29 Feb 96 14:50:13 CST To: ilisp@naggum.no, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Cc: bshults@leonhard.ma.utexas.edu Subject: clisp-hs under ilisp 5.7 with emacs 19.27 on SunOS 4 I have applied the patches from H.GP.CS.CMU.EDU/usr/rfb/ilisp/ and I have looked at http://sayre.sysc.pdx.edu:8001/clisp_and_emacs/clisp_and_emacs.html and applied those patches. I am running the latest version of clisp (Dec. 1995) and ilisp. The emacs version is 19.27.1. clisp works otherwise and ilisp works with allegro, gcl, lucid, etc. Here's the problem: When I do M-x clisp-hs I get the popup window with clisp running in it but the status line goes to :load and never gets to :ready. No forms can be evaluated. What am I missing? -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA Office: RLM 10.142 Hours: M 11-12, Th 1-3 FAX: (512) 471-9038 (attn: Benjamin Shults) From marcus@ee.pdx.edu Sat Mar 2 02:24:04 1996 Return-Path: Received: from ursula.ee.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04310; Sat, 2 Mar 96 02:24:04 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by ursula.ee.pdx.edu (8.7.1/CATastrophe-12/23/94-P) with SMTP id RAA12694; Fri, 1 Mar 1996 17:06:42 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id AAA16678; Fri, 1 Mar 1996 00:33:08 -0800 Date: Fri, 1 Mar 1996 00:33:08 -0800 Message-Id: <199603010833.AAA16678@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: bug reports or correspondence Reply-To: marcus@ee.pdx.edu If anyone has tried to email me recently would you please resend the note to marcus@ee.pdx.edu? Apparently our department email server went flatline Tuesday afternoon (I didn't notice right away because I merge email from several addresses). Sorry and thanks for your patience! From amolsky@osf1.gmu.edu Mon Mar 4 21:40:09 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07887; Mon, 4 Mar 96 21:40:09 +0100 Received: from osf1.gmu.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Mon, 4 Mar 1996 21:18:56 +0100 Received: by osf1.gmu.edu; (5.65v3.2/1.1.8.2/07Sep94-1001AM/GMUv3) id AA26148; Mon, 4 Mar 1996 15:17:00 -0500 Message-Id: <9603042017.AA26148@osf1.gmu.edu> Subject: Editor help To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 4 Mar 1996 15:17:00 -0500 (EST) From: Audrey Molsky X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 402 Hi, would someone like to give me some pointers on using the built-in editor for clisp? I am using the OS2 version. I really need to know how to match parenthesis. Also tips on evaluation of expressions in the editor .. I have browsed through the Alt-H and loaded a file into the editor, but other than that I really don't know what and how to use its capabilities. Thanks. Audrey amolsky@gmu.edu From stoffel@cs.tu-berlin.de Tue Mar 5 19:59:16 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09905; Tue, 5 Mar 96 19:59:16 +0100 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id TAA16616 for ; Tue, 5 Mar 1996 19:28:34 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <313C87CA.4C7D@cs.tu-berlin.de> Date: Tue, 05 Mar 1996 19:28:26 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: How to delete structure built with (defstruct ...)? Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit How can i delete a structure, which i have build with the (defstruct ...) operation). Redefining is not possible. Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From stoffel@cs.tu-berlin.de Tue Mar 5 20:29:17 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10002; Tue, 5 Mar 96 20:29:17 +0100 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id UAA17884 for ; Tue, 5 Mar 1996 20:04:26 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <313C9036.6B9D@cs.tu-berlin.de> Date: Tue, 05 Mar 1996 20:04:22 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Re: defstruct problem solved Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I found my error. I used a bad name for the structure. Sorry for bothering you. Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From kodie@echonyc.com Wed Mar 6 06:30:34 1996 Return-Path: Received: from echo2 (echo2.echonyc.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10493; Wed, 6 Mar 96 06:30:34 +0100 Received: from echonyc.com (root@echonyc.com [198.67.15.2]) by echo2 (8.6.12/8.6.10) with ESMTP id AAA05878 for ; Wed, 6 Mar 1996 00:18:23 -0500 Received: from [198.67.15.216] (kodie.echonyc.com [198.67.15.216]) by echonyc.com (8.6.12/echo-relay) with SMTP id AAA28785 for ; Wed, 6 Mar 1996 00:10:31 -0500 Message-Id: <199603060510.AAA28785@echonyc.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 6 Mar 1996 00:14:21 -0500 To: clisp-list From: kodie@echonyc.com (Robert Paul Herman) Subject: Re: defstruct problem solved unsubscribe kodie@echonyc.com (Robert Paul Herman) Robert Paul Herman kodie@echonyc.com From lee-d@cs.Buffalo.EDU Wed Mar 6 08:08:24 1996 Return-Path: Received: from hadar.cs.Buffalo.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10667; Wed, 6 Mar 96 08:08:24 +0100 Received: (lee-d@localhost) by hadar.cs.Buffalo.EDU (8.6.10/8.6.4) id BAA06565 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 6 Mar 1996 01:50:18 -0500 From: Chain-Wu Lee Message-Id: <199603060650.BAA06565@hadar.cs.Buffalo.EDU> Subject: foreign language interface To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (clisp) Date: Wed, 6 Mar 1996 01:50:18 -0500 (EST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-1: Content-Transfer-Encoding: 7bit Content-Length: 568 Hi, I read the readme file and it said there is a foreign language interface for clisp but I do not have sufficient documentation to see what is the format , I am just wondering if there is a CLisp manual on line? Thanks a lot! -Lee -- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Chain-Wu Lee | Dept. of Computer Science at SUNY BUFFALO http://www.cs.buffalo.edu/~lee-d | email : mailto:lee-d@cs.buffalo.edu -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- From bshults@math.utexas.edu Thu Mar 7 00:24:00 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12547; Thu, 7 Mar 96 00:24:00 +0100 Date: Wed, 6 Mar 96 17:05:14 CST From: bshults@math.utexas.edu Posted-Date: Wed, 6 Mar 96 17:05:14 CST Message-Id: <9603062305.AA29871@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA29871; Wed, 6 Mar 96 17:05:14 CST To: ilisp@naggum.no, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Cc: bshults@marie.ma.utexas.edu Subject: bridge error in clisp-hs in lisp-interface program I have some code which sets up a bridge in my ilisp buffer so that my lisp code can communicate with emacs. Thus I have a nifty emacs-interface to my lisp program so that emacs key-bindings send commands to the inferior lisp and the inferior lisp sends pretty output to various emacs buffers. The idea and some of the code I borrowed from David McAllester's Ontic program. Anyway, it works with lucid, allegro and gcl but not clisp-hs. I have has similar experiences with clisp-hs doing things with strings that other lisps don't. I would really like it to work with clisp-hs but I can't figure out the problem. It is one short .el file and a short .lisp file. I append the files to this message and give instructions for installing it. I have actually pared the files down to the bare necessities. If anyone is interested in more of this code, let me know. If anyone has similar code working for clisp-hs and is willing to share it, please let me know. Instructions for installation: load emacs-eval.el into emacs M-x load-file[Return]emacs-eval.el load ilisp: M-x [allegro|lucid|gcl|clisp-hs|whatever] load emacs-eval.lisp into your ilisp lisp-prompt> (load "emacs-eval.lisp") If you use allegro or a lisp that handles packages according to ANSI, you have to fix an error here but just do :continue 0 in allegro. Try it out. You should get "it works" printed in the minibuffer. lisp-prompt> (in-package :util) lisp-prompt> (emacs-eval `(message ,(quote-string "it works"))) This works in allegro and gcl (and lucid, I think). This does not work in clisp-hs (on my system). If you get it to work with clisp-hs, please let me know. --------------(Begin emacs-eval.el)-------------- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Emacs Eval independent module ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;(require 'ilisp) (require 'bridge) (provide 'emacs-eval) (defvar *lisp-eval-buffer* "") ;; Always install bridge. (add-hook 'clisp-hook '(lambda () (add-hook 'ilisp-init-hook '(lambda () (install-bridge))))) ;; Set up bridge properly. (setq bridge-hook '(lambda () ;; Don't insert in source or destination buffer (setq bridge-source-insert nil) (setq bridge-destination-insert nil) ;;; (setq bridge-chunk-size 250) ;; Set up bridge handler (setq bridge-handlers '((".*" . catch-lisp-eval))))) ;; Process info that comes to emacs from the bridge. (defun catch-lisp-eval (process string) (if string (setq *lisp-eval-buffer* (concat *lisp-eval-buffer* string)) (let ((buffer (current-buffer)) (eval-string *lisp-eval-buffer*)) (setq *lisp-eval-buffer* "") (condition-case err (eval (read eval-string)) (error (with-output-to-temp-buffer "*Ipr-messages*" (print (format "Bridge Error: %s on eval of: %s" err eval-string))))) (set-buffer buffer)))) --------------(End emacs-eval.el)-------------- --------------(Begin emacs-eval.lisp)-------------- (in-package :util) ;; Doesn't bother to check for quotes in a string. (defun simple-downcase (string) (let ((in-string nil) (next nil)) (dotimes (x (length string)) (setq next (aref string x)) (cond ((and (not in-string) (char= next #\")) (setq in-string t)) ((and in-string (char= next #\")) (setq in-string nil)) ((not in-string) (setf (aref string x) (char-downcase next))))) string)) (export 'emacs-eval) (defvar *message-prefix* (format nil "~a" (character 27))) (defvar *message-suffix* (format nil "~a" (character 29))) ;; If things stop working, exchange simple-downcase with string-downcase. (defun emacs-eval (exp) "This sends output in a form which will be picked up by the bridge." (format t "~a~a~a" *message-prefix* (string-downcase (format nil "~a" exp)) ;; (simple-downcase (format nil "~a" exp)) *message-suffix*)) (export 'quote-string) (defun quote-string (string) (format nil "\"~a\"" string)) --------------(End emacs-eval.lisp)-------------- -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA Office: RLM 10.142 From marcus@sysc.pdx.edu Thu Mar 7 02:41:27 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12671; Thu, 7 Mar 96 02:41:27 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA03461; Wed, 6 Mar 1996 17:23:11 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA04505; Wed, 6 Mar 1996 17:23:03 -0800 Date: Wed, 6 Mar 1996 17:23:03 -0800 Message-Id: <199603070123.RAA04505@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: bridge error in clisp-hs in lisp-interface program In-Reply-To: <9603062305.AA29871@marie.ma.utexas.edu> References: <9603062305.AA29871@marie.ma.utexas.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Benjamin" == bshults writes: Benjamin> Try it out. You should get "it works" printed in the Benjamin> minibuffer. > (in-package :util) (emacs-eval `(message ,(quote-string "it works"))) Benjamin> This works in allegro and gcl (and lucid, I think). This Benjamin> does not work in clisp-hs (on my system). If you get it to Benjamin> work with clisp-hs, please let me know. Huh, it works for me on emacs-19.30/Irix 5.3. If I can reproduce the problem, I'll fix the problem, so... o What version of Emacs? o What kind of machine / OS are you running it on? o Version of CLISP? clisp-1995-12-08? From mrc@cicladi.unial.it Thu Mar 7 16:33:40 1996 Return-Path: Received: from venere.unial.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14604; Thu, 7 Mar 96 16:33:40 +0100 Received: by venere.unial.it (5.65/DEC-Ultrix/4.3) id AA17888; Thu, 7 Mar 1996 15:14:23 +0100 Received: from gianduia.it. by cicladi (5.0/SMI-SVR4) id AA07471; Thu, 7 Mar 1996 15:15:11 +0000 Received: by gianduia.it. (5.0/SMI-SVR4) id AA24447; Thu, 7 Mar 1996 15:13:51 +0100 Date: Thu, 7 Mar 1996 15:13:51 +0100 From: mrc@cicladi.unial.it (Eccettuato Marco) Message-Id: <9603071413.AA24447@gianduia.it.> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Cc: mrc@cicladi.unial.it X-Sun-Charset: US-ASCII Content-Length: 1057 March 7 1996 This is the first list I subscribe to. I don' t know very well how mailing lists work. When I subscribed this list, I gave not my full name (Marco Eccettuato), but only Marco. How can I fix my error, without unsubscribe the list? Please help me! I' m very interested in Common Lisp, and I think CLISP is the best Common Lisp implementation I have seen so far. I use Common Lisp at the University and also at home, because I like Common Lisp very much and I want to learn it at best. The best book about Common Lisp I know about is Lisp 3rd Edition, from M.I.T. (I don' t remember the two authors, perhaps Berthold Klaus Horn or something similar is one of them). This is an excellent book about Common Lisp, Artificial Intelligence, and other key issues of the programming world, all implemented in our language. I' d like to get CLtL2, and I have already found any sites where it is, but I heard that another ANSI Common Lisp standard is forthcoming: is it true? and in the case, where can I ftp it? Marco Eccettuato mrc@cicladi.unial.it From marcus@sysc.pdx.edu Thu Mar 7 17:43:07 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14700; Thu, 7 Mar 96 17:43:07 +0100 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Thu, 7 Mar 1996 17:23:41 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id IAA04362; Thu, 7 Mar 1996 08:17:45 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id IAA09376; Thu, 7 Mar 1996 08:17:40 -0800 Date: Thu, 7 Mar 1996 08:17:40 -0800 Message-Id: <199603071617.IAA09376@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Books In-Reply-To: <9603071413.AA24447@gianduia.it.> References: <9603071413.AA24447@gianduia.it.> Reply-To: marcus@sysc.pdx.edu >>>>> "Marco" == Eccettuato Marco writes: Marco> The best book about Common Lisp I know about is Lisp 3rd Marco> Edition, from M.I.T. (I don' t remember the two authors, Marco> perhaps Berthold Klaus Horn or something similar is one of Marco> them). This is an excellent book about Common Lisp, Artificial Marco> Intelligence, and other key issues of the programming world, Marco> all implemented in our language. I'd recommend _On Lisp_ by Paul Graham. Emphasis on macros. ISBN 0-13-03-0552-9, Prentice Hall From toy@rtp.ericsson.se Thu Mar 7 20:40:14 1996 Return-Path: Received: from gwa.ericsson.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14895; Thu, 7 Mar 96 20:40:14 +0100 Received: from mr2.exu.ericsson.se (mr2.exu.ericsson.com [138.85.147.12]) by gwa.ericsson.com (8.7.1/8.7.1) with ESMTP id MAA10530; Thu, 7 Mar 1996 12:30:59 -0600 (CST) Received: from screamer.rtp.ericsson.se (screamer.rtp.ericsson.se [147.117.133.13]) by mr2.exu.ericsson.se (8.7.1/NAHUB-MR1.1) with SMTP id LAA21414; Thu, 7 Mar 1996 11:12:37 -0600 (CST) Received: from rcur (rcur7.rtp.ericsson.se [147.117.133.38]) by screamer.rtp.ericsson.se (8.6.8/8.6.4) with ESMTP id MAA25668; Thu, 7 Mar 1996 12:14:49 -0500 To: clisp-list Cc: mrc@cicladi.unial.it (Eccettuato Marco) References: <9603071413.AA24447@gianduia.it.> In-Reply-To: (Your message of Thu, 07 Mar 1996 16:35:55 +0100.) <9603071413.AA24447@gianduia.it.> Date: Thu, 07 Mar 1996 12:10:34 -0500 Message-Id: <25030.826218634@rtp.ericsson.se> From: Raymond Toy Eccettuato> I' d like to get CLtL2, and I have already found any Eccettuato> sites where it is, but I heard that another ANSI Eccettuato> Common Lisp standard is forthcoming: is it true? and Eccettuato> in the case, where can I ftp it? I don't know if the actual ANSI document is available for ftp, but you can pick up a texinfo version of it from the gcl site: ftp://ftp.ma.utexas.edu/pub/gcl/gcl-info+texi.tgz I think this contains just the texinfo version. An emacs info file is there too. From the texinfo version, you can get a printed copy or an HTML version. I have an HTML version if any would like a copy. (Conversion done by texi2html, so it might have some minor error in it.) Ray From phylax@pyramid.fac.marist.edu Thu Mar 7 20:51:05 1996 Return-Path: Received: from pyramid.fac.marist.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14973; Thu, 7 Mar 96 20:51:05 +0100 Received: (from phylax@localhost) by pyramid.fac.marist.edu (8.6.11/8.6.9) id OAA03997; Thu, 7 Mar 1996 14:35:26 -0500 Date: Thu, 7 Mar 1996 14:35:26 -0500 (EST) From: Frank Stolze To: clisp-list Subject: No more room ... In-Reply-To: <199603071617.IAA09376@sayre.sysc.pdx.edu> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII I am using CLisp (with some minor extensions written in C and using FFI) for agent programming. However, after my program ran for a while, I get the error message *** - No more room for LISP objects at points which work fine when I execute the same procedures running a "clean" CLisp without having executed anything else before. Looking at the my code I can't imagine why the garbage collector shouldn't avoid this situation. Now my questions: What would be the main reason for this error message? Is there a problem with the garbage collection or memory leaks, is there a way for me to avoid it? Did anybody else have similar problems? Regards, Frank From lee-d@cs.Buffalo.EDU Thu Mar 7 22:56:21 1996 Return-Path: Received: from dnoces.cs.Buffalo.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15136; Thu, 7 Mar 96 22:56:21 +0100 Received: (lee-d@localhost) by dnoces.cs.Buffalo.EDU (8.6.10/8.6.4) id QAA09685 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Thu, 7 Mar 1996 16:37:55 -0500 From: Chain-Wu Lee Message-Id: <199603072137.QAA09685@dnoces.cs.Buffalo.EDU> Subject: compiling error To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (clisp) Date: Thu, 7 Mar 1996 16:37:55 -0500 (EST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-1: Content-Transfer-Encoding: 7bit Content-Length: 867 Hi, I am trying to compile clisp on an old sun (SUN OS 4.1.2) but get the following error : making all in doc making all in lib make: Fatal error: Don't know how to make target `../intl/libgettext.h' Current working directory /tmp_mnt/home/B8D/wu/clisp/sun/gettext/lib *** Error code 1 make: Fatal error: Command failed for target `all-recursive' Current working directory /tmp_mnt/home/B8D/wu/clisp/sun/gettext *** Error code 1 make: Fatal error: Command failed for target `nls_catalogs' Can somebody tell me how to solve it? -Lee -- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Chain-Wu Lee | Dept. of Computer Science at SUNY BUFFALO http://www.cs.buffalo.edu/~lee-d | email : mailto:lee-d@cs.buffalo.edu -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- From marcus@sysc.pdx.edu Fri Mar 8 01:52:55 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15294; Fri, 8 Mar 96 01:52:55 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id QAA05027; Thu, 7 Mar 1996 16:34:28 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id QAA11395; Thu, 7 Mar 1996 16:34:26 -0800 Date: Thu, 7 Mar 1996 16:34:26 -0800 Message-Id: <199603080034.QAA11395@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: compiling error In-Reply-To: <199603072137.QAA09685@dnoces.cs.Buffalo.EDU> References: <199603072137.QAA09685@dnoces.cs.Buffalo.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "CWL" == Chain-Wu Lee writes: CWL> Fatal error: Don't know how to make target `../intl/libgettext.h' CWL> Can somebody tell me how to solve it? Might you be building clisp-1995-08-12 in `src'? There was a bug like this in the previous release. If so, get clisp-1995-12-08 or grab the snapshot from: http://sayre.sysc.pdx.edu:8001/clisp I just built clisp-1995-12-08 on SunOS 4.1.3 with the Sun compiler, so I'd be suprised if it didn't work. From hofbaur@fstgds06.tu-graz.ac.at Fri Mar 8 08:12:55 1996 Return-Path: Received: from fstgds06.tu-graz.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15671; Fri, 8 Mar 96 08:12:55 +0100 Received: by fstgds06.tu-graz.ac.at id AA04881 (5.65c/IDA-1.5s for clisp-list ); Fri, 8 Mar 1996 07:54:26 +0100 Date: Fri, 8 Mar 1996 07:50:54 +0100 (MET) From: Michael Hofbaur Subject: Clisp on AIX 4.-- To: clisp-list In-Reply-To: <199603080034.QAA11395@sayre.sysc.pdx.edu> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hi, I am currently using the Clisp Version compiled for AIX 3.2.5 on an IBM RS6000 - 320 but will have to move to another machine which currently uses AIX 3.1.5 and which has to be upgraded. Is there anybody using the available Clisp version on IBM-AIX 4.1... ? michael. -------------------------------------------------------- Michael Hofbaur m.hofbaur@ieee.org From efrias@kant.dcs.cie.uva.es Fri Mar 8 10:02:41 1996 Return-Path: Received: from kant.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15858; Fri, 8 Mar 96 10:02:41 +0100 Message-Id: <9603080902.AA15858@ma2s2.mathematik.uni-karlsruhe.de> Received: by kant.dcs.cie.uva.es (1.38.193.5/16.2) id AA10226; Fri, 8 Mar 1996 09:45:09 +0100 Date: Fri, 8 Mar 1996 09:45:09 +0100 From: 46775835 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Is there any way of installing in CLISP a controller for the errors, I mean, if it is possible to construct a controller, do something with the error, and return the control to the program without calling the de debugger. For example Turbo C, has got int matherr(struct exception *e) I'm looking for something similar in clisp, and not only to control mathemathical errors but any kind of error. Is there any manual about FFI? Thank you. Enrique Frias Martinez Undergraduate student Computer Science Universidad de Valladolid E-mail: efrias@kant.dcs.cie.uva.es WWW: http://www.uva.es From marcus@sysc.pdx.edu Fri Mar 8 16:48:24 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16566; Fri, 8 Mar 96 16:48:24 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id HAA05861; Fri, 8 Mar 1996 07:29:44 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id HAA14220; Fri, 8 Mar 1996 07:29:37 -0800 Date: Fri, 8 Mar 1996 07:29:37 -0800 Message-Id: <199603081529.HAA14220@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: conditions In-Reply-To: <9603080902.AA15858@ma2s2.mathematik.uni-karlsruhe.de> References: <9603080902.AA15858@ma2s2.mathematik.uni-karlsruhe.de> Reply-To: marcus@sysc.pdx.edu >>>>> "Enrique" == 46775835 writes: Enrique> Is there any way of installing in CLISP a controller for the Enrique> errors, I mean, if it is possible to construct a controller, Enrique> do something with the error, and return the control to the Enrique> program without calling the de debugger. Yes, read in CLtL2 about the Common Lisp Condition System or chapter 9 the ANSI standard. HANDLER-CASE is probably sufficient for what you want. e.g. (handler-case (/ 1 0) (division-by-zero () 0)) Enrique> Is there any manual about FFI? The FFI is described in `foreign.txt'. From marcus@sysc.pdx.edu Fri Mar 8 16:51:19 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16603; Fri, 8 Mar 96 16:51:19 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id HAA05865; Fri, 8 Mar 1996 07:32:05 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id HAA14236; Fri, 8 Mar 1996 07:31:59 -0800 Date: Fri, 8 Mar 1996 07:31:59 -0800 Message-Id: <199603081531.HAA14236@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Clisp on AIX 4.-- In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu >>>>> "Michael" == Michael Hofbaur writes: Michael> I am currently using the Clisp Version compiled for AIX 3.2.5 Michael> on an IBM RS6000 - 320 but will have to move to another Michael> machine which currently uses AIX 3.1.5 and which has to be Michael> upgraded. Is there anybody using the available Clisp version Michael> on IBM-AIX 4.1... ? The build notes are fairly conservative, so if you can't find a binary, building from source code will probably (at least) work as described in PLATFORMS. From martin@sinera.iiia.csic.es Fri Mar 8 22:21:46 1996 Return-Path: Received: from ELROND.uab.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17016; Fri, 8 Mar 96 22:21:46 +0100 Received: from iiia.csic.es ("port 58557"@sinera.iiia.csic.es) by pluto.uab.es (PMDF V4.3-10 #7242) id <01I240UAE0J4938XVZ@pluto.uab.es>; Fri, 8 Mar 1996 22:02:31 GMT+0100 Received: from [158.109.36.5] (Massy.iiia.csic.es) by iiia.csic.es (5.x/SMI-SVR4) id AA03287; Fri, 8 Mar 1996 21:59:11 +0100 Date: Fri, 08 Mar 1996 22:12:46 +0100 From: martin@sinera.iiia.csic.es (Francisco Martin) Subject: Error? in clisp (solaris) X-Sender: martin@sinera To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: <9603082059.AA03287@iiia.csic.es> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7BIT Hi folks, I get the next error when I eval the following expression, why? (loop for idx upfrom 0 to (the fixnum (1- (length "Error"))) for char = (aref "Error" idx) ) *** - AREF: index 5 for "Error" is out of range Thanks in advance and I'm sorry if it's an stupid question... _______________________________________________________________________ _/ _/ _/_| Francisco J. Martin Cervera / _/ _/ _| IIIA - Institut d'Investigacio en Intel.ligencia Artificial _/ _/___| CSIC - Spanish Scientific Research Council _/ _/____| Campus Universitat Autonoma de Barcelona / _/ _| 08193 Cerdanyola, Catalonia, Spain Ph: +34 3 5809570 Fax: +34 3 5809661 e-mail: martin@iiia.csic.es WWW: http://www.iiia.csic.es/~martin _______________________________________________________________________ From kodie@echonyc.com Sat Mar 9 06:37:08 1996 Return-Path: Received: from echo2 (echo2.echonyc.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17669; Sat, 9 Mar 96 06:37:08 +0100 Received: from echonyc.com (root@echonyc.com [198.67.15.2]) by echo2 (8.6.12/8.6.10) with ESMTP id AAA29062 for ; Sat, 9 Mar 1996 00:24:27 -0500 Received: from [198.67.15.216] (kodie.echonyc.com [198.67.15.216]) by echonyc.com (8.6.12/echo-relay) with SMTP id AAA16439 for ; Sat, 9 Mar 1996 00:16:22 -0500 Message-Id: <199603090516.AAA16439@echonyc.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Sat, 9 Mar 1996 00:20:25 -0500 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: kodie@echonyc.com (Robert Paul Herman) Subject: unsubscribe kodie@echonyc.com (Robert Paul Herman) unsubscribe kodie@echonyc.com (Robert Paul Herman) Robert Paul Herman kodie@echonyc.com From rtm@uun.org Sun Mar 10 17:06:51 1996 Return-Path: Received: from punish.uun.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18637; Sun, 10 Mar 96 17:06:51 +0100 Received: (from rtm@localhost) by punish.uun.org (8.7.3/8.6.11) id KAA06797; Sun, 10 Mar 1996 10:47:56 -0500 (EST) Date: Sun, 10 Mar 1996 10:47:56 -0500 (EST) From: Robert Morris Message-Id: <199603101547.KAA06797@punish.uun.org> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: (open ".foo" :direction :output) fails clisp-1995-12-08 on BSDI machines doesn't seem to be able to create a file whose name begins with period. For instance: > (open ".foo" :direction :output) *** - no file name given: #"/usr/rtm/clisp-1995-12-08/src/.foo" 1. Break> From rtm@uun.org Sun Mar 10 17:16:46 1996 Return-Path: Received: from punish.uun.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18703; Sun, 10 Mar 96 17:16:46 +0100 Received: (from rtm@localhost) by punish.uun.org (8.7.3/8.6.11) id KAA06804; Sun, 10 Mar 1996 10:57:51 -0500 (EST) Date: Sun, 10 Mar 1996 10:57:51 -0500 (EST) From: Robert Morris Message-Id: <199603101557.KAA06804@punish.uun.org> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: (rename-file "a" "b") fails if b exists If I call (rename-file "a" "b") in clisp-1995-12-08, and file b exists, clisp raises an error: *** - RENAME-FILE: File #"/usr/rtm/clisp-1995-12-08/src/b" already exists And there doesn't seem to be a way to suppress it: no :if-exists :supersede. CLTL1 doesn't specify that this should be an error. I want rename to work in this situation so I can update files without risking losing them if the system crashes. For instance, the following can be interrupted at any time and real-file will contain either new or old data, but not just be truncated: (with-open-file (s "temporary-file" :direction :outout) ... (finish-output s)) (rename-file "temporary-file" "real-file") But this doesn't work in clisp. People who want the existing behaviour of rename-file can test if the target file exists first. From rtm@uun.org Sun Mar 10 17:25:21 1996 Return-Path: Received: from punish.uun.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18768; Sun, 10 Mar 96 17:25:21 +0100 Received: (from rtm@localhost) by punish.uun.org (8.7.3/8.6.11) id LAA06813; Sun, 10 Mar 1996 11:06:22 -0500 (EST) Date: Sun, 10 Mar 1996 11:06:22 -0500 (EST) From: Robert Morris Message-Id: <199603101606.LAA06813@punish.uun.org> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: probe-file raises an error If one calls the clisp-1995-12-08 probe-file with the name of a directory under UNIX, it raises an error: > (probe-file "/tmp") *** - NAMESTRING: "/tmp" names a directory, not a file CLTL1 implies probe-file should return nil in this case: "This predicate is false if there is no file named file, and otherwise returns a pathname that is the true name of the file." It would be helpful to me if clisp either decided that directories are not files (in which case probe-file should return nil), or that directories are files. From marcus@sysc.pdx.edu Sun Mar 10 22:32:34 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18973; Sun, 10 Mar 96 22:32:34 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id NAA08656; Sun, 10 Mar 1996 13:13:37 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id NAA26543; Sun, 10 Mar 1996 13:13:33 -0800 Date: Sun, 10 Mar 1996 13:13:33 -0800 Message-Id: <199603102113.NAA26543@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: (open ".foo" :direction :output) fails In-Reply-To: <199603101547.KAA06797@punish.uun.org> References: <199603101547.KAA06797@punish.uun.org> Reply-To: marcus@sysc.pdx.edu >>>>> "RM" == Robert Morris writes: RM> clisp-1995-12-08 on BSDI machines doesn't seem to be able to RM> create a file whose name begins with period. For instance: RM> (open ".foo" :direction :output) RM> *** - no file name given: #"/usr/rtm/clisp-1995-12-08/src/.foo" RM> 1. Break> How about: (open (make-pathname :name ".foo")) From martin@sinera.iiia.csic.es Mon Mar 11 16:18:04 1996 Return-Path: Received: from ELROND.uab.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20344; Mon, 11 Mar 96 16:18:04 +0100 Received: from iiia.csic.es ("port 35302"@sinera.iiia.csic.es) by pluto.uab.es (PMDF V4.3-10 #7242) id <01I27UZBCUXC939QS4@pluto.uab.es>; Mon, 11 Mar 1996 15:57:56 GMT+0100 Received: from [158.109.36.5] (Massy.iiia.csic.es) by iiia.csic.es (5.x/SMI-SVR4) id AA10952; Mon, 11 Mar 1996 15:54:37 +0100 Date: Mon, 11 Mar 1996 16:08:16 +0100 From: martin@sinera.iiia.csic.es (Francisco Martin) Subject: Error on exit! X-Sender: martin@sinera To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: <9603111454.AA10952@iiia.csic.es> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7BIT Hi folks, Sometimes, when I try to exit clisp I get the next error: (quit) Bye. *** - UNIX error 9 (EBADF): Bad file number 1. Break> (lisp:exit) Bye. *** - UNIX error 9 (EBADF): Bad file number Thanks in advance for any help! From mrc@cicladi.unial.it Thu Mar 14 12:41:06 1996 Return-Path: Received: from venere.unial.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02998; Thu, 14 Mar 96 12:41:06 +0100 Received: by venere.unial.it (5.65/DEC-Ultrix/4.3) id AA04172; Thu, 14 Mar 1996 12:22:35 +0100 Received: from lisa.unial.it by cicladi (5.0/SMI-SVR4) id AA05520; Thu, 14 Mar 1996 12:18:59 +0000 Received: by lisa.unial.it (5.x/SMI-SVR4) id AA02169; Thu, 14 Mar 1996 12:24:51 +0100 Date: Thu, 14 Mar 1996 12:24:51 +0100 From: mrc@cicladi.unial.it (Eccettuato Marco) Message-Id: <9603141124.AA02169@lisa.unial.it> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: ANSI Common Lisp and stdwin X-Sun-Charset: US-ASCII Content-Length: 867 My questions are: Does exists an ANSI Standard Common Lisp? I heard something about, but I don't know wether a definitive standard exists, and, in that case, where can I get it from. If it doesn't exist, where can I get the last version from? What does it actually mean "draft proposed"? What differences exist between cltl.ps or cltl_psfonts.ps (these are e.g. at ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/CLtL2) and dpANS-dvi (at parcftp.xerorx.com) at "text" level, i.e. under the point of view of the Standard Common Lisp? Please, if you cannot answer my questions, do you can tell me who can I write to get answers? Thank you. I got a package for CLISP from the Internet (tree.tgz, or something similar), which says it needs `stdwin', i.e. a CLISP binary linked with stdwin. What is stdwin, and what has it to do with CLISP and eventually with Common Lisp? From marcus@sysc.pdx.edu Thu Mar 14 13:07:20 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03089; Thu, 14 Mar 96 13:07:20 +0100 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Thu, 14 Mar 1996 12:46:06 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id DAA13724; Thu, 14 Mar 1996 03:44:26 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id DAA07937; Thu, 14 Mar 1996 03:44:20 -0800 Date: Thu, 14 Mar 1996 03:44:20 -0800 Message-Id: <199603141144.DAA07937@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: ANSI Common Lisp and stdwin In-Reply-To: <9603141124.AA02169@lisa.unial.it> References: <9603141124.AA02169@lisa.unial.it> Reply-To: marcus@sysc.pdx.edu >>>>> "E" == Eccettuato Marco writes: E> I got a package for CLISP from the Internet (tree.tgz, or something E> similar), which says it needs `stdwin', i.e. a CLISP binary linked E> with stdwin. What is stdwin, and what has it to do with CLISP and E> eventually with Common Lisp? stdwin is a simple windowing library that works with and is specific to CLISP. There are several unofficial Unix binary distributions each with stdwin support built at: http://sayre.sysc.pdx.edu:8001/clisp/binaries From mrc@cicladi.unial.it Thu Mar 14 15:13:15 1996 Return-Path: Received: from venere.unial.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03423; Thu, 14 Mar 96 15:13:15 +0100 Received: by venere.unial.it (5.65/DEC-Ultrix/4.3) id AA04537; Thu, 14 Mar 1996 14:55:12 +0100 Received: from lisa.unial.it by cicladi (5.0/SMI-SVR4) id AA06782; Thu, 14 Mar 1996 14:51:40 +0000 Received: by lisa.unial.it (5.x/SMI-SVR4) id AA03974; Thu, 14 Mar 1996 14:57:33 +0100 Date: Thu, 14 Mar 1996 14:57:33 +0100 From: mrc@cicladi.unial.it (Eccettuato Marco) Message-Id: <9603141357.AA03974@lisa.unial.it> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLtL2 and dpANS2 X-Sun-Charset: US-ASCII Content-Length: 539 I have a few very annoying and perhaps silly questions, but, if you can, please answer me: the only really silly question is the question never posed. What is the `official' document about Common Lisp? Is it CLtL2, or is it dpANS2? What are the differences about these two documents, from the point of view of the programmer? They are all two very old: are they out of date too? Where can I get the latest `release' of the `official' document, possibly via anonymous FTP? Thank you very much. Marco Eccettuato mrc@cicladi.unial.it From bshults@math.utexas.edu Thu Mar 14 21:20:14 1996 Return-Path: Received: from sp5-5.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04717; Thu, 14 Mar 96 21:20:14 +0100 Date: Thu, 14 Mar 96 12:57:42 CST From: bshults@math.utexas.edu Posted-Date: Thu, 14 Mar 96 12:57:42 CST Message-Id: <9603141857.AA29680@sp5-5.ma.utexas.edu> Received: by sp5-5.ma.utexas.edu (4.1/5.51) id AA29680; Thu, 14 Mar 96 12:57:42 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: <9603141357.AA03974@lisa.unial.it> (mrc@cicladi.unial.it) Subject: Re: CLtL2 and dpANS2 What is the `official' document about Common Lisp? Is it CLtL2, or is it dpANS2? dpANS2 is a draft of the "official" definition of ANSI Common Lisp. The real ANSI definition is probably not significantly different from dpANS2 but I think you have to pay to get the "official" document. However, Clisp is not ANSI Common Lisp. Clisp is CLtL with some (most?) of CLtL2. If you want a description of Clisp, then CLtL2 is probably a better source than the ANSI standard. If you want a description of Allegro CL then the ANSI document is closer. Other implementations of lisp fall in various places between CLtL and ANSI. Most implementations currently under development (including Clisp, I believe) are working toward the ANSI standard. Only Allegro is currently ANSI and even that has some holes in it. What are the differences about these two documents, from the point of view of the programmer? Many differences. See the texts. The more important question for programmers is "what is the difference between the various implementations?" I hope that helps. -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) From bshults@math.utexas.edu Mon Mar 18 01:03:50 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07639; Mon, 18 Mar 96 01:03:50 +0100 Date: Sun, 17 Mar 96 17:43:00 CST From: bshults@math.utexas.edu Posted-Date: Sun, 17 Mar 96 17:43:00 CST Message-Id: <9603172343.AA02978@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA02978; Sun, 17 Mar 96 17:43:00 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: xp-code.lisp: how to avoid redefinition cerror When I load the file xp-code.lisp (which someone patched to work with clisp) I get three continuable errors because the macro 'formatter is redefined. How can I have the macro redefined without the errors or at least have the errors continue automatically? I tried a handler-case form and it didn't seem to work. Ideas appreciated. -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) From mrc@cicladi.unial.it Mon Mar 18 11:39:39 1996 Return-Path: Received: from venere.unial.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08459; Mon, 18 Mar 96 11:39:39 +0100 Received: by venere.unial.it (5.65/DEC-Ultrix/4.3) id AA07797; Mon, 18 Mar 1996 11:20:52 +0100 Received: from lisa.unial.it by cicladi (5.0/SMI-SVR4) id AA05290; Mon, 18 Mar 1996 11:17:18 +0000 Received: by lisa.unial.it (5.x/SMI-SVR4) id AA18011; Mon, 18 Mar 1996 11:23:17 +0100 Date: Mon, 18 Mar 1996 11:23:17 +0100 From: mrc@cicladi.unial.it (Eccettuato Marco) Message-Id: <9603181023.AA18011@lisa.unial.it> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP under Linux X-Sun-Charset: US-ASCII Content-Length: 565 I took the CLISP sources, with stdwin, queens, regexp, wildcard, at ma2s2. I tried to compile all that stuff, but I get a lot of errors from the linker about undefined references to `x11_*' symbols: no one of these is defined in the library libstdwin.a, which is build by the compilation process of CLISP. I made all that I ought to make (added stdwin, queens, etc to MODULES into the makefile). Can someone help me with these troubles? I' d like to compile CLISP of my own, to make some optimization (add -m486, -O2, delete -g, etc) into the various Makefiles. From marcus@sysc.pdx.edu Mon Mar 18 14:44:25 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09151; Mon, 18 Mar 96 14:44:25 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id FAA17905; Mon, 18 Mar 1996 05:19:26 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id FAA08049; Mon, 18 Mar 1996 05:19:04 -0800 Date: Mon, 18 Mar 1996 05:19:04 -0800 Message-Id: <199603181319.FAA08049@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP 1996-03-15 Reply-To: marcus@sysc.pdx.edu Binaries for this release are available for FTP from ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp/binaries. Unless otherwise noted, these binaries are built with GNU native language support and stdwin support. Architecture OS Subdirectory i386 Linux a.out linux-aout i386 Linux ELF linux-elf m68k NEXTSTEP 3.2 m68k-next (no stdwin) MIPS Irix 5.3 sgi-irix53 sun4c SunOS 4.1.3 sun4-sunos4 sun4m Solaris 2.4 sun4-solaris24 Also available from http://sayre.sysc.pdx.edu:8001/clisp/binaries are: Architecture OS File i386 Linux a.out x86_LinuxAout_immutable.tar.z i386 Linux ELF x86_LinuxELF_wide.tar.z i386 MSDOS dos.zip (in transit to ma2s2 `binaries/dos') i386 gnu-win32 win32.zip Source code is available from: http://sayre.sysc.pdx.edu:8001/clisp/clisp-1996-03-15 and soon, by FTP at the usual spots: ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp/source ftp.stat.ucla.edu:/pub/lisp/clisp/source Note that there is now another optional source archive, "clispsrc-gettext.tar.z". Translators may find NLS `po' files at http://sayre.sysc.pdx.edu:8001/clisp/po. [Free WWW browsers: Chimera (X Windows/non-Motif): ftp.cs.unlv.edu:/pub/chimera Lynx (terminal): ftp2.cc.ukans.edu:/pub/lynx Mosaic (X Windows/Motif): ftp.ncsa.uiuc.edu/Web/Mosaic/Unix W3 (Emacs): ftp.cs.indiana.edu:/pub/elisp/w3 OmniWeb (NEXTSTEP): ftp.cs.orst.edu:/pub/next/binaries/wide-area-info] 15 March 1996 ================ User visible changes -------------------- * New variable *IMAGE-PATHNAME* provides the pathname resulting from the `-M' option. * Fix for GC bug that could occur during buffered string output. * Pipes can use binary I/O. * RENAME-FILE now does *not* result in an error if the destination file already exists (unless the system call results in an error message). * PROBE-FILE and TRUENAME will not issue error messages if given directories. * On Unix, PARSE-NAMESTRING will not interpret a leading `.' as a file with a type but no name. Instead, the file will include the `.' in the name. Pathname syntax is unchanged. Thanks to Robert Morris . * Changes to loop macro to allow for derived FOR assignments from hash-tables and counting variables. Improved previous fix for derived values from list and vector iteration variables. Thanks to Francisco Martin and Russell Senior . Portability ----------- * DECstation 5000/Ultrix support updated. Thanks to Bruno Haible. * NEXTSTEP support updated (version 3.3). Thanks to Robert Murphy . * The deema program is no longer used. Empty macro arguments are explictly tagged as such. * Win32 support split into a DOS- and a Unix-style sections. The Unix version takes advantage of the Cygnus gnu-win32 DLL to emulate a Unix-like environment, e.g. as there is a `mount' program, there is no explicit support for drive names. As of gnu-win32-b13.5, NT hosted builds are possible, e.g.: `configure --build --disable-nls nt < /dev/null' will autoconf and build CLISP from source. Other modifications ------------------- * Support for tracking dynamic bindings; useful for further multithread work. Feature can be compiled-in by using -DDYNBIND_LIST. * Top-level configure adds a GNU-like `--target' syntax for cross compilation. * Non-GNU-gettext multilingual debugging binaries will no longer have inaccurate line numbers. * GNU gettext support now distributed in a separate package. From stoffel@cs.tu-berlin.de Mon Mar 18 20:43:35 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09555; Mon, 18 Mar 96 20:43:35 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id UAA19821 for ; Mon, 18 Mar 1996 20:15:14 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <314DB63F.1370@cs.tu-berlin.de> Date: Mon, 18 Mar 1996 20:15:11 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Can i have source level debugging with clisp? References: <9603181023.AA18011@lisa.unial.it> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit My whole question has found place in the topic ... ;-) -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From jan@ifs.univie.ac.at Mon Mar 18 22:54:30 1996 Return-Path: Received: from email.univie.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09702; Mon, 18 Mar 96 22:54:30 +0100 Received: from ifs.univie.ac.at (actually ravel.ifs.univie.ac.at) by email.univie.ac.at with SMTP (PP); Mon, 18 Mar 1996 20:42:34 +0100 Received: by ifs.univie.ac.at (4.1/SMI-4.3.12) id AA20800; Mon, 18 Mar 96 20:42:10 +0100 Date: Mon, 18 Mar 96 20:42:10 +0100 From: jan@ifs.univie.ac.at (Jan M. STANKOVSKY) Message-Id: <9603181942.AA20800@ifs.univie.ac.at> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: CLISP 1996-03-15 C'mon gimme some solaris x86 binaries...pleaaaaze... I can make them ! ~>| ~>| Architecture OS Subdirectory ~>| i386 Linux a.out linux-aout ~>| i386 Linux ELF linux-elf ~>| m68k NEXTSTEP 3.2 m68k-next (no stdwin) ~>| MIPS Irix 5.3 sgi-irix53 ~>| sun4c SunOS 4.1.3 sun4-sunos4 ~>| sun4m Solaris 2.4 sun4-solaris24 ~>| ~>|Also available from http://sayre.sysc.pdx.edu:8001/clisp/binaries are: ~>| ~>| Architecture OS File ~>| i386 Linux a.out x86_LinuxAout_immutable.tar.z ~>| i386 Linux ELF x86_LinuxELF_wide.tar.z ~>| i386 MSDOS dos.zip (in transit to ma2s2 `binaries/dos') ~>| i386 gnu-win32 win32.zip ~>| From bshults@math.utexas.edu Tue Mar 19 01:04:09 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10035; Tue, 19 Mar 96 01:04:09 +0100 Date: Mon, 18 Mar 96 17:43:03 CST From: bshults@math.utexas.edu Posted-Date: Mon, 18 Mar 96 17:43:03 CST Message-Id: <9603182343.AA05932@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA05932; Mon, 18 Mar 96 17:43:03 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Pretty printing 1. What is the status of clisp's compatibility with ANSI CL pretty printing? 2. I use some pretty printing code, i.e. code which uses xp-code.lisp, formatter, and the format directives special thereto. My code works under Allegro CL--without loading xp-code.lisp since Allegro does pretty printing already. When I load xp-code.lisp into clisp and run my code I get errors signaled by the xp-code. So, are there any known bugs in a. xp-code.lisp, b. Allegro CL's pretty printing or c. clisp's interaction with xp-code.lisp? The error is that -1 is given as a first argument to nthcdr somewhere in the formatter. -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) From marcus@sysc.pdx.edu Tue Mar 19 01:54:55 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10191; Tue, 19 Mar 96 01:54:55 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id QAA18843; Mon, 18 Mar 1996 16:34:31 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id QAA03461; Mon, 18 Mar 1996 16:34:25 -0800 Date: Mon, 18 Mar 1996 16:34:25 -0800 Message-Id: <199603190034.QAA03461@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: CLISP 1996-03-15 In-Reply-To: <9603181942.AA20800@ifs.univie.ac.at> References: <9603181942.AA20800@ifs.univie.ac.at> Reply-To: marcus@sysc.pdx.edu >>>>> "Jan" == Jan M STANKOVSKY writes: Jan> C'mon gimme some solaris x86 binaries...pleaaaaze... Jan> I can make them ! Great! The other binary distributions were built like this: configure --build --with-dynamic-modules --with-stdwin platform cd platform make distrib If anyone has builds to contribute, just let me know and I'll put them up! And if you encounter build problems, please let me know. Thanks! From marcus@sysc.pdx.edu Tue Mar 19 03:15:34 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10351; Tue, 19 Mar 96 03:15:34 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA18927; Mon, 18 Mar 1996 17:55:09 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA04160; Mon, 18 Mar 1996 17:55:08 -0800 Date: Mon, 18 Mar 1996 17:55:08 -0800 Message-Id: <199603190155.RAA04160@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: CLISP 1996-03-15 Reply-To: marcus@sysc.pdx.edu The clisp-1996-03-15 sources and a DOS binary distribution are now also available at: ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp/source ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/clisp/binaries/dos From donc@ISI.EDU Tue Mar 19 08:02:28 1996 Return-Path: Received: from darkstar.isi.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10781; Tue, 19 Mar 96 08:02:28 +0100 Received: from hpai23.isi.edu by darkstar.isi.edu (5.65c/5.61+local-20) id ; Mon, 18 Mar 1996 22:41:22 -0800 Message-Id: <199603190641.AA03529@darkstar.isi.edu> To: clisp-list Subject: Re: handling errors In-Reply-To: Your message of "Tue, 19 Mar 96 01:05:40 +0100." <9603182343.AA05932@marie.ma.utexas.edu> Date: Mon, 18 Mar 96 22:38:53 PST From: Don Cohen You asked about auto continue, right? For redefinitions? This works for me: (handler-bind ((t #'(lambda (c) (declare (ignore c)) (when (find-restart 'continue) (invoke-restart 'continue))))) (load ...)) where the file redefines lisp functions. Of course, you also tend to get the cerrors on compile, but you can do the same thing there. From bshults@math.utexas.edu Tue Mar 19 20:22:33 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12177; Tue, 19 Mar 96 20:22:33 +0100 Date: Tue, 19 Mar 96 12:26:11 CST From: bshults@math.utexas.edu Posted-Date: Tue, 19 Mar 96 12:26:11 CST Message-Id: <9603191826.AA07329@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA07329; Tue, 19 Mar 96 12:26:11 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: xp-code.lisp errors in clisp and gcl I downloaded the latest (09/02/92) version of xp-code.lisp from merl.com. I have some pretty printing code which is very stable and runs fine under Allegro. I also want to use CLISP and GCL. When I load xp-code.lisp into either of these lisps and run my code I get runtime errors signaled from inside the xp code. Has anyone gotten pretty printing to work under CLISP or GCL? The error I get is that -1 is given as the first argument to nthcdr. -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) From toy@rtp.ericsson.se Tue Mar 19 20:53:02 1996 Return-Path: Received: from gwa.ericsson.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12252; Tue, 19 Mar 96 20:53:02 +0100 Received: from mr2.exu.ericsson.se (mr2.exu.ericsson.com [138.85.147.12]) by gwa.ericsson.com (8.7.1/8.7.1) with ESMTP id NAA26332; Tue, 19 Mar 1996 13:30:53 -0600 (CST) Received: from screamer.rtp.ericsson.se (screamer.rtp.ericsson.se [147.117.133.13]) by mr2.exu.ericsson.se (8.7.1/NAHUB-MR1.1) with SMTP id NAA27376; Tue, 19 Mar 1996 13:30:52 -0600 (CST) Received: from rcur (rcur7.rtp.ericsson.se [147.117.133.38]) by screamer.rtp.ericsson.se (8.6.8/8.6.4) with ESMTP id OAA03317; Tue, 19 Mar 1996 14:33:09 -0500 To: bshults@fireant.ma.utexas.edu, clisp-list References: <9603191826.AA07329@marie.ma.utexas.edu> Subject: Re: xp-code.lisp errors in clisp and gcl In-Reply-To: (Your message of Tue, 19 Mar 1996 20:25:16 +0100.) <9603191826.AA07329@marie.ma.utexas.edu> Date: Tue, 19 Mar 1996 14:28:47 -0500 Message-Id: <24640.827263727@rtp.ericsson.se> From: Raymond Toy bshults> I also want to use CLISP and GCL. When I load bshults> xp-code.lisp into either of these lisps and run my code I bshults> get runtime errors signaled from inside the xp code. bshults> Has anyone gotten pretty printing to work under CLISP or bshults> GCL? You may want to look on CLISP's ftp site. In the contrib directory (I think), there is a fixed version of xp for clisp. Well, I believe it's fixed in the sense that it passes the test suite that comes with xp. I don't think that will solve your problems with GCL. I think the test suite fails on 3 cases. I don't know what the solution is. Ray From bshults@math.utexas.edu Tue Mar 19 21:16:05 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12348; Tue, 19 Mar 96 21:16:05 +0100 Date: Tue, 19 Mar 96 13:54:51 CST From: bshults@math.utexas.edu Posted-Date: Tue, 19 Mar 96 13:54:51 CST Message-Id: <9603191954.AA07593@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA07593; Tue, 19 Mar 96 13:54:51 CST To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Cc: gcl@cli.com In-Reply-To: <24640.827263727@rtp.ericsson.se> (message from Raymond Toy on Tue, 19 Mar 96 20:57:05 +0100) Subject: Re: xp-code.lisp errors in clisp and gcl Benjamin Shults wrote: > I downloaded the latest (09/02/92) version of xp-code.lisp from merl.com. > I have some pretty printing code which is very stable and > runs fine under Allegro. > > I also want to use CLISP and GCL. When I load xp-code.lisp > into either of these lisps and run my code I get runtime > errors signaled from inside the xp code. This has been solved. I was using a format string that worked with Allegro because they extended the ~* directive in an undocumented yet sensible way so that it could take ~-1* and skip backwards. The standard way to do this is ~1:*. xp-code.lisp gives an error on the former while Allegro understands it. Let this be a lesson to me. Benjamin From stoffel@cs.tu-berlin.de Wed Mar 20 19:36:09 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14245; Wed, 20 Mar 96 19:36:09 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id SAA12501 for ; Wed, 20 Mar 1996 18:55:13 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <3150467C.34E0@cs.tu-berlin.de> Date: Wed, 20 Mar 1996 18:55:08 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: member-type error References: <199603190641.AA03529@darkstar.isi.edu> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I want to have a structure-slot, with a type, which includes only special objects: > (defstruct test (trigger t :type (member t nil)) ) TEST > (make-test) #S(TEST :TRIGGER T) > (defstruct test (trigger 'a :type (member 'a 'b)) ) TEST > (make-test) *** - THE: TRIGGER evaluated to the values (A), not of type (MEMBER 'A 'B) 1. Break> what am i'm doing wrong? Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From marcus@sysc.pdx.edu Thu Mar 21 01:33:54 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14678; Thu, 21 Mar 96 01:33:54 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id QAA21328; Wed, 20 Mar 1996 16:13:04 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id QAA22706; Wed, 20 Mar 1996 16:13:02 -0800 Date: Wed, 20 Mar 1996 16:13:02 -0800 Message-Id: <199603210013.QAA22706@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: OSF/1 dec-alpha build Reply-To: marcus@sysc.pdx.edu Ken Olum (kdo@mit.edu) has contributed a build of clisp-1996-03-15 for DEC Alpha. It should work on both OSF/1 V2.1 and OSF/1 V3.2. This is a lean-n-mean version appropriate (eg) for use with Emacs (sans readline and gettext). It is available at: ma2s2.mathematik.uni-karlsruhe.de /pub/lisp/clisp/binaries/decalpha-osf/clisp.tar.z Thanks, Ken! From hofbaur@fstgds06.tu-graz.ac.at Thu Mar 21 07:32:53 1996 Return-Path: Received: from fstgds06.tu-graz.ac.at by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15154; Thu, 21 Mar 96 07:32:53 +0100 Received: by fstgds06.tu-graz.ac.at id AA02422 (5.65c/IDA-1.5s for clisp-list ); Thu, 21 Mar 1996 07:12:05 +0100 Date: Thu, 21 Mar 1996 07:08:25 +0100 (MET) From: Michael Hofbaur Subject: no more room.. To: clisp-list Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII hi, while running my last simulations using Clsip I got the following error message: *** - No more room for LISP objects is there a way round or is it simply that I am stressing Clisp too much? michael. -------------------------------------------------------- Michael Hofbaur Dept. of Automatic Control Graz University of Technology Austria From stoffel@cs.tu-berlin.de Fri Mar 22 06:03:16 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16814; Fri, 22 Mar 96 06:03:16 +0100 Received: from liszt (stoffel@liszt.cs.tu-berlin.de [130.149.29.53]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id FAA15468 for ; Fri, 22 Mar 1996 05:33:18 +0100 Sender: stoffel@cs.tu-berlin.de Message-Id: <31522D8B.6803@cs.tu-berlin.de> Date: Fri, 22 Mar 1996 05:33:15 +0100 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: lisp2wish and too many open files error? References: <199603190034.QAA03461@sayre.sysc.pdx.edu> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I am using the lisp2wish extension and everything's fine. But after quite a while i get the following message: Handshaking ... ok. Listening: couldn't create error file for command: Too many open files couldn't create error file for command: Too many open files Quitting ... Done T > Has someone a clue? Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From marcus@sysc.pdx.edu Fri Mar 22 16:53:17 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17635; Fri, 22 Mar 96 16:53:17 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id HAA23336; Fri, 22 Mar 1996 07:32:10 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id HAA09396; Fri, 22 Mar 1996 07:32:08 -0800 Date: Fri, 22 Mar 1996 07:32:08 -0800 Message-Id: <199603221532.HAA09396@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: loop macro Reply-To: marcus@sysc.pdx.edu Mea culpa. If you are using clisp-1996-03-15 and use the loop macro, please grab http://sayre.sysc.pdx.edu:8001/clisp/bugfixes/loop.lsp and reload your lisp image. Ken Olum discovered a fairly serious bug. On Unix, you can reload like this: $ clisp -c loop.lsp $ clisp -q -x '(load "loop") (saveinitmem "lispinit.mem") *image-pathname*' ;; Loading file loop.lsp ... ** - Continuable Error Redefining the COMMON LISP macro LOOP The old definition will be lost ** - Continuable Error Redefining the COMMON LISP macro LOOP-FINISH The old definition will be lost ;; Loading of file loop.lsp is finished. T 720288 ; 524288 #"/pkgs/sayre/packages/development/lisp/CLISP/lib/lisp/lispinit.mem" cp lispinit.mem /pkgs/sayre/packages/development/lisp/CLISP/lib/lisp Please don't hesitate to let me know about other problems; I'll make another release in a few days. Updated binaries for Irix5, SunOS4, Solaris2, and Linux a.out/ELF are available from http://sayre.sysc.pdx.edu:8001/clisp/binaries. As usual, snapshot source code is at http://sayre.sysc.pdx.edu:8001/clisp. From lindner@forwiss.uni-erlangen.de Sat Mar 23 13:06:02 1996 Return-Path: Received: from faui45.informatik.uni-erlangen.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18423; Sat, 23 Mar 96 13:06:02 +0100 Received: from bfws00.forwiss.uni-erlangen.de (bfws00.forwiss.uni-erlangen.de [131.188.180.90]) by uni-erlangen.de with SMTP id MAA20015 (8.6.12/7.4f-FAU); for ; Sat, 23 Mar 1996 12:44:50 +0100 Received: from bfws4o by forwiss.uni-erlangen.de; id AA01102 (5.x/7.3w-FAU); Sat, 23 Mar 1996 12:44:38 +0100 From: Matthias Lindner Message-Id: <9603231144.AA01102@bfws00.forwiss.uni-erlangen.de> Date: Sat, 23 Mar 1996 12:44:38 +0100 To: clisp-list Subject: RE: lisp2wish and too many open files error? In-Reply-To: <31522D8B.6803@cs.tu-berlin.de> References: <31522D8B.6803@cs.tu-berlin.de> Mark Mueller wrote: > I am using the lisp2wish extension and everything's fine. > But after quite a while i get the following > message: > > Handshaking ... ok. > Listening: > couldn't create error file for command: Too many open files > couldn't create error file for command: Too many open files > Quitting ... Done > T > > > I guess you are using wish-wish (which I first called lisp2wish, but that name was already owned by another package, doing a similar thing). The problem stems from a bug (mea culpa) in CLOSE-PROCESS-STREAM. The following definition fixes the bug: (defun CLOSE-PROCESS-STREAM (stream) #-:KCL (when (typep stream 'two-way-stream) (close (two-way-stream-input-stream stream)) (close (two-way-stream-output-stream stream))) #-:KCL (close stream) #+:KCL (close-program-stream stream) #+:ALLEGRO (sys:os-wait)) (I did not realize, that closing a two-way-stream does NOT close its constituent streams.) There is a fixed version of with-wish in ftp://aida.intellektik.informatik.th-darmstadt.de/pub/plopp/with-wish.tar.gz --Matthias ------------------------------------------------------------------------------ Matthias Lindner Bayerisches Forschungszentrum fuer Wissensbasierte Systeme (FORWISS) Am Weichselgarten 7 91058 Erlangen-Tennenlohe TEL: +49 9131 691-196 FAX: +49 9131 691-185 NET: lindner@forwiss.uni-erlangen.de WWW: http://www.forwiss.uni-erlangen.de/~lindner/ ------------------------------------------------------------------------------ From marcus@sysc.pdx.edu Sat Mar 23 15:20:08 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18715; Sat, 23 Mar 96 15:20:08 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id FAA24416; Sat, 23 Mar 1996 05:58:55 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id FAA06218; Sat, 23 Mar 1996 05:58:51 -0800 Date: Sat, 23 Mar 1996 05:58:51 -0800 Message-Id: <199603231358.FAA06218@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: RE: lisp2wish and too many open files error? In-Reply-To: <9603231144.AA01102@bfws00.forwiss.uni-erlangen.de> References: <9603231144.AA01102@bfws00.forwiss.uni-erlangen.de> Reply-To: marcus@sysc.pdx.edu >>>>> "ML" == Matthias Lindner writes: ML>ftp://aida.intellektik.informatik.th-darmstadt.de/pub/plopp/with-wish.tar.gz And also: ftp://ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp/contrib/with-wish.tar.gz From dietz@ticco.ccipe.montp.inserm.fr Sat Mar 23 15:32:22 1996 Return-Path: Received: from ticco ([193.52.202.30]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18786; Sat, 23 Mar 96 15:32:22 +0100 From: dietz@ticco.ccipe.montp.inserm.fr Received: by ticco (5.x/SMI-SVR4) id AA28934; Sat, 23 Mar 1996 15:11:32 +0100 Date: Sat, 23 Mar 1996 15:11:32 +0100 Message-Id: <9603231411.AA28934@ticco> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: How to save CLOS objects? Hello, I just went through the mailing list archive, but I could not find any article related to the topic "How to save CLOS objects?". I think that "make-load-form-saving-slots" and user defined methods belonging to the generic function "make-load-form" are what I am looking for, but it seems to me that CLISP does not support them. Any suggestions, please? Thank you in advance. Andreas -- Andreas DIETZ CCIPE email : dietz@ticco.ccipe.montp.inserm.fr Rue de la Cardonille Tel : (33) 67 14 29 70 F-34094 Montpellier Cedex 5 Fax : (33) 67 54 24 32 FRANCE From nicswart@cis.co.za Sun Mar 24 14:24:36 1996 Return-Path: Received: from falcon.cis.co.za ([196.2.16.3]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19669; Sun, 24 Mar 96 14:24:36 +0100 Received: from annex-pta-10.cis.co.za (annex-pta-10.cis.co.za [196.2.16.210]) by falcon.cis.co.za (8.7.3/8.7.3) with SMTP id PAA13199 for ; Sun, 24 Mar 1996 15:00:21 +0200 (GMT+0200) Date: Sun, 24 Mar 1996 15:00:21 +0200 (GMT+0200) Message-Id: <199603241300.PAA13199@falcon.cis.co.za> X-Sender: nicswart@cis.co.za Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: nicswart@cis.co.za Subject: unsubscribe nicswart@cis.co.za X-Mailer: unsubscribe nicswart@cis.co.za From @watserv2.uwaterloo.ca:jwwillia@watarts.uwaterloo.ca Sun Mar 24 22:16:16 1996 Return-Path: <@watserv2.uwaterloo.ca:jwwillia@watarts.uwaterloo.ca> Received: from watserv2.uwaterloo.ca by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19800; Sun, 24 Mar 96 22:16:16 +0100 Received: from watarts.uwaterloo.ca ([129.97.42.10]) by watserv2.uwaterloo.ca with SMTP id <90161-3>; Sun, 24 Mar 1996 15:54:36 -0500 Received: by watarts.uwaterloo.ca; (5.65/1.1.8.2/13Jun95-0851AM) id AA09898; Sun, 24 Mar 1996 15:54:21 -0500 Date: Sun, 24 Mar 1996 15:54:20 -0500 From: John Williams To: clisp-list Cc: jwwillia@watarts.uwaterloo.ca Subject: ffi.txt <== where can I find it? In-Reply-To: <199603190155.RAA04160@sayre.sysc.pdx.edu> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Greetings -- Some time ago I read mention on this mailing list of a text file describing clisp's foreign function interface. I've been searching unsuccessfully for it -- could some kind soul email it to me or give me a pointer? Thanks kindly, -- John Williams http://watarts.uwaterloo.ca/~jwwillia/florgon.html From ilog!haible%ilog.fr Wed Mar 27 22:39:32 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23367; Wed, 27 Mar 96 22:39:32 +0100 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/92.02.29) via Fnet/EUnet-France id AA03824; Wed, 27 Mar 1996 22:17:34 +0100 (MET) Date: Wed, 27 Mar 96 22:14:33 +0100 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 27 Mar 96 22:14:33 +0100 From: haible@ilog.fr (Bruno Haible) Message-Id: <9603272114.AA04404@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA20342; Wed, 27 Mar 96 22:14:32 +0100 To: clisp-list Subject: Re: member-type error In-Reply-To: <3150467C.34E0@cs.tu-berlin.de> References: <3150467C.34E0@cs.tu-berlin.de> Mark Müller asks: > > (defstruct test > (trigger 'a :type (member 'a 'b)) > ) > > TEST > > (make-test) > > *** - THE: TRIGGER evaluated to the values (A), not of type (MEMBER 'A > 'B) > 1. Break> > > what am i'm doing wrong? The parts of the type specifier `(member ...)' are not evaluated. You have to write (member a b) instead of (member 'a 'b) Bruno Haible email: Software Engineer phone: +33-1-49083585 From marcus@sysc.pdx.edu Thu Mar 28 02:23:25 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23499; Thu, 28 Mar 96 02:23:25 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA27776; Wed, 27 Mar 1996 17:01:20 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA17662; Wed, 27 Mar 1996 17:01:14 -0800 Date: Wed, 27 Mar 1996 17:01:14 -0800 Message-Id: <199603280101.RAA17662@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: rs600 version of CLISP Reply-To: marcus@sysc.pdx.edu Roger Kehr has so kind as to contribute a new build of CLISP for AIX 3.2.5. This build includes readline, and also includes the `regexp' and `wildcard' modules. It is available for FTP at ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp/binaries/rs6000. [note this build is from newer sources than 1996-03-15 -- it should have a good version of LOOP.] From dietz@ticco.ccipe.montp.inserm.fr Thu Mar 28 20:44:24 1996 Return-Path: Received: from ticco (ticco.ccipe.montp.inserm.fr) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24346; Thu, 28 Mar 96 20:44:24 +0100 From: dietz@ticco.ccipe.montp.inserm.fr Received: by ticco (5.x/SMI-SVR4) id AA16806; Thu, 28 Mar 1996 20:22:40 +0100 Date: Thu, 28 Mar 1996 20:22:40 +0100 Message-Id: <9603281922.AA16806@ticco> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Transform result of print-unreadable-object into string or a symbol? Hello, printing a CLOS object results in something like that: #<#SET #345> This is the outcome of the function print-object (which calls print-unreadable-object). Is it possible to make a string or a symbol out of such a representation? Any hints would be greatly appreciated. Thank you in advance. Andreas -- Andreas DIETZ CCIPE email : dietz@ticco.ccipe.montp.inserm.fr Rue de la Cardonille Tel : (33) 67 14 29 70 F-34094 Montpellier Cedex 5 Fax : (33) 67 54 24 32 FRANCE From xjam@ginkgo.CS.Berkeley.EDU Wed Apr 3 03:59:34 1996 Return-Path: Received: from ginkgo.CS.Berkeley.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00269; Wed, 3 Apr 96 03:59:34 +0200 Received: from ginkgo.CS.Berkeley.EDU (localhost.Berkeley.EDU [127.0.0.1]) by ginkgo.CS.Berkeley.EDU (8.6.11/8.6.9) with ESMTP id RAA06791 for ; Tue, 2 Apr 1996 17:36:22 -0800 From: "Brian F. Dennis" Message-Id: <199604030136.RAA06791@ginkgo.CS.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Exit codes from subprocesses? Reply-To: xjam@cork.cs.berkeley.edu Date: Tue, 02 Apr 1996 21:36:18 -0400 Subprocesses executed under CLISP's control always return 0. I gather that the integer is actually meant to represent the exit code of the child process. Unfortunately, after looking at the source, the SIGCHLD handler is set to SIG_IGN which means children can freely exit before their parent does a wait. Thus, when the interpreter goes to do a wait, it detects an error and returns 0. I don't believe this is the intended behavior, but I'm not sure how to cleanly incorporate a fix. An example of the problem follows. > (execute "/usr/sww/bin/GNU/ls" "blah") /usr/sww/bin/GNU/ls-3.12: blah: No such file or directory 0 > --Bri From dxs@evolving.com Wed Apr 10 02:36:35 1996 Return-Path: Received: from citadel.evolving.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01277; Wed, 10 Apr 96 02:36:35 +0200 Received: from shakey (shakey.evolving.com [192.124.159.3]) by citadel.evolving.com (8.6.12/8.6.9) with SMTP id SAA08924 for ; Tue, 9 Apr 1996 18:12:23 -0600 Received: by shakey (AIX 3.2/UCB 5.64/4.03) id AA17272; Tue, 9 Apr 1996 18:12:22 -0600 Date: Tue, 9 Apr 1996 18:12:22 -0600 From: dxs@evolving.com (Dan Stanger) Message-Id: <9604100012.AA17272@shakey> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: upper and lower case code i have a program where a function is called with mixed case symbols for example (f 'And 'Holdall) clisp seems to upcase it. it works correctly if i enclose it in bars. (f '|And| '|Holdall|) is there a way to have clisp recognize the case of symbols? thanks, dan stanger From c93jonkv@und.ida.liu.se Wed Apr 10 11:38:39 1996 Return-Path: Received: from und.ida.liu.se (styrenix.ida.liu.se) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02446; Wed, 10 Apr 96 11:38:39 +0200 Received: from su2-3.ida.liu.se by und.ida.liu.se (5.65b/ida.minimaster-V1.0b6d5) id AA04643; Wed, 10 Apr 96 11:14:33 +0200 Sender: c93jonkv@und.ida.liu.se Message-Id: <316B7BF0.1008@und.ida.liu.se> Date: Wed, 10 Apr 1996 11:14:24 +0200 From: Jonas Kvist Organization: Dept. of Computer and Information Science, Linkoping University X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.4 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Re: upper and lower case code References: <9604100012.AA17272@shakey> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Dan Stanger wrote: > > i have a program where a function is called with mixed case symbols > for example > (f 'And 'Holdall) > clisp seems to upcase it. it works correctly if i enclose it in bars. > (f '|And| '|Holdall|) > is there a way to have clisp recognize the case of symbols? > thanks, > dan stanger That is because clisp is case-insensitive, and treats all its symbols as uppercase, *unless* they are specified to be treated as special characters, as lowercases, spaces etc. This is done by placing a \ in front of that character, or surrond a sequence of characters with | as you have done. You can recognize the case of characters with the predicates upper-case-p and lower-case-p. -- ------ <<<<<<< ((((((( OOOOOOOOOO ))))))) >>>>>>> ------ Jonas Kvist Bjornkarrsgatan 13A:13 Phone: +46 (0)13 17 74 28 582 51 Linkoping E-mail: c93jonkv@und.ida.liu.se Sweden URL: http://www-und.ida.liu.se/~c93jonkv/ From ilog!haible%ilog.fr Wed Apr 10 16:03:52 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02904; Wed, 10 Apr 96 16:03:52 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.04.04) via EUnet-France id AA00791; Wed, 10 Apr 1996 15:39:51 +0200 (MET) Date: Wed, 10 Apr 96 15:23:59 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 10 Apr 96 15:24:01 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9604101324.AA11879@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA05022; Wed, 10 Apr 96 15:23:58 +0200 To: clisp-list Subject: Re: upper and lower case code In-Reply-To: <9604100012.AA17272@shakey> References: <9604100012.AA17272@shakey> Dan Stanger writes: > for example > (f 'And 'Holdall) > clisp seems to upcase it. it works correctly if i enclose it in bars. > (f '|And| '|Holdall|) > is there a way to have clisp recognize the case of symbols? (setf (readtable-case *readtable*) :preserve) But beware: To get back to the old state, you have to write (SETF (READTABLE-CASE *READTABLE*) :UPCASE) Bruno From stoffel@cs.tu-berlin.de Wed Apr 10 16:16:57 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03007; Wed, 10 Apr 96 16:16:57 +0200 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id PAA12053 for ; Wed, 10 Apr 1996 15:35:36 +0200 Sender: stoffel@cs.tu-berlin.de Message-Id: <316BB920.5DA0@cs.tu-berlin.de> Date: Wed, 10 Apr 1996 15:35:28 +0200 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.01 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Physical Copy of a structure? References: <9603231144.AA01102@bfws00.forwiss.uni-erlangen.de> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit How can i make a physical copy of a structure? setq doesn't work: > (defstruct test (name 'unnamed)) TEST > (setq one (make-test)) #S(TEST :NAME UNNAMED) > (setq other one) #S(TEST :NAME UNNAMED) > (setf (test-name other) 'other) OTHER > other #S(TEST :NAME OTHER) > one #S(TEST :NAME OTHER) > one and other seem to point to the same structure. Is there a simple operation without making a new structure and fill all slots from other seperately with the slot-contents from one (in this example it isn't much, but my real structures are much bigger ...) thanks in Advance, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From gat@aig.jpl.nasa.gov Wed Apr 10 19:23:10 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03270; Wed, 10 Apr 96 19:23:10 +0200 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA29675; Wed, 10 Apr 96 09:15:26 PDT Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id JAA18610; Wed, 10 Apr 1996 09:15:23 -0700 (PDT) Date: Wed, 10 Apr 1996 09:15:23 -0700 (PDT) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199604101615.JAA18610@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: Physical Copy of a structure? X-Sun-Charset: US-ASCII > How can i make a physical copy of a structure? > Use COPY-structure-name. In your case: (setq other (copy-test one)) Look at section 19.5 in CLTL2 for more info. E. From hoehle@zeus.gmd.de Thu Apr 11 20:14:48 1996 Return-Path: Received: from zeus.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04352; Thu, 11 Apr 96 20:14:48 +0200 Received: from avanti.gmd.de by zeus.gmd.de with SMTP id AA20352 (5.67b8/IDA-1.5 for ); Thu, 11 Apr 1996 19:50:36 +0200 Received: by avanti.gmd.de (5.x/SMI-SVR4) id AA15835; Thu, 11 Apr 1996 19:50:36 +0200 Date: Thu, 11 Apr 1996 19:50:36 +0200 Message-Id: <9604111750.AA15835@avanti.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: (load-time-value *package*) not correctly handled in interpreted mode Content-Type: text Hi, Somehow, the load-time-value form seems to be evaluated out of the binding of *package* that should occur when loading a file in interpreted mode. I found out that CMULisp and CLISP behave the same w.r.t. load-time-value and even found (CLtL2 p. 681) text that may explain the observed behaviour, but I nevertheless feel uncomfortable about this incompatibility between interpreted and compiled mode. After all, CLtL2 p.657 states that load rebinds *package*. load-time-value is processed inside load so it should use that binding environment. --------load-time-value.lisp (in-package "SYSTEM") (format t "~&Current package is ~A~%" (package-name *package*)) (defun foobar (s) (declare (type string s)) (let ((*package* (load-time-value *package*))) (format t "~&Package is ~A~%" (package-name *package*)) (values (read-from-string s) *package*))) -------- > (load "load-time-value.lisp") ;; Loading file load-time-value.lisp ... Current package is SYSTEM ;; Loading of file load-time-value.lisp is finished. T > (sys::foobar "foo") Package is USER FOO ; # > (load "load-time-value.fas") ;; Loading file load-time-value.fas ... Current package is SYSTEM ;; Loading of file load-time-value.fas is finished. T > (sys::foobar "foo") Package is SYSTEM SYSTEM::FOO ; # > (lisp-implementation-version) "1994-10-26 (October 1994)" not very new I know, but as nobody complained, I have no reason to believe that this has been changed since then. What do you think about this situation? Joerg Hoehle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From ilog!haible%ilog.fr Fri Apr 12 21:35:56 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05635; Fri, 12 Apr 96 21:35:56 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.04.04) via EUnet-France id AA09965; Fri, 12 Apr 1996 21:11:33 +0200 (MET) Date: Fri, 12 Apr 96 20:45:25 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Fri, 12 Apr 96 20:45:25 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9604121845.AA03697@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA13969; Fri, 12 Apr 96 20:45:24 +0200 To: clisp-list Subject: Re: (load-time-value *package*) not correctly handled in interpreted mode In-Reply-To: <9604111750.AA15835@avanti.gmd.de> References: <9604111750.AA15835@avanti.gmd.de> Joerg Hoehle writes: > (let ((*package* (load-time-value *package*))) ...) > What do you think about this situation? The moment of evaluation of the form within LOAD-TIME-VALUE is not precisely specified. CLtL2 and dpANS are explicitly vague about this. You should use one of the alternatives (let ((*package* '#,*package*)) ...) or (defparameter current-package-at-load-time *package*) (let ((*package* current-package-at-load-time)) ...) Both work in CLISP. Since #, has been removed from ANSI CL, the second alternative is probably the most portable one. Bruno From stoffel@cs.tu-berlin.de Tue Apr 16 16:13:25 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02697; Tue, 16 Apr 96 16:13:25 +0200 Received: from hombre.cs.tu-berlin.de (stoffel@hombre.cs.tu-berlin.de [130.149.17.6]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with ESMTP id PAA29912 for ; Tue, 16 Apr 1996 15:48:22 +0200 Received: (from stoffel@localhost) by hombre.cs.tu-berlin.de (8.7.2/8.7.2) id PAA04991; Tue, 16 Apr 1996 15:48:15 +0200 (MET DST) Date: Tue, 16 Apr 1996 15:48:14 +0200 (MET DST) From: Mark Mueller To: clisp-list Subject: C or C++ interface in clisp? In-Reply-To: <9604121845.AA03697@ilog.ilog.fr> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=ISO-8859-1 Content-Transfer-Encoding: QUOTED-PRINTABLE (How) can i call C or C++ functions in Clisp code? Mark Mark M=FCller * Institut f=FCr Angewandte Informatik * FG Methoden der KI= =20 Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 =20 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de =20 WWW: http://www.cs.tu-berlin.de/~pandur/ =20 From marcus@sysc.pdx.edu Thu Apr 18 08:18:40 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05743; Thu, 18 Apr 96 08:18:40 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id WAA07696; Wed, 17 Apr 1996 22:53:12 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id WAA27941; Wed, 17 Apr 1996 22:12:07 -0700 Date: Wed, 17 Apr 1996 22:12:07 -0700 Message-Id: <199604180512.WAA27941@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: clisp-1996-04-17 Reply-To: marcus@sysc.pdx.edu A new release of CLISP is available for FTP at ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp. There are no significant new features in this release. All changes were either for bugs or for portability. Binaries have been prepared for: Mips / Irix 5.3 m68k / NEXTSTEP 3.2 Sparc / SunOS 4.1.3, Solaris 2.4 x86 / DOS, Linux a.out & ELF 17 April 1996 ================ User visible changes -------------------- * EXECUTE now returns the exit status of the subprocess. Thanks to Bruno Haible and Brian F. Dennis . * Fixed a bug in the compiler: MULTIPLE-VALUE-BIND failed to work when given non-function forms. Thanks to Paul Graham . * TRANSLATE-LOGICAL-PATHNAME now accepts logical-pathname namestrings. Thanks to Don Cohen * Logical-pathname translation was broken under DOS. Thanks to Don Cohen . * Cross compiler was non-functional. Thanks to Don Cohen . * Fix for bug introduced in last loop macro change. Thanks to Ken Olum for reporting this right away. Other modifications ------------------- * Upgraded to autoconf 2.9. * Upgraded to gettext-0.10.12. Portability ----------- * cygwin32 support updated for gnu-win32-b14. * SINIX support updated. Thanks to Michael Becker . From xjam@ginkgo.CS.Berkeley.EDU Sat Apr 20 00:46:48 1996 Return-Path: Received: from ginkgo.CS.Berkeley.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08239; Sat, 20 Apr 96 00:46:48 +0200 Received: from ginkgo.CS.Berkeley.EDU (localhost.Berkeley.EDU [127.0.0.1]) by ginkgo.CS.Berkeley.EDU (8.6.11/8.6.9) with ESMTP id PAA15584 for ; Fri, 19 Apr 1996 15:21:04 -0700 From: "Brian F. Dennis" Message-Id: <199604192221.PAA15584@ginkgo.CS.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: NLSPATH Settings? Reply-To: xjam@cork.cs.berkeley.edu Date: Fri, 19 Apr 1996 18:20:59 -0400 When using the shell oriented functions in CLISP I always get messages about not being able to set the locale correctly when I spawn a subshell. I have the locale files that CLISP installs in a different directory than /usr/lib. Is there a way to set up my environment such that the catalog files get correctly located? --Bri From marcus@sysc.pdx.edu Sat Apr 20 01:23:09 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08389; Sat, 20 Apr 96 01:23:09 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id PAA13942; Fri, 19 Apr 1996 15:57:28 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id PAA15866; Fri, 19 Apr 1996 15:57:26 -0700 Date: Fri, 19 Apr 1996 15:57:26 -0700 Message-Id: <199604192257.PAA15866@sayre.sysc.pdx.edu> From: Marcus Daniels To: xjam@cs.berkeley.edu Cc: clisp-list Subject: NLSPATH Settings? In-Reply-To: <199604192221.PAA15584@ginkgo.CS.Berkeley.EDU> References: <199604192221.PAA15584@ginkgo.CS.Berkeley.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "Brian" == Brian F Dennis writes: Brian> When using the shell oriented functions in CLISP I always get Brian> messages about not being able to set the locale correctly when Brian> I spawn a subshell. I have the locale files that CLISP installs Brian> in a different directory than /usr/lib. Is there a way to set Brian> up my environment such that the catalog files get correctly Brian> located? Here's a patch to try. I suspect the problem is that your system is being provincial and doesn't know what to do when it sees the selected language set to English. Index: spvw.d =================================================================== RCS file: /u/marcus/cvs/clisp/src/spvw.d,v retrieving revision 1.26 diff -c -r1.26 spvw.d *** spvw.d 1996/04/04 03:22:01 1.26 --- spvw.d 1996/04/19 22:47:28 *************** *** 9833,9839 **** setlocale (LC_MESSAGES,"de"); } elif (language == language_english) ! { setenv_ ("LANG","en"); setlocale (LC_MESSAGES,"en"); } elif (language == language_francais) --- 9833,9839 ---- setlocale (LC_MESSAGES,"de"); } elif (language == language_english) ! { # setenv_ ("LANG","en"); setlocale (LC_MESSAGES,"en"); } elif (language == language_francais) *************** *** 9841,9847 **** setlocale (LC_MESSAGES,"fr"); } else ! { setenv_ ("LANG","en"); setlocale (LC_MESSAGES, "en"); } if (argv_localedir == NULL) --- 9841,9847 ---- setlocale (LC_MESSAGES,"fr"); } else ! { # setenv_ ("LANG","en"); setlocale (LC_MESSAGES, "en"); } if (argv_localedir == NULL) From dxs@evolving.com Wed Apr 24 20:01:16 1996 Return-Path: Received: from citadel.evolving.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03958; Wed, 24 Apr 96 20:01:16 +0200 Received: from shakey (shakey.evolving.com [192.124.159.3]) by citadel.evolving.com (8.6.12/8.6.9) with SMTP id LAA29638 for ; Wed, 24 Apr 1996 11:26:22 -0600 Received: by shakey (AIX 3.2/UCB 5.64/4.03) id AA19470; Wed, 24 Apr 1996 11:26:22 -0600 Date: Wed, 24 Apr 1996 11:26:22 -0600 From: dxs@evolving.com (Dan Stanger) Message-Id: <9604241726.AA19470@shakey> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: machine code generation for clisp is there any work being done on a machine code compiler or a threaded code compiler for clisp? dan From marcus@sysc.pdx.edu Thu Apr 25 03:15:18 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04284; Thu, 25 Apr 96 03:15:18 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA00786; Wed, 24 Apr 1996 17:48:45 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA13046; Wed, 24 Apr 1996 17:48:41 -0700 Date: Wed, 24 Apr 1996 17:48:41 -0700 Message-Id: <199604250048.RAA13046@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: machine code generation for clisp In-Reply-To: <9604241726.AA19470@shakey> References: <9604241726.AA19470@shakey> Reply-To: marcus@sysc.pdx.edu >>>>> "Dan" == Dan Stanger writes: Dan> is there any work being done on a machine code compiler or a Dan> threaded code compiler for clisp? For a specific application I had, I investigated the possibility of using vcode for this (see http://www.pdos.lcs.mit.edu/~engler). I decided not to pursue it immediately because vcode lacked a x86 backend. If you are interested in working on this sort of thing, email me so that we may coordinate on our ideas and work. From stoffel@cs.tu-berlin.de Fri Apr 26 18:03:50 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06196; Fri, 26 Apr 96 18:03:50 +0200 Received: from bruckner (stoffel@bruckner.cs.tu-berlin.de [130.149.29.48]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id RAA12235 for ; Fri, 26 Apr 1996 17:34:22 +0200 Sender: stoffel@cs.tu-berlin.de Message-Id: <3180ECF9.559A@cs.tu-berlin.de> Date: Fri, 26 Apr 1996 17:34:17 +0200 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.01 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Where do i find clisp-link References: <199604101615.JAA18610@binkley.jpl.nasa.gov> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit To use the module facility i schould use the command clisp-link. Where do i find it. I havn't found a hint in the impnotes or else. Greetings, Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From roussel@physics.mcgill.ca Sat Apr 27 05:00:15 1996 Return-Path: Received: from hep.Physics.McGill.CA by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06609; Sat, 27 Apr 96 05:00:15 +0200 Received: from string ([198.168.189.42]) by hep.Physics.McGill.CA with SMTP; Fri, 26 Apr 1996 22:33:19 -0400 (EDT) Message-Id: <1.5.4.32.19960427023239.002eb2ec@r2d2.physics.mcgill.ca> X-Sender: roussel@r2d2.physics.mcgill.ca X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Fri, 26 Apr 1996 22:32:39 -0400 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Harold Roussel Subject: Clisp 96-04-17 for NT, how do you make it work? Hello, I just got the latest version of Clisp for win32, in the file win32_tar.gz, which I installed on my system. In the main directory there is a file called lisp.run. I tried to make it running from a bash shell (Cygnus tools b14) with the command lisp.run -M base/lispinit.mem but I get the following error, K:\clisp>bash bash$ lisp.run -M base/lispinit.mem *** - UNIX library error 2 (ENOENT): No such file or directory I also tried from the command line (no bash shell), but I got the same error. So, did anybody get Clisp to run under NT? Harold Roussel From marcus@sysc.pdx.edu Sat Apr 27 06:14:56 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06769; Sat, 27 Apr 96 06:14:56 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id UAA08234; Fri, 26 Apr 1996 20:48:01 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id UAA28389; Fri, 26 Apr 1996 20:47:58 -0700 Date: Fri, 26 Apr 1996 20:47:58 -0700 Message-Id: <199604270347.UAA28389@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Clisp 96-04-17 for NT, how do you make it work? In-Reply-To: <1.5.4.32.19960427023239.002eb2ec@r2d2.physics.mcgill.ca> References: <1.5.4.32.19960427023239.002eb2ec@r2d2.physics.mcgill.ca> Reply-To: marcus@sysc.pdx.edu >>>>> "HR" == Harold Roussel writes: HR> I just got the latest version of Clisp for win32, in the HR> file win32_tar.gz, which I installed on my system. In the main HR> directory there is a file called lisp.run. I tried to make it HR> running from a bash shell (Cygnus tools b14) with the command HR> lisp.run -M base/lispinit.mem but I get the following error, HR> K:\clisp>bash bash$ lisp.run -M base/lispinit.mem HR> *** - UNIX library error 2 (ENOENT): No such file or directory It is probably that you don't have a HOME variable. See if this: $ export HOME=/ $ ./lisp.run -M base/lispinit.mem works. From marcus@sysc.pdx.edu Sat Apr 27 06:53:36 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06863; Sat, 27 Apr 96 06:53:36 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id VAA08328; Fri, 26 Apr 1996 21:26:41 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id VAA28520; Fri, 26 Apr 1996 21:26:36 -0700 Date: Fri, 26 Apr 1996 21:26:36 -0700 Message-Id: <199604270426.VAA28520@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: DEC Alpha binary update Reply-To: marcus@sysc.pdx.edu Thanks to Ken Olum, the binary distribution for the Dec Alpha has been updated to version 1996-04-17. ma2s2.mathematik.uni-karlsruhe.de /pub/lisp/clisp/binaries/decalpha-osf/clisp.tar.z From pg@das.harvard.edu Sun Apr 28 03:16:22 1996 Return-Path: Received: from hershey.harvard.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07268; Sun, 28 Apr 96 03:16:22 +0200 Date: Sat, 27 Apr 96 20:49:17 EDT From: pg@das.harvard.edu Message-Id: <9604280049.AA21323@hershey.harvard.edu> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: ambuguity I'm not sure the following is a bug, because there may be some ambiguity in the CL spec about whether x is a new variable each time. On the other hand, I can't see any disadvantage of assuming that interpretation. Thanks, --pg (funcall (cadr (let ((acc nil)) (dolist (x '(1 2)) (push #'(lambda () x) acc)) acc))) 2 From roussel@physics.mcgill.ca Sun Apr 28 05:56:48 1996 Return-Path: Received: from hep.Physics.McGill.CA by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00328; Sun, 28 Apr 96 05:56:48 +0200 Received: from string ([198.168.189.89]) by hep.Physics.McGill.CA with SMTP; Sat, 27 Apr 1996 23:29:36 -0400 (EDT) Message-Id: <1.5.4.32.19960428032855.002d4b10@r2d2.physics.mcgill.ca> X-Sender: roussel@r2d2.physics.mcgill.ca X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Sat, 27 Apr 1996 23:28:55 -0400 To: clisp-list From: Harold Roussel Subject: Re: Clisp 96-04-17 for NT, how do you make it work? At 06:18 96-04-27 +0200, you wrote: >It is probably that you don't have a HOME variable. See if this: > > $ export HOME=/ > $ ./lisp.run -M base/lispinit.mem > >works. Thanks! Now it works great! I'm having another problem however. I downloaded the punimax symbolic math system, the clisp version, just to give it a try. The compile was mostly fine, except for a few warnings, but when I tried to run it, with "lisp.run -M punimax.mem", it loaded the file for a few seconds and then went back to the command prompt without any error messages. Is there any way to get some kind of debug information from clisp? And has anybody successfully compiled punimax on the latest version of clisp? Harold Roussel From kdo@ctpa01.mit.edu Sun Apr 28 17:34:46 1996 Return-Path: Received: from ctpa01.mit.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00259; Sun, 28 Apr 96 17:34:46 +0200 Received: by ctpa01.mit.edu; id AA11124; Sun, 28 Apr 1996 11:07:48 -0400 Date: Sun, 28 Apr 1996 11:07:48 -0400 Message-Id: <9604281507.AA11124@ctpa01.mit.edu> From: kdo@mit.edu (Ken Olum) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: <9604280049.AA21323@hershey.harvard.edu> (pg@das.harvard.edu) Subject: Re: ambuguity I think this is working correctly. For exmaple, you would like (let ((x 1)) (let ((f #'(lambda () x))) (setq x 2) (funcall f))) to return 2 and not 1. The inside function should have access to the same slot as the outside one. If you want a different value to be closed over each time then say (dolist (x '(1 2)) (push (let ((y x)) #'(lambda () y)) acc)) Ken From pg@das.harvard.edu Sun Apr 28 18:14:34 1996 Return-Path: Received: from hershey.harvard.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00335; Sun, 28 Apr 96 18:14:34 +0200 Date: Sun, 28 Apr 96 11:47:38 EDT From: pg@das.harvard.edu Message-Id: <9604281547.AA22037@hershey.harvard.edu> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: dolist I agree in that this code (let ((x 1)) (let ((f #'(lambda () x))) (setq x 2) (funcall f))) should return 2. The question is, should dolist be understood as creating one variable (as it would if it expanded into a tagbody with a setq) or a different variable on each iteration (as it would if it expanded into a recursive function). I believe that the standard is vague here, and was suggesting that if we have to choose one interpretation, the latter would be the better one, as in Scheme. --pg From smh@Franz.COM Mon Apr 29 08:58:07 1996 Received: from sparky.Franz.COM ([192.132.95.33]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00657; Mon, 29 Apr 96 08:58:07 +0200 Return-Path: Received: from vapor.Franz.COM by sparky.Franz.COM (4.1/FI-2.0) id AA18178; Sun, 28 Apr 96 10:07:01 PDT Received: from localhost by vapor.Franz.COM (4.1/FI-2.0) id AA08049; Sun, 28 Apr 96 10:06:59 PDT Message-Id: <9604281706.AA08049@vapor.Franz.COM> To: clisp-list Subject: Re: dolist In-Reply-To: Your message of "Sun, 28 Apr 1996 18:16:25 +0200." <9604281547.AA22037@hershey.harvard.edu> Date: Sun, 28 Apr 1996 10:06:59 -0700 From: Steve Haflich From: pg@das.harvard.edu I agree in that this code (let ((x 1)) (let ((f #'(lambda () x))) (setq x 2) (funcall f))) should return 2. The question is, should dolist be understood as creating one variable (as it would if it expanded into a tagbody with a setq) or a different variable on each iteration (as it would if it expanded into a recursive function). I believe that the standard is vague here... If by "the standard" you meand the ANSI Standard for CL, then it is not at all vague. The dictionary entry for DOLIST in Chapter 6 says: It is implementation-dependent whether DOLIST establishes a new binding of VAR on each iteration or whether it establishes a binding for VAR once at the beginning and then assigns it on any subsequent iterations. This is hardly vague. Rather, portable code is prohibited from depending on this detail of behavior. Implementations may vary, and even a single implementation is allowed to handle it in different ways in differeent circumstances. From marcus@sysc.pdx.edu Mon Apr 29 09:45:44 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00803; Mon, 29 Apr 96 09:45:44 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA13384; Sun, 28 Apr 1996 17:00:34 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA12837; Sun, 28 Apr 1996 17:00:32 -0700 Date: Sun, 28 Apr 1996 17:00:32 -0700 Message-Id: <199604290000.RAA12837@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: dolist In-Reply-To: <9604281547.AA22037@hershey.harvard.edu> References: <9604281547.AA22037@hershey.harvard.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Paul" == pg writes: Paul> The question is, should dolist be understood Paul> as creating one variable (as it would if it expanded into a Paul> tagbody with a setq) or a different variable on each iteration Paul> (as it would if it expanded into a recursive function). I Paul> believe that the standard is vague here, and was suggesting that Paul> if we have to choose one interpretation, the latter would be the Paul> better one, as in Scheme. There isn't really a performance penalty to having an extra LET. CMU Lisp adds the extra LET and GCL does not (like CLISP currently does). On the other hand, perhaps it is useful to have the option of rebinding it if you want to, as Ken Olum points out. To me, the CL spec does seem to lean toward an extra binding by saying "bound" instead of "assigned". Opinions and/or slaps-in-the-head ? Here is what the change would look like: Index: macros1.lsp =================================================================== RCS file: /u/marcus/cvs/clisp/src/macros1.lsp,v retrieving revision 1.1.1.1 diff -c -r1.1.1.1 macros1.lsp *** macros1.lsp 1995/09/10 10:54:34 1.1.1.1 --- macros1.lsp 1996/04/28 23:47:04 *************** *** 232,239 **** (multiple-value-bind (body-rest declarations) (sys::parse-body body nil env) (let ((g (gensym))) ! `(DO* ((,g ,listform (CDR ,g)) ! (,var NIL)) ((ENDP ,g) ,(if (constantp resultform) ; Ist resultform konstant, so ist es /= var. Daher braucht var --- 232,238 ---- (multiple-value-bind (body-rest declarations) (sys::parse-body body nil env) (let ((g (gensym))) ! `(DO* ((,g ,listform (CDR ,g))) ((ENDP ,g) ,(if (constantp resultform) ; Ist resultform konstant, so ist es /= var. Daher braucht var *************** *** 246,253 **** ) ) (DECLARE (LIST ,g) ,@declarations) ! (SETQ ,var (CAR ,g)) ! ,@body-rest ) ) ) ) --- 245,253 ---- ) ) (DECLARE (LIST ,g) ,@declarations) ! (LET ((,var (CAR ,g))) ! ,@body-rest ! ) ) ) ) ) In isolation: (defmacro dolist ((var listform &optional resultform) &body body &environment env) (multiple-value-bind (body-rest declarations) (sys::parse-body body nil env) (let ((g (gensym))) `(DO* ((,g ,listform (CDR ,g))) ((ENDP ,g) ,(if (constantp resultform) ; Ist resultform konstant, so ist es /= var. Daher braucht var ; während Auswertung von resultform nicht an NIL gebunden zu sein: `,resultform `(LET ((,var NIL)) (DECLARE (IGNORABLE ,var) ,@declarations) ,resultform ) ) ) (DECLARE (LIST ,g) ,@declarations) (LET ((,var (CAR ,g))) ,@body-rest ) ) ) ) ) From marcus@sysc.pdx.edu Mon Apr 29 11:17:03 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00980; Mon, 29 Apr 96 11:17:03 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id BAA14415; Mon, 29 Apr 1996 01:49:55 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id BAA13545; Mon, 29 Apr 1996 01:49:50 -0700 Date: Mon, 29 Apr 1996 01:49:50 -0700 Message-Id: <199604290849.BAA13545@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: dolist In-Reply-To: <9604281706.AA08049@vapor.Franz.COM> References: <9604281706.AA08049@vapor.Franz.COM> Reply-To: marcus@sysc.pdx.edu >>>>> "Steve" == Steve Haflich writes: Steve> It is implementation-dependent whether DOLIST establishes a Steve> new binding of VAR on each iteration or whether it establishes Steve> a binding for VAR once at the beginning and then assigns it on Steve> any subsequent iterations. Well kick me .... (uufff) thanks! In my printed copy of an older dpANS (X3J13/92-103 Draft 12.24) this wording was absent (but I see now, that in my online info pages it is there). From marcus@sysc.pdx.edu Mon Apr 29 12:45:05 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01295; Mon, 29 Apr 96 12:45:05 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id DAA14569; Mon, 29 Apr 1996 03:12:49 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id DAA13658; Mon, 29 Apr 1996 03:12:44 -0700 Date: Mon, 29 Apr 1996 03:12:44 -0700 Message-Id: <199604291012.DAA13658@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: Clisp 96-04-17 for NT, how do you make it work? In-Reply-To: <1.5.4.32.19960428032855.002d4b10@r2d2.physics.mcgill.ca> References: <1.5.4.32.19960428032855.002d4b10@r2d2.physics.mcgill.ca> Reply-To: marcus@sysc.pdx.edu >>>>> "HR" == Harold Roussel writes: HR> I downloaded the punimax symbolic math system, the clisp version, HR> just to give it a try. The compile was mostly fine, except for a HR> few warnings, but when I tried to run it, with "lisp.run -M HR> punimax.mem", it loaded the file for a few seconds and then went HR> back to the command prompt without any error messages. I tried this and see the same problem. It looks like it is overflowing the C stack, but it isn't clear why. HR> Is there HR> any way to get some kind of debug information from clisp? And has HR> anybody successfully compiled punimax on the latest version of HR> clisp? I don't happen to have a version of CLISP compiled for NT with debugging info. As of 1996-04-17 and cygwin b14, it should now be easy to build one yourself. CLISP using the cygwin toolchain more-or-less configures like Unix GNU stuff now. The two main hassles are 1) you need to be careful about symlinks -- executables and directories won't follow, so you need to build in src (the default), and 2) be careful to setup your editor to stick to Unix-like no-CR newline conventions. Also, if you try again to build it, It would probably be wise to push `UNIX' on the *features* list and redump your lispinit.mem, so as to reduce doubt about punimax portability problems. To be perfectly frank, if it seems like I'm not enthusiastic about tracking down bugs in the NT version of CLISP, it is mainly because I don't have good access to an NT machine and (less so) because the cygwin DLL continues to be in such rapid flux that I just end up learning the hard way about known bugs. My observation is that the cygwin toolkit is steadily improving with each snapshot of cygwin, so I expect that CLISP on NT/win95 will too. If you are looking for a stable platform to run punimax on, I'd suggest Linux (I just tested punimax on a Debian system). Sorry I can't do more right now. BTW, there is a set of ifdefs in the CLISP code for a non-unixy non-cygwin-DLL configuration. Dedicated NT users would probably prefer to use this configuration. From kdo@ctpa01.mit.edu Mon Apr 29 18:02:03 1996 Return-Path: Received: from ctpa01.mit.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02106; Mon, 29 Apr 96 18:02:03 +0200 Received: by ctpa01.mit.edu; id AA16508; Mon, 29 Apr 1996 11:34:19 -0400 Date: Mon, 29 Apr 1996 11:34:19 -0400 Message-Id: <9604291534.AA16508@ctpa01.mit.edu> From: kdo@mit.edu (Ken Olum) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: <199604290000.RAA12837@sayre.sysc.pdx.edu> (message from Marcus Daniels on Mon, 29 Apr 96 09:51:00 +0200) Subject: Re: dolist Does the ANSI spec say anything about similar issues in DO and LOOP? I would expect my code not to break if I changed between DOLIST, DOTIMES, DO and LOOP, so I think they should do the same style of setting versus rebinding. (Is the ANSI spec on the web anywhere that I could have looked for myself?) Ken From marcus@sysc.pdx.edu Tue Apr 30 05:20:59 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02612; Tue, 30 Apr 96 05:20:59 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id TAA16994; Mon, 29 Apr 1996 19:53:48 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id TAA16353; Mon, 29 Apr 1996 19:53:44 -0700 Date: Mon, 29 Apr 1996 19:53:44 -0700 Message-Id: <199604300253.TAA16353@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: dolist In-Reply-To: <9604291534.AA16508@ctpa01.mit.edu> References: <9604291534.AA16508@ctpa01.mit.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Ken" == Ken Olum writes: Ken> Is the ANSI spec on the web anywhere that I could have looked for myself? I've got a copy of info pages for Emacs: http://sayre.sysc.pdx.edu:8001/clisp/dpANS-info.tar.gz I got it from ftp.ma.utexas.edu:/pub/gcl, and did some renaming. TeX and DVI is at /parcftp.xerox.com:/pub/cl and ma2s2.mathematik.uni-karlsruhe.de:/pub/lisp/dpANS-1994. If there is anything newer (without spending $300 US) I know I'd love to hear about it. From efrias@cp1.dcs.cie.uva.es Tue Apr 30 13:26:14 1996 Return-Path: Received: from cp1.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03307; Tue, 30 Apr 96 13:26:14 +0200 Message-Id: <9604301126.AA03307@ma2s2.mathematik.uni-karlsruhe.de> Received: by cp1.dcs.cie.uva.es (16.6/16.2) id AA03808; Tue, 30 Apr 96 13:01:30 +0200 Date: Tue, 30 Apr 96 13:01:30 +0200 From: 46775835 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de I am using Garnet with CLISP, when I compile it everithig goes Ok., (first of all have compiled CLX). I start CLISP with garnet.mem, and I do: (create-instance 'MYWINDOW inter:interactor-window) # ... .. Everithig is Ok, but then: (opal:update MYWINDOW) UNIX error 9 (EBADF): Bad File number And the thing is that I am working with Linux. I really don't know what to do. Does Garnet work only with certain versions of CLISP? Is the problem related to the X-windows system? All suggestions are welcome. Enrique Frias Martinez Undergraduate Student Computer Science Universidad de Valladolid e-mail: efrias@cp1.dcs.cie.uva.es From marcus@sysc.pdx.edu Tue Apr 30 13:36:44 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03388; Tue, 30 Apr 96 13:36:44 +0200 Received: from orr.sysc.pdx.edu (marcus@orr.sysc.pdx.edu [131.252.30.59]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with ESMTP id EAA18162; Tue, 30 Apr 1996 04:09:06 -0700 (PDT) for Received: (marcus@localhost) by orr.sysc.pdx.edu (8.7.3/CATastrophe-9/18/94-C) id EAA29190; Tue, 30 Apr 1996 04:09:05 -0700 (PDT) Date: Tue, 30 Apr 1996 04:09:05 -0700 (PDT) Message-Id: <199604301109.EAA29190@orr.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Garnet/CLISP/Linux In-Reply-To: <9604301126.AA03307@ma2s2.mathematik.uni-karlsruhe.de> References: <9604301126.AA03307@ma2s2.mathematik.uni-karlsruhe.de> Reply-To: marcus@sysc.pdx.edu >>>>> "Enrique" == 46775835 writes: Enrique> (opal:update MYWINDOW) Enrique> UNIX error 9 (EBADF): Bad File number Please report the version of CLISP you are using with any bug report. When it comes to Linux, it can be helpful to know the libc and kernel version you are using too. From efrias@cp1.dcs.cie.uva.es Tue Apr 30 15:35:53 1996 Return-Path: Received: from cp1.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03571; Tue, 30 Apr 96 15:35:53 +0200 Message-Id: <9604301335.AA03571@ma2s2.mathematik.uni-karlsruhe.de> Received: by cp1.dcs.cie.uva.es (16.6/16.2) id AA05767; Tue, 30 Apr 96 15:11:24 +0200 Date: Tue, 30 Apr 96 15:11:24 +0200 From: 46775835 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de I am using Garnet with CLISP, when I compile it everithig goes Ok., (first of all have compiled CLX). I start CLISP with garnet.mem, and I do: (create-instance 'MYWINDOW inter:interactor-window) # ... .. Everithig is Ok, but then: (opal:update MYWINDOW) UNIX error 9 (EBADF): Bad File number And the thing is that I am working with Linux. I really don't know what to do. Does Garnet work only with certain versions of CLISP? Is the problem related to the X-windows system? Sorry, I'll give you now, all the versions: CLISP 19-June-1994 libc libc.so.4.7.2 Linux 1.2.13 gcc 2.7.0 Garnet 2.1 The manual I have for garnet is for Garnet version 3.0 (the example given above is from page 47 of the Garnet reference manual for Version 3.0) Tank you, All suggestions are welcome. Enrique Frias Martinez Undergraduate Student Computer Science Universidad de Valladolid e-mail: efrias@cp1.dcs.cie.uva.es From efrias@cp1.dcs.cie.uva.es Tue Apr 30 15:36:34 1996 Return-Path: Received: from cp1.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03599; Tue, 30 Apr 96 15:36:34 +0200 Message-Id: <9604301336.AA03599@ma2s2.mathematik.uni-karlsruhe.de> Received: by cp1.dcs.cie.uva.es (16.6/16.2) id AA05771; Tue, 30 Apr 96 15:12:05 +0200 Date: Tue, 30 Apr 96 15:12:05 +0200 From: 46775835 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de I am using Garnet with CLISP, when I compile it everithig goes Ok., (first of all have compiled CLX). I start CLISP with garnet.mem, and I do: (create-instance 'MYWINDOW inter:interactor-window) # ... .. Everithig is Ok, but then: (opal:update MYWINDOW) UNIX error 9 (EBADF): Bad File number And the thing is that I am working with Linux. I really don't know what to do. Does Garnet work only with certain versions of CLISP? Is the problem related to the X-windows system? Sorry, I'll give you now, all the versions: CLISP 19-June-1994 libc libc.so.4.7.2 Linux 1.2.13 gcc 2.7.0 Garnet 2.1 The manual I have for garnet is for Garnet version 3.0 (the example given above is from page 47 of the Garnet reference manual for Version 3.0) Tank you, All suggestions are welcome. Enrique Frias Martinez Undergraduate Student Computer Science Universidad de Valladolid e-mail: efrias@cp1.dcs.cie.uva.es From flogger_d@usa.pipeline.com Thu May 2 02:40:00 1996 Return-Path: Received: from mailout1.h1.usa.pipeline.com (data1.h1.usa.pipeline.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05223; Thu, 2 May 96 02:40:00 +0200 Received: from pipe10.h1.usa.pipeline.com by mailout1.h1.usa.pipeline.com (8.6.9/2.1-PSINet/Pipeline) id AAA20195; Thu, 2 May 1996 00:12:14 GMT Received: by pipe10.h1.usa.pipeline.com (8.6.9/SMI-5.4-PSI) id UAA01742; Wed, 1 May 1996 20:07:10 -0400 Date: Wed, 1 May 1996 20:07:10 -0400 Message-Id: <199605020007.UAA01742@pipe10.h1.usa.pipeline.com> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: (Fwd) Problem installing clisp for OS2 From: flogger_d@usa.pipeline.com (bruce s. irvine) Cc: flogger_d@usa.pipeline.com (bruce s. irvine) X-Pipeuser: flogger_d X-Pipehub: usa.pipeline.com X-Pipegcos: (bruce s. irvine) X-Mailer: Pipeline USA v3.4.0 Dear Fellow Worldwide Members of the CLISP-LIST: I just subscribed yesterday and I am not sure of the etiquette to be followed in getting assistance from the group. I'm aware that this is going to everyone but this is a legit question and problem and I'm not trying to sell anything. I emailed this to Bruno Haible yesterday but I'm not sure whether he has time to answer every inquiry that comes his way. Hoping for your assistance: >----- Forwarded message (flogger_d@usa.pipeline.com (bruce s. irvine)) -----< Sehr geherte Doktor: I'm having a problem installing clisp for OS2. I'm not really sure how serious a problem it is as I have not really progressed past installation. It does appear to execute and the LISP prompt comes up. Here is a description of my system: 80386DX 40Mhz 8 M Memory, OS/2 V3 Here is what happened: I DID edit the short-site-name and long-site-name in the config.lsp I just put my U.S.A. address in place of your address. I then edited the timezone definition to show "Eastern-US" which is the time zone within which I live. Saved both files and rebooted. Went to the OS/2 command prompt. Typed: lisp.exe -M lispinit.mem CR LISP prompt appeared after the Copyright and a menorah. Typed (compile-file "config") CR Appeared a line to the effect that config.lsp was being compiled. Then appeared an error message as follows: *READ from # (C:\PROGLANG\CLISP-OS is the directory housing all of the clisp files on my system.) Next line: ILLEGAL CHARACTER #\Code26 (I was now in the debugger (1. BREAK > ) ) I had difficulty understanding how to use the debugger commands but I typed "BACKTRACE" Result: EVAL frame for form (COMPILE-FILE "config") The clisp version I have is dated 1994-08-27. Hopefully you have seen this problem before and can give me a prompt and simple answer. I am not sure how serious the problem is as I wrote earlier because I stopped at that step of the installation. I did try some work after I aborted out of the debugger and at least the simple things I tried evaluated correctly and had the correct side effects. I would appreciate it if you would also cc your response to: bsirvine@mailbox.syr.edu and irvinbs@hqda.army.mil Gruess Gott. Bruce S. Irvine ____________ Thank you for your assistance in advance. Bruce S. Irvine From marcus@sysc.pdx.edu Thu May 2 03:21:19 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05332; Thu, 2 May 96 03:21:19 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id RAA23826; Wed, 1 May 1996 17:53:31 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA12459; Wed, 1 May 1996 17:53:27 -0700 Date: Wed, 1 May 1996 17:53:27 -0700 Message-Id: <199605020053.RAA12459@sayre.sysc.pdx.edu> From: Marcus Daniels To: bsirvine@mailbox.syr.edu and Cc: irvinbs@hqda.army.mil, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP on OS/2 Reply-To: marcus@sysc.pdx.edu >>>>> "you" == bruce s irvine writes: you> Next line: ILLEGAL CHARACTER #\Code26 Try to delete the MSDOG Control-Z from the end of the file, and try again (ie get an editor that doesn't do this to you). Alternatively, run this: (set-syntax-from-char #\Code26 #\Space) From cigarci@cp1.dcs.cie.uva.es Thu May 2 10:00:32 1996 Return-Path: Received: from cp1.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05795; Thu, 2 May 96 10:00:32 +0200 Message-Id: <9605020800.AA05795@ma2s2.mathematik.uni-karlsruhe.de> Received: by cp1.dcs.cie.uva.es (16.6/16.2) id AA15647; Thu, 2 May 96 09:35:41 +0200 Date: Thu, 2 May 96 09:35:41 +0200 From: 9793385 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de I have clisp version 1996-04-17 taken from the mirror rs104.hrz.th-darmstadt.de , everithing goes Ok. but when I try to make it with the Makefile an error appears> /usr/lib/crt1.o(.text+0x61): undefined reference to 'main' make:***[base/lisp.run] Error 1 I am working with Linux 1.2.13 , gcc 2.7.0, libc.so.4.7.2. Please answer with detail, I am not an expert. Thank,you Cesar Ingnacio Garcia Universidad de Valladolid From marcus@sysc.pdx.edu Thu May 2 10:16:14 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05868; Thu, 2 May 96 10:16:14 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id AAA24838; Thu, 2 May 1996 00:48:36 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id AAA26522; Thu, 2 May 1996 00:48:32 -0700 Date: Thu, 2 May 1996 00:48:32 -0700 Message-Id: <199605020748.AAA26522@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: clisp/linux In-Reply-To: <9605020800.AA05795@ma2s2.mathematik.uni-karlsruhe.de> References: <9605020800.AA05795@ma2s2.mathematik.uni-karlsruhe.de> Reply-To: marcus@sysc.pdx.edu There are two versions for Linux: a.out and ELF, make sure you got the right one. You'll want the a.out version. From cigarci@cp1.dcs.cie.uva.es Thu May 2 10:25:47 1996 Return-Path: Received: from cp1.dcs.cie.uva.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05931; Thu, 2 May 96 10:25:47 +0200 Message-Id: <9605020825.AA05931@ma2s2.mathematik.uni-karlsruhe.de> Received: by cp1.dcs.cie.uva.es (16.6/16.2) id AA16213; Thu, 2 May 96 10:00:34 +0200 Date: Thu, 2 May 96 10:00:34 +0200 From: 9793385 Apparently-To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de I have clisp version 1996-04-17 taken from the mirror rs104.hrz.th-darmstadt.de , everithing goes Ok. but when I try to make it with the Makefile an error appears> /usr/lib/crt1.o(.text+0x61): undefined reference to 'main' make:***[base/lisp.run] Error 1 I am working with Linux 1.2.13 , gcc 2.7.0, libc.so.4.7.2. Sorry, more details, I took the file clisp.tar.z from /pub/programming/languages/lisp/clisp/binaries/linux-aout Please answer with detail, I am not an expert. Thank,you Cesar Ingnacio Garcia Universidad de Valladolid From marcus@sysc.pdx.edu Thu May 2 14:13:53 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06187; Thu, 2 May 96 14:13:53 +0200 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Thu, 2 May 1996 13:30:47 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id EAA25273; Thu, 2 May 1996 04:29:15 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id EAA28458; Thu, 2 May 1996 04:29:13 -0700 Date: Thu, 2 May 1996 04:29:13 -0700 Message-Id: <199605021129.EAA28458@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: clisp/linux, correction In-Reply-To: <9605020800.AA05795@ma2s2.mathematik.uni-karlsruhe.de> References: <9605020800.AA05795@ma2s2.mathematik.uni-karlsruhe.de> Reply-To: marcus@sysc.pdx.edu >>>>> "Cesar" == 9793385 writes: Cesar> /usr/lib/crt1.o(.text+0x61): undefined reference to 'main' Cesar> make:***[base/lisp.run] Error 1 Cesar> I am working with Linux 1.2.13 , gcc 2.7.0, libc.so.4.7.2. Argh, on second thought, this actually looks like an ELF system! [ crt1.o, and "main" instead of "_main" ] From flogger_d@usa.pipeline.com Fri May 3 00:47:46 1996 Return-Path: Received: from mailout1.h1.usa.pipeline.com (data1.h1.usa.pipeline.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07073; Fri, 3 May 96 00:47:46 +0200 Received: from pipe18.h1.usa.pipeline.com by mailout1.h1.usa.pipeline.com (8.6.9/2.1-PSINet/Pipeline) id WAA24782; Thu, 2 May 1996 22:20:01 GMT Received: by pipe18.h1.usa.pipeline.com (8.6.12/SMI-5.4-PSI) id WAA27562; Thu, 2 May 1996 22:19:34 GMT Date: Thu, 2 May 1996 22:19:34 GMT Message-Id: <199605022219.WAA27562@pipe18.h1.usa.pipeline.com> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: (Fwd) CLISP on OS/2 (New topic: EDITOR) From: flogger_d@usa.pipeline.com (bruce s. irvine) X-Pipeuser: flogger_d X-Pipehub: usa.pipeline.com X-Pipegcos: (bruce s. irvine) X-Mailer: Pipeline USA v3.4.0 >----- Forwarded message (Marcus Daniels ) -----< >>>>> "you" == bruce s irvine writes: you> Next line: ILLEGAL CHARACTER #\Code26 Try to delete the MSDOG Control-Z from the end of the file, and try again (ie get an editor that doesn't do this to you). Alternatively, run this: (set-syntax-from-char #\Code26 #\Space) _____________________________________________ Thanks for the help. The Control-Z is invisible in all the editors I have been using to edit the config files (OS2 system editor and "enhanced editor" that comes with OS2 Warp), so I added the "set-syntax" line in the config.lsp file. Now it works well and I get "0 errors" and "0 warnings" when files compile. NEW TOPIC: Is there an easy source (hopefully text) that describes how to use the "editor.lsp" editor that comes with clisp? I think I successfully loaded it, but when I tried to execute it by entering the keystrokes: (ED) my screen went blue and a outlined rectangle formed on the screen with the legend "bindings" in the upper center of the rectangle. No matter what I did I couldn't get anything to happen past this point except that one tone sounded when most keys and combinations of keys were pressed. I ultimately had to restart my system to get out of this display. I looked at the editor.lsp file, but learning to use the editor from this source could take an extended time. Bruce Irvine From pg@das.harvard.edu Fri May 3 03:57:48 1996 Return-Path: Received: from hershey.harvard.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07334; Fri, 3 May 96 03:57:48 +0200 Date: Thu, 2 May 96 21:30:05 EDT From: pg@das.harvard.edu Message-Id: <9605030130.AA07251@hershey.harvard.edu> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: another mvbind problem? Cc: rtm@das.harvard.edu, tlb@das.harvard.edu I'm using Clisp of 1995-06-23 (June 1995) with the new patch to fix the recent mvbind bug, and there seems to be another kind of problem with mvbind: > (defun foo () (multiple-value-bind (x y) (cdr '(a b)) y)) FOO > (foo) NIL > (compile 'foo) FOO > (foo) (FOO) Thanks, --pg From marcus@sysc.pdx.edu Fri May 3 04:38:18 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07440; Fri, 3 May 96 04:38:18 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id TAA27762; Thu, 2 May 1996 19:10:25 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id TAA00537; Thu, 2 May 1996 19:10:20 -0700 Date: Thu, 2 May 1996 19:10:20 -0700 Message-Id: <199605030210.TAA00537@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: (Fwd) CLISP on OS/2 (New topic: EDITOR) In-Reply-To: <199605022219.WAA27562@pipe18.h1.usa.pipeline.com> References: <199605022219.WAA27562@pipe18.h1.usa.pipeline.com> Reply-To: marcus@sysc.pdx.edu >>>>> "bruce" == bruce s irvine writes: bruce> Is there an easy source (hopefully text) that describes how to bruce> use the "editor.lsp" editor that comes with clisp? Not really, but Alt-H or control-G will provide a help screen. bruce> I looked at the editor.lsp file, but bruce> learning to use the editor from this source could take an bruce> extended time. Look for the BIND-KEY expressions toward the end of the file, this may be of some use. I like Emacs, myself. A new release (19.31) should out soon. From marcus@sysc.pdx.edu Fri May 3 11:45:52 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07840; Fri, 3 May 96 11:45:52 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id BAA28523; Fri, 3 May 1996 01:27:41 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id BAA02610; Fri, 3 May 1996 01:27:36 -0700 Date: Fri, 3 May 1996 01:27:36 -0700 Message-Id: <199605030827.BAA02610@sayre.sysc.pdx.edu> From: Marcus Daniels To: pg@das.harvard.edu, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: another mvbind problem? In-Reply-To: <9605030130.AA07251@hershey.harvard.edu> References: <9605030130.AA07251@hershey.harvard.edu> Reply-To: marcus@sysc.pdx.edu >>>>> "Paul" == pg writes: Paul> I'm using Clisp of 1995-06-23 (June 1995) with the new patch to Paul> fix the recent mvbind bug, and there seems to be another kind of Paul> problem with mvbind I assumed you actually meant to return `x' and not `y' (for which the results you report appear to be correct). That is: (defun foo () (multiple-value-bind (x y) (cdr '(a b)) x)) and not (defun foo () (multiple-value-bind (x y) (cdr '(a b)) y)) In any case, the first case didn't work. If I missed your point, please clarify. The diffs below and a copy of the fixed `compiler.lsp' are available at: http://sayre.sysc.pdx.edu:8001/clisp/bugfixes Also, most of the binary distributions on sayre are up-to-date with this fix. Thanks! Index: compiler.lsp =================================================================== RCS file: /u/marcus/cvs/clisp/src/compiler.lsp,v retrieving revision 1.6 diff -c -r1.6 compiler.lsp *** compiler.lsp 1996/03/26 00:51:04 1.6 --- compiler.lsp 1996/05/03 08:14:13 *************** *** 6718,6729 **** `(,anode1 ,@(let ((len (length symbols)) (type (anode-type anode1))) ! (cond ((equal type '(PRIMOP VALUES)) (let ((count (length (remove-if-not #'anode-p (anode-code anode1))))) (if (eql count len) ! `((NV-TO-STACK ,len)) ! `((MV-TO-STACK) (PUSH-NIL ,(- len count))) ! ))) ((member type '(VAR VARSET CONST)) `((MV-TO-STACK) (PUSH-NIL ,(1- len)))) (t `((NV-TO-STACK ,len))) --- 6718,6731 ---- `(,anode1 ,@(let ((len (length symbols)) (type (anode-type anode1))) ! (cond ((equal type '(PRIMOP VALUES-LIST)) ! `((NV-TO-STACK ,len))) ! ((and (consp type) (eq (car type) 'PRIMOP)) (let ((count (length (remove-if-not #'anode-p (anode-code anode1))))) (if (eql count len) ! `((NV-TO-STACK ,len)) ! `((MV-TO-STACK) (PUSH-NIL ,(- len count))) ! ))) ((member type '(VAR VARSET CONST)) `((MV-TO-STACK) (PUSH-NIL ,(1- len)))) (t `((NV-TO-STACK ,len))) From flogger_d@usa.pipeline.com Fri May 3 13:10:47 1996 Return-Path: Received: from mailout1.h1.usa.pipeline.com (data1.h1.usa.pipeline.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07938; Fri, 3 May 96 13:10:47 +0200 Received: from pipe5 by mailout1.h1.usa.pipeline.com (8.6.9/2.1-PSINet/Pipeline) id KAA10679; Fri, 3 May 1996 10:42:54 GMT Received: by pipe5 (5.0/SMI-5.4-PSI) id AA06779; Fri, 3 May 1996 06:42:54 -0400 Date: Fri, 3 May 1996 06:42:54 -0400 Message-Id: <9605031042.AA06779@pipe5> To: clisp-list Subject: Re: CLISP on OS/2 (New topic: Sources for EDITOR) From: flogger_d@usa.pipeline.com (bruce s. irvine) X-Pipeuser: flogger_d X-Pipehub: usa.pipeline.com X-Pipegcos: (bruce s. irvine) X-Mailer: Pipeline USA v3.4.0 Content-Length: 130 Please post an anonymous ftp source for a GNU emacs editor I can use with CLISP for OS2. Appreciate it greatly. Bruce Irvine From haible@ilog.fr Fri May 3 14:33:53 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08086; Fri, 3 May 96 14:33:53 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.04.04) via EUnet-France id AA04454; Fri, 3 May 1996 14:05:59 +0200 (MET) Date: Fri, 3 May 96 13:50:19 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Fri, 3 May 96 13:50:19 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9605031150.AA19441@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA17806; Fri, 3 May 96 13:50:17 +0200 To: clisp-list Subject: Re: another mvbind problem? In-Reply-To: <9605030130.AA07251@hershey.harvard.edu> References: <9605030130.AA07251@hershey.harvard.edu> pg@das.harvard.edu writes: > I'm using Clisp of 1995-06-23 (June 1995) with the new patch to > fix the recent mvbind bug, and there seems to be another kind of > problem with mvbind: > > > (defun foo () > (multiple-value-bind (x y) (cdr '(a b)) > y)) > FOO > > (foo) > NIL > > (compile 'foo) > FOO > > (foo) > (FOO) Whee! This is a real compiler bug. Here is a patch and a changelog entry: * Fixed a bug in the compiler: A (MULTIPLE-VALUE-SETQ vars valform) or (MULTIPLE-VALUE-BIND vars valform ...) form was miscompiled if valform is known to produce a single value. diff -c3 clisp/src/compiler.lsp.bak clisp/src/compiler.lsp *** clisp/src/compiler.lsp.bak Thu Mar 14 08:22:40 1996 --- clisp/src/compiler.lsp Fri May 3 12:39:36 1996 *************** *** 10313,10319 **** ) ) ) ((VALUES0 NIL) (ersetze2 `(PUSH-NIL ,n))) (t (when (gethash (first (car rechts)) one-value-ops nil) ! (erweitere2 `(PUSH) `(PUSH-NIL ,(- n 1))) ) ) ) ) ) (PUSH-UNBOUND ; Regel 6 (case (first (car rechts)) --- 10313,10319 ---- ) ) ) ((VALUES0 NIL) (ersetze2 `(PUSH-NIL ,n))) (t (when (gethash (first (car rechts)) one-value-ops nil) ! (erweitere2 `(PUSH-NIL ,(- n 1)) `(PUSH)) ) ) ) ) ) (PUSH-UNBOUND ; Regel 6 (case (first (car rechts)) Bruno Haible email: Software Engineer phone: +33-1-49083585 From marcus@sysc.pdx.edu Fri May 3 14:34:05 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08087; Fri, 3 May 96 14:34:05 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id FAA28998; Fri, 3 May 1996 05:06:06 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id FAA03673; Fri, 3 May 1996 05:06:01 -0700 Date: Fri, 3 May 1996 05:06:01 -0700 Message-Id: <199605031206.FAA03673@sayre.sysc.pdx.edu> From: Marcus Daniels To: pg@das.harvard.edu, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: another mvbind problem? In-Reply-To: <9605030130.AA07251@hershey.harvard.edu> References: <9605030130.AA07251@hershey.harvard.edu> Reply-To: marcus@sysc.pdx.edu I see I missed a case, so here's a better patch. It's to be applied instead-of, not in-addtion-to the last one. Sorry! http://sayre.sysc.pdx.edu:8001/clisp/bugfixes/compiler.lsp Index: compiler.lsp =================================================================== RCS file: /u/marcus/cvs/clisp/src/compiler.lsp,v retrieving revision 1.6 diff -c -r1.6 compiler.lsp *** compiler.lsp 1996/03/26 00:51:04 1.6 --- compiler.lsp 1996/05/03 11:05:29 *************** *** 6718,6733 **** `(,anode1 ,@(let ((len (length symbols)) (type (anode-type anode1))) ! (cond ((equal type '(PRIMOP VALUES)) ! (let ((count (length (remove-if-not #'anode-p (anode-code anode1))))) ! (if (eql count len) ! `((NV-TO-STACK ,len)) ! `((MV-TO-STACK) (PUSH-NIL ,(- len count))) ! ))) ! ((member type '(VAR VARSET CONST)) ! `((MV-TO-STACK) (PUSH-NIL ,(1- len)))) ! (t `((NV-TO-STACK ,len))) ! ) ) ,@(c-make-closure closurevars closuredummy-venvc closuredummy-stackz) ,@ ; Binden von special- oder Closure-Variablen: (do ((stackvarlistr stackvarlist (cdr stackvarlistr)) --- 6718,6733 ---- `(,anode1 ,@(let ((len (length symbols)) (type (anode-type anode1))) ! (cond ((and (consp type) (eq (first type) 'PRIMOP)) ! (case (second type) ! (VALUES-LIST `((NV-TO-STACK ,len))) ! (VALUES (let ((count (length (remove-if-not #'anode-p (anode-code anode1))))) ! (if (>= count len) ! `((NV-TO-STACK ,len)) ! `((MV-TO-STACK) (PUSH-NIL ,(- len count)))))) ! (otherwise `((MV-TO-STACK) (PUSH-NIL ,(1- len)))))) ! ((member type '(VAR VARSET CONST)) `((MV-TO-STACK) (PUSH-NIL ,(1- len)))) ! (t `((NV-TO-STACK ,len))))) ,@(c-make-closure closurevars closuredummy-venvc closuredummy-stackz) ,@ ; Binden von special- oder Closure-Variablen: (do ((stackvarlistr stackvarlist (cdr stackvarlistr)) From marcus@sysc.pdx.edu Fri May 3 15:19:50 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08218; Fri, 3 May 96 15:19:50 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id FAA29111; Fri, 3 May 1996 05:51:56 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id FAA03894; Fri, 3 May 1996 05:51:50 -0700 Date: Fri, 3 May 1996 05:51:50 -0700 Message-Id: <199605031251.FAA03894@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: CLISP on OS/2 (New topic: Sources for EDITOR) In-Reply-To: <9605031042.AA06779@pipe5> References: <9605031042.AA06779@pipe5> Reply-To: marcus@sysc.pdx.edu >>>>> "bruce" == bruce s irvine writes: bruce> Please post an anonymous ftp source for a GNU emacs editor I bruce> can use with CLISP for OS2. You might take look at: ftp.uni-stuttgart.de /pub/systems/os2/emacs-19 The README in this directory has lots of info. (I've not used it, or for that matter, OS2.) From marcus@sysc.pdx.edu Sat May 4 06:23:42 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09027; Sat, 4 May 96 06:23:42 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id UAA01447; Fri, 3 May 1996 20:55:48 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id UAA06196; Fri, 3 May 1996 20:55:46 -0700 Date: Fri, 3 May 1996 20:55:46 -0700 Message-Id: <199605040355.UAA06196@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: another mvbind problem? In-Reply-To: <9605031150.AA19441@ilog.ilog.fr> References: <9605031150.AA19441@ilog.ilog.fr> Reply-To: marcus@sysc.pdx.edu >>>>> "Bruno" == Bruno Haible writes: Bruno> * Fixed a bug in the compiler: A (MULTIPLE-VALUE-SETQ vars Bruno> valform) or (MULTIPLE-VALUE-BIND vars valform ...) form was Bruno> miscompiled if valform is known to produce a single value. ..And you should be able to back off both previous patches to the compiler (but you don't *need* to). From roman@SAPIR.CS.NYU.EDU Wed May 8 08:35:36 1996 Return-Path: Received: from SAPIR.CS.NYU.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12340; Wed, 8 May 96 08:35:36 +0200 Received: by SAPIR.CS.NYU.EDU (5.61/1.34) id AA04210; Wed, 8 May 96 02:13:29 -0400 From: roman@SAPIR.CS.NYU.EDU (Roman Yangarber) Message-Id: <9605080613.AA04210@SAPIR.CS.NYU.EDU> Subject: clisp/linux installation ? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Wed, 8 May 1996 02:13:29 -0400 (EDT) X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 1249 Dear CLISP gurus, 3 quick questions, related to CLISP installation: 1) i downloaded the latest version from the Karlsruhe site to my Linux machine, and typed "make" at the shell prompt, as instructed in the README. the compilation fails with the following messages: roman> make cc base/lisp.a base/libreadline.a base/libintl.a base/libstdwin.a base/libavcall.a base/libvacall.a base/libtrampoline.a -ltermcap -L/usr/X11/lib -lX11 -o base/lisp.run /usr/lib/crt1.o(.text+0x61): undefined reference to `main' make: *** [base/lisp.run] Error 1 roman> pwd /u/clisp-1996-04-17 roman> please let me know what i am doing wrong. 2) i downloaded the file from binaries/linux-aout. should i have perhaps been using linux-elf ? actually i don't know what -elf is; does it have anything to do with emacs ? because if so, i am definitely interested, since i'll be running lisp from an emacs buffer. 3) i intend to port my Garnet code to CLISP. can i use the generic distribution of Garnet from CMU or must i be using the Garnet provided at your Karlsruhe site ? thank you very much for your help, and i look forward to using CLISP. Roman Yangarber ___________________________ PROTEUS Project Computer Science Department New York University From marcus@sysc.pdx.edu Wed May 8 20:21:47 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00985; Wed, 8 May 96 20:21:47 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id KAA17305; Wed, 8 May 1996 10:53:03 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id KAA11276; Wed, 8 May 1996 10:52:59 -0700 Date: Wed, 8 May 1996 10:52:59 -0700 Message-Id: <199605081752.KAA11276@sayre.sysc.pdx.edu> From: Marcus Daniels To: roman@sapir.cs.nyu.edu Cc: clisp-list Subject: clisp/linux installation ? In-Reply-To: <9605080613.AA04210@SAPIR.CS.NYU.EDU> References: <9605080613.AA04210@SAPIR.CS.NYU.EDU> Reply-To: marcus@sysc.pdx.edu >>>>> "Roman" == Roman Yangarber writes: Roman> 2) i downloaded the file from binaries/linux-aout. should i Roman> have perhaps been using linux-elf ? actually i don't know what Roman> -elf is; does it have anything to do with emacs ? ELF is the Executable Linkable format used with newer GNU/Linux systems. One way to tell ELF and a.out apart is that linux-aout symbols will have a "_" prefix and ELF symbols will not. The symptom you describe suggests that your installed runtime is ELF based. Roman> 3) i intend to port my Garnet code to CLISP. can i use the Roman> generic distribution of Garnet from CMU or must i be using the Roman> Garnet provided at your Karlsruhe site ? You need to do a bit of package renaming in order to load Garnet. The file http://sayre.sysc.pdx.edu:8001/clisp/tweaks/garnet-loader.lisp does this. Other than that, I had no problems with the generic Garnet 3.0 distribution from CMU (plus their patches). It should just be a matter of building CLX (from ma2s2), starting CLX with clisp -M clx.mem, loading garnet-prepare-compile.lisp into CLISP, loading this modified garnet-loader.lisp into CLISP (first check the paths in this file, e.g. Your-Garnet-Pathname), and then loading garnet-compile.lisp. When it is all loaded you do a (in-package :common-lisp-user) and then a (opal:make-image "garnet.mem"). Garnet can then be restarted with clisp -M garnet.mem. From atai@ece.UCSD.EDU Wed May 8 22:24:26 1996 Return-Path: Received: from mail.ucsd.edu (ucsd.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01114; Wed, 8 May 96 22:24:26 +0200 Received: from vision by mail.ucsd.edu; id MAA20938 sendmail 8.6.12/UCSD-2.2-sun via SMTP Wed, 8 May 1996 12:01:26 -0700 for Received: by vision (4.1/UCSDPSEUDO.4) id AA00648 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 8 May 96 12:01:23 PDT Date: Wed, 8 May 96 12:01:23 PDT From: atai@ece.UCSD.EDU (Andy Tai) Message-Id: <9605081901.AA00648@vision> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Can CLISP support Loom? Hi, I try to run Loom 2.1 under CLISP. I compile the system following Loom's instructions. I get some files loaded, but then the file ends with an error message. I have seen that error before when doing something else. The output is as follows: i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I I I I I I I 8 8 8 8 8 8 I I I I I I I 8 8 8 ooooo 8oooo I \ `+' / I 8 8 8 8 8 \ `-+-' / 8 o 8 8 o 8 8 `-__|__-' ooooo 8oooooo ooo8ooo ooooo 8 | ------+------ Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994, 1995, 1996 > (load "/usr/local/loom2.1/compile-loom.lisp") ;; Loading file /usr/local/loom2.1/compile-loom.lisp ... ;; Loading file /usr/local/loom2.1/pathnames.lisp ... ;; Loading file /usr/local/loom2.1/loom-package.lisp ... ;; Loading of file /usr/local/loom2.1/loom-package.lisp is finished. ;; Loading file /usr/local/loom2.1/defsystem.lisp ... ;; Loading of file /usr/local/loom2.1/defsystem.lisp is finished. *** - Unix error 13 (EACCES): Permission denied 1. Break> Backtrace EVAL frame for form (REQUIRE :LOOP) EVAL frame for form (LOAD PATH) EVAL frame for form (LET ((PATH (MAKE-PATHNAME :NAME (TRUNCATE-NAME "pathnames") :TYPE *LISP-EXTENSION* :DEFAULTS *LOOM-PATHNAME-DEFAULT* )) ) (LOAD PATH) ) EVAL frame for form (LOAD "/usr/local/loom2.1/compile-loom.lisp") Can this "permission denied" be a bug in CLISP? Thanks for any information. From marcus@sysc.pdx.edu Thu May 9 16:39:34 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02613; Thu, 9 May 96 16:39:34 +0200 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Thu, 9 May 1996 16:10:08 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.3/CATastrophe-2/10/96-P) with SMTP id HAA23490; Thu, 9 May 1996 07:08:40 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id HAA15420; Thu, 9 May 1996 07:08:35 -0700 Date: Thu, 9 May 1996 07:08:35 -0700 Message-Id: <199605091408.HAA15420@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Pierpaolo Bernardi's Trees Reply-To: marcus@sysc.pdx.edu A new version of a program for visualizing trees is available for FTP at ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp/contrib/trees.tar.gz. New with this version: multiple windows can be opened simultaneously. `Trees' requires a stdwin-equipped CLISP (most of the binary distributions include stdwin). `Trees' is by Pierpaolo Bernardi From amnuay@comnet.spu.ac.th Fri May 10 09:17:59 1996 Return-Path: Received: from comnet.spu.ac.th by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06533; Fri, 10 May 96 09:17:59 +0200 Received: by comnet.spu.ac.th (8.6.9/A/UX-3.00) id NAA24482; Fri, 10 May 1996 13:47:35 -0700 Date: Fri, 10 May 1996 13:47:31 -0700 (PDT) From: amnuay muthitacharoen To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII get clisp-list mailing-list-archive From mrc@cicladi.unial.it Fri May 10 09:37:34 1996 Return-Path: Received: from venere.unial.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06674; Fri, 10 May 96 09:37:34 +0200 Received: by venere.unial.it (5.65/DEC-Ultrix/4.3) id AA04761; Fri, 10 May 1996 09:10:42 +0200 Received: from willy.unial.it by cicladi (5.0/SMI-SVR4) id AA15351; Fri, 10 May 1996 09:06:39 --100 Received: by willy.unial.it (5.x/SMI-SVR4) id AA16688; Fri, 10 May 1996 09:11:04 +0200 Date: Fri, 10 May 1996 09:11:04 +0200 From: mrc@cicladi.unial.it (Eccettuato Marco) Message-Id: <9605100711.AA16688@willy.unial.it> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: Pierpaolo Bernardi's Trees X-Sun-Charset: ISO-8859-1 Content-Length: 2431 >>>From clisp-list@ma2s2.mathematik.uni-karlsruhe.de Thu May 9 16:45 MET 1996 >>>Date: Thu, 9 May 96 16:44:23 +0200 >>>Originator: clisp-list@ma2s2.mathematik.uni-karlsruhe.de >>>Version: 5.5 -- Copyright (c) 1991/92, Anastasios Kotsikonas >>>From: Marcus Daniels >>>To: Multiple recipients of list >>>Subject: Pierpaolo Bernardi's Trees >>> >>> >>>A new version of a program for visualizing trees is available for FTP at >>>ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp/contrib/trees.tar.gz. >>> >>>New with this version: multiple windows can be opened simultaneously. >>>`Trees' is by Pierpaolo Bernardi >>> >>> >>> Sono un utente di CLISP da un po' di tempo, e mi sarebbe piaciuto (e mi piacerebbe tuttora) vedere il tuo/Suo pacchetto `trees'. A questo fine, ho prelevato da ma2s2 i sorgenti di CLISP (ultima versione), incluso `stdwin', e ho provato a compilare il tutto, sotto Linux 1.2.13. Non sono riuscito, nonostante tentativi e correzioni, a compilare nessuna delle applicazioni di esempio fornite con `stdwin', e quindi nemmeno a compilare CLISP con il modulo stesso. L' errore e' il seguente: al momento di collegare i file oggetto con la libreria `libstdwin.a' (`lib_x11+alfa.a'), il linker da' un mucchio di messaggi di errore riguardo funzioni non definite (x11_wbegindrawing, x11_wenddrawing, e molte altre del tipo x11_* e alfa_*). La libreria `termcap' viene specificata al linker sulla linea di comando, insieme a `stdwin'. Ho provato a chiedere lumi a Marcus Daniels, ma non e' stato in grado di aiutarmi: mi ha solo indicato, genericamente, che avrei problemi con il linker. La mia domanda e': dato che tu/Lei scrivi/e >>> >>>`Trees' requires a stdwin-equipped CLISP (most of the binary >>>distributions include stdwin). >>> dove posso trovare una di tali distribuzioni ? O meglio ancora, quale puo' essere il mio problema con il linker e come lo posso risolvere (riesco a compilare da sempre tutto quanto, compresi progetti di laboratorio universitari molto complessi), per poter compilare di mio CLISP con stdwin e finalmente vedere all' opera il tuo/Suo pacchetto, che sembra molto promettente? ringraziando anticipatamente per l' eventuale interessamento, ti/La prego di indicarmi nella risposta se devo successivamente usare il `tu' o il `Lei'. Grazie. Marco Eccettuato mrc@cicladi.unial.it From amnuay@comnet.spu.ac.th Fri May 10 09:53:31 1996 Return-Path: Received: from comnet.spu.ac.th by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06759; Fri, 10 May 96 09:53:31 +0200 Received: by comnet.spu.ac.th (8.6.9/A/UX-3.00) id OAA27632; Fri, 10 May 1996 14:23:26 -0700 Date: Fri, 10 May 1996 14:23:24 -0700 (PDT) From: amnuay muthitacharoen To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP installation on FreeBSD-486 machine Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII After I untarred "clisp.tgz", then I installed as follow :- 1) cc lisp.a -L. -lreadline -ltermcap -o lisp.run which gave me "lisp.run" 2) lisp.run -M lispinit.mem this gave me an error as follow :- Cannot map memory to address 536870912 . errno = 9 lisp.run: Not enough memory for Lisp. My machine uses "Conner Pheripherals 1275MB-CFS1275A" disk drive. Is this the problem that this CLISP cannot see more than 536,870,912 bytes ? I have installed "ADA". It works fine. What do I have to do, please? Thanks Amnuay From gadelha@mat.unb.br Sat May 11 15:30:31 1996 Return-Path: Received: from Ipe.mat.unb.br (gate.mat.unb.br) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15841; Sat, 11 May 96 15:30:31 +0200 Received: by Ipe.mat.unb.br; (5.65/1.1.8.2/10Oct95-1048PM) id AA01773; Sat, 11 May 1996 10:02:38 -0300 Date: Sat, 11 May 1996 10:02:38 -0300 (EST) From: "Luiz Gadelha Jr." To: List CLISP Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII unsubscribe Luiz Gadelha From kehr@iti.informatik.th-darmstadt.de Sun May 12 13:21:14 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05731; Sun, 12 May 96 13:21:14 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id MAA109757 for ; Sun, 12 May 1996 12:51:55 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id MAA27015; Sun, 12 May 1996 12:51:53 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id MAA15995; Sun, 12 May 1996 12:51:53 +0200 From: Roger Kehr Message-Id: <199605121051.MAA15995@spock.iti.informatik.th-darmstadt.de> Subject: Bug in CLOS !? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Sun, 12 May 1996 12:51:52 +0200 (MESZ) X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 4563 Hello, I'm not sure if I made some error in my investigation but it seems that the CLOS-method "remove-method" does not work as expected. The following dialog was verified with clisp-1996-04-17 and clisp-1995-06-23: > (use-package 'clos) T > (setq foo1 (defmethod foo ((x number)) (print x))) #)> > (setq foo2 (defmethod foo ((x string)) (print x))) #)> > (compute-applicable-methods #'foo '(1)) (#)>) > (compute-applicable-methods #'foo '("abc")) (#)>) until now everything works as expected... > (remove-method #'foo foo1) # > (compute-applicable-methods #'foo '(1)) (#)>) .... why? should be removed > (remove-method #'foo foo2) # > (compute-applicable-methods #'foo '("abc")) (#)>) .... ??? In clos.lsp I found the following code responsible for removing a method from a generic function: ]; Entfernen einer Methode von einer generischen Funktion: ](defun std-remove-method (gf method) ] (let ((old-method (find method (gf-methods gf) ] :key #'std-method-initfunction))) ] (when old-method ] (warn-if-gf-already-called gf) ] (warn ] #L{ ] DEUTSCH "Methode ~S in ~S wird entfernt." ] ENGLISH "Removing method ~S in ~S" ] FRANCAIS "On retire la méthode ~S de ~S." ] } ] old-method gf ] ) ] (cond ((eq gf |#'initialize-instance|) (note-ii-change method)) ] ((eq gf |#'reinitialize-instance|) (note-ri-change method)) ] ((eq gf |#'shared-initialize|) (note-si-change method)) ] ) ] (setf (gf-methods gf) (remove old-method (gf-methods gf))) ] (finalize-fast-gf gf) ] ) ) ] gf ]) The first let binds `old-method' to the method to be removed. I redefined the function by replacing the :key #'std-method-initfunction with :test #'methods-agree-p which was borrowed from the function "std-add-method" that is the part of "defmethod" which also allows redefinition of methods. The finding of the correct method is here implemented with a different call: (find method (gf-methods gf) :test #'methods-agree-p))) ]; Hinzufügen einer Methode zu einer generischen Funktion: ](defun std-add-method (gf method) ] ; 28.1.6.4. congruent lambda lists ] (let ((gf-sign (gf-signature gf)) ] ] ... ] ] ; Methode ist fertig. Eintragen: ] (warn-if-gf-already-called gf) ] (let ((old-method (find method (gf-methods gf) :test #'methods-agree-p))) ] (cond ((eq gf |#'initialize-instance|) (note-ii-change method)) ] ((eq gf |#'reinitialize-instance|) (note-ri-change method)) ] ((eq gf |#'shared-initialize|) (note-si-change method)) ] ) ] (setf (gf-methods gf) ] (cons method ] (if old-method ] (progn ] (warn ] #L{ ] DEUTSCH "Methode ~S in ~S wird ersetzt." ] ENGLISH "Replacing method ~S in ~S" ] FRANCAIS "On remplace la méthode ~S dans ~S." ] } ] old-method gf ] ) ] (remove old-method (gf-methods gf)) ] ) ] (gf-methods gf) ] ) ) ) ] (finalize-fast-gf gf) ] ) ] gf ]) After redefining "std-remove-method" to ]; Entfernen einer Methode von einer generischen Funktion: ](defun std-remove-method (gf method) ] (let ((old-method (find method (gf-methods gf) ] :test #'methods-agree-p))) ] (when old-method ] (warn-if-gf-already-called gf) ] (warn ] #L{ ] DEUTSCH "Methode ~S in ~S wird entfernt." ] ENGLISH "Removing method ~S in ~S" ] FRANCAIS "On retire la méthode ~S de ~S." ] } ] old-method gf ] ) ] (cond ((eq gf |#'initialize-instance|) (note-ii-change method)) ] ((eq gf |#'reinitialize-instance|) (note-ri-change method)) ] ((eq gf |#'shared-initialize|) (note-si-change method)) ] ) ] (setf (gf-methods gf) (remove old-method (gf-methods gf))) ] (finalize-fast-gf gf) ] ) ) ] gf ]) everything works fine for me now! It is a bug or a feature? Bye -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From aler@grial.uc3m.es Sun May 12 22:03:30 1996 Return-Path: Received: from grial.uc3m.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10924; Sun, 12 May 96 22:03:30 +0200 Received: from tristan.uc3m.es by grial.uc3m.es with SMTP (1.39.111.2/16.2) id AA024349311; Sun, 12 May 1996 21:28:31 +0200 Date: Sun, 12 May 1996 21:38:46 -0100 (GMT-0100) From: Ricardo Aler Mur X-Sender: aler@tristan.uc3m.es To: clisp Subject: Clisp in HP-UX B.10.01 A 9000/715 (fwd) Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hello, I am trying to compile clisp for an HPUX B.10.01 (clisp binaries don't work very well for this new version of HPUX). When compiling (linking, actually) I get the error: collect2: ld returned 1 exit status /usr/bin/ld: Unsatisfied symbols: length32 (code) make: *** [lisp.run] Error 1 It seems that length32 is defined in arihppa.d, but the code in there is never used. Has anybody compiled clisp for HPUX 10.01 already?. What am I doing wrong?. Thanks, R. Aler. From amanda_stent@houghton.edu Mon May 13 00:29:42 1996 Return-Path: Received: from osme.houghton.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12327; Mon, 13 May 96 00:29:42 +0200 Received: from mathetes.houghton.edu (s2909565@mathetes.houghton.edu [204.168.92.6]) by osme.houghton.edu (8.6.12/8.6.12.mtgs) with ESMTP id RAA23947 for ; Sun, 12 May 1996 17:59:25 -0400 Received: (from s2909565@localhost) by mathetes.houghton.edu (8.6.12/8.6.12.mtgs) id QAA28635; Sun, 12 May 1996 16:59:32 -0400 Date: Sun, 12 May 1996 16:59:29 -0400 (EDT) From: Amanda Stent To: clisp-list Subject: Re: Bug in CLOS !? In-Reply-To: <199605121051.MAA15995@spock.iti.informatik.th-darmstadt.de> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII unsubscribe Amanda Stent From wavehh!wavehh.hanse.de!cracauer@mail.hanse.de Mon May 13 11:47:22 1996 Return-Path: Received: from ki1.chemie.fu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19306; Mon, 13 May 96 11:47:22 +0200 Received: by ki1.chemie.fu-berlin.de (Smail3.1.28.1) from mail.hanse.de (193.174.9.9) with smtp id ; Mon, 13 May 96 11:17 MEST Received: from wavehh.UUCP by mail.hanse.de with UUCP for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id ; Mon, 13 May 96 11:17 MET DST Received: by wavehh.hanse.de (4.1/SMI-4.1) id AA10923; Mon, 13 May 96 10:12:51 +0200 From: cracauer@wavehh.hanse.de (Martin Cracauer) Message-Id: <9605130812.AA10923@wavehh.hanse.de> Subject: Re: Bug in CLOS !? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 13 May 1996 10:12:50 +0200 (MET DST) In-Reply-To: from "Amanda Stent" at May 13, 96 00:32:23 am Reply-To: cracauer@wavehh.hanse.de X-Mailer: ELM [version 2.4 PL24] Content-Type: text Content-Length: 198 > > unsubscribe Amanda Stent flame Amanda Stent -- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Martin Cracauer http://www.bik-gmbh.de/~cracauer Fax +49 40 522 85 36 From haible@ilog.fr Mon May 13 13:31:58 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20529; Mon, 13 May 96 13:31:58 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA08998; Mon, 13 May 1996 13:02:18 +0200 (MET) Date: Mon, 13 May 96 12:30:36 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Mon, 13 May 96 12:30:37 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9605131030.AA05713@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA07475; Mon, 13 May 96 12:30:36 +0200 To: clisp-list Subject: Re: Bug in CLOS !? In-Reply-To: <199605121051.MAA15995@spock.iti.informatik.th-darmstadt.de> References: <199605121051.MAA15995@spock.iti.informatik.th-darmstadt.de> Roger Kehr writes: > [shows us that REMOVE-METHOD does never work] > It is a bug or a feature? A bug. Thanks for the fix!! Bruno From thommark@access.digex.net Sun May 19 19:08:50 1996 Return-Path: Received: from access2.digex.net by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08584; Sun, 19 May 96 19:08:50 +0200 Received: from localhost (thommark@localhost) by access2.digex.net (8.6.12/8.6.12) with SMTP id MAA28220 ; for ; Sun, 19 May 1996 12:38:08 -0400 Date: Sun, 19 May 1996 12:38:06 -0400 (EDT) From: "M. Thomas" X-Sender: thommark@access2.digex.net To: CLISP List Subject: Bug in COMPUTE-EFFECTIVE-METHOD? Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII There appears to be a bug in the definition of COMPUTE-EFFECTIVE-METHOD, specifically in line 2716 of clos.lsp: (loop (apply #'no-applicable-method gf args)) You can see that if a programmer defines new methods for NO-APPLICABLE-METHOD, and if the resulting effective method returns to its caller, an endless loop will result. So maybe this line should be: (apply #'no-applicable-method gf args) When I make this change, my NO-APPLICABLE-METHOD no longer loops endlessly, but then NO-PRIMARY-METHOD signals an error "no primary method is applicable", as if to remind me that the empty set has no members :-) Question: Is NO-PRIMARY-METHOD specific to CLISP (I can't find it in dpANS)? Question: Shouldn't NO-PRIMARY-METHOD be called only when there _are_ applicable methods? Semantically speaking, this makes more sense to me, since then the calling of NO-PRIMARY-METHOD would represent new information about the state of the system. In other words, if NO-APPLICABLE-METHOD has been called, then calling NO-PRIMARY-METHOD won't tell me anything I don't already know! Remark: In line 2761 of clos.lsp, you see that that programmer defined methods for NO-PRIMARY-METHOD might also loop endlessly. So, assuming that such programmer-defined methods are allowed, this is another instance of the same bug. Here's my test code (latest version of CLISP): --------cut------------ (defclass foo () ()) (defmethod foo-id ((self foo) &rest ignore) self) (defmethod no-applicable-method ((fn (eql #'foo-id)) &rest args) (format T "~&~S~S~%" fn args)) --------cut------------ ;; this works okay > (foo-id (make-instance 'foo)) # ;; this results in an endless loop > (foo-id 42 'a 'b) #(42 A B) #(42 A B) #(42 A B) ... One more minor thing: When I define a new method for internally-defined generic functions (such as NO-APPLICABLE-METHOD), I get the WARNING: The generic function # is being modified, but has already been called. Question: Is this wording misleading? It would seem so, since the default NO-APPLICABLE-METHOD would signal an error, and merely defining a new method for NO-APPLICABLE-METHOD doesn't signal such an error. Thanks! Mark A. Thomas thommark@access.digex.net From haible@ilog.fr Mon May 20 14:49:49 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20418; Mon, 20 May 96 14:49:49 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA11345; Mon, 20 May 1996 14:19:00 +0200 (MET) Date: Mon, 20 May 96 14:05:41 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Mon, 20 May 96 14:05:41 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9605201205.AA04904@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA05375; Mon, 20 May 96 14:05:39 +0200 To: clisp-list Subject: Re: Bug in COMPUTE-EFFECTIVE-METHOD? In-Reply-To: References: Mark Thomas writes: > There appears to be a bug in the definition of > COMPUTE-EFFECTIVE-METHOD, specifically in line 2716 of clos.lsp: > > (loop (apply #'no-applicable-method gf args)) > > You can see that if a programmer defines new methods for > NO-APPLICABLE-METHOD, and if the resulting effective method returns to > its caller, an endless loop will result. What do you do in your method for NO-APPLICABLE-METHOD ? If you add new methods to `gf', it might be better to put in a jump to the beginning of COMPUTE-EFFECTIVE-METHOD : (defun compute-effective-method (gf &rest args) (tagbody restart-compute ... (when (null methods) (apply #'no-applicable-method gf args) (go restart-compute)) ... ) ) If you don't execute any corrective action, the endless loop will persist, of course. That is intended. > Question: Is NO-PRIMARY-METHOD specific to CLISP (I can't find it in > dpANS)? Yes, it is specific to CLISP. If for a call to a generic function only :around and :before/:after methods are applicable but no primary methods, this is an error. dpANS apparently forgot to introduce a generic function for this case. > Question: Shouldn't NO-PRIMARY-METHOD be called only when there _are_ > applicable methods? Sure. It was your patch that made COMPUTE-EFFECTIVE-METHOD continue although there were no applicable methods. > Remark: In line 2761 of clos.lsp, you see that that programmer > defined methods for NO-PRIMARY-METHOD might also loop > endlessly. So, assuming that such programmer-defined > methods are allowed, this is another instance of the same > bug. So change (when (null primary-methods) (loop (apply #'no-primary-method gf args)) ) into (when (null primary-methods) (apply #'no-primary-method gf args) (go restart-compute) ) > Here's my test code (latest version of CLISP): > > (defmethod no-applicable-method ((fn (eql #'foo-id)) &rest args) > (format T "~&~S~S~%" fn args)) Whee! You just print something, no corrective action. What do you expect the Lisp implementation to do?? Bruno From adong@jerry.ME.Berkeley.EDU Thu May 23 04:35:07 1996 Return-Path: Received: from nak.berkeley.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11022; Thu, 23 May 96 04:35:07 +0200 Received: from jerry.ME.Berkeley.EDU (jerry.ME.Berkeley.EDU [128.32.125.85]) by nak.berkeley.edu (8.7.3/8.6.10) with SMTP id TAA04698 for ; Wed, 22 May 1996 19:03:52 -0700 (PDT) Received: by jerry.ME.Berkeley.EDU (4.1/SMI-4.1) id AA28219; Wed, 22 May 96 19:03:57 PDT Date: Wed, 22 May 96 19:03:57 PDT From: adong@jerry.ME.Berkeley.EDU (Andy Dong) Message-Id: <9605230203.AA28219@jerry.ME.Berkeley.EDU> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: clisp segv on Solaris 2.4 Cc: adong@jerry.ME.Berkeley.EDU Has anyone experienced this bug (a segv) on trying to create the memory image or trying to load any lisp code for that matter? The machine I'm running is a SPARCstation 20/SunOS 5.4 (Solaris 2.4) kernel patch level Generic_101945-32 and build 17 April 1996 of CLISP from ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp/sun4-sunos54 % truss base/lisp.run -M base/lispinit.mem - (compile-file "src/config") then the segv error mmap(0x08012000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 0) = 0x08012000 mmap(0x01022000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 3, 0) = 0x01022000 Incurred fault #6, FLTBOUNDS %pc = 0xEF55CF1C siginfo: SIGSEGV SEGV_MAPERR addr=0x100CE4B0 Received signal #11, SIGSEGV [caught] siginfo: SIGSEGV SEGV_MAPERR addr=0x100CE4B0 setcontext(0xEFFFE518) Incurred fault #6, FLTBOUNDS %pc = 0xEF55CF1C siginfo: SIGSEGV SEGV_MAPERR addr=0x100CE4B0 Received signal #11, SIGSEGV [default] siginfo: SIGSEGV SEGV_MAPERR addr=0x100CE4B0 *** process killed *** With regards, Andy Dong Graduate Student Researcher Department of Mechanical Engineering University of California at Berkeley URL http://best.ME.Berkeley.EDU/~adong/adong.html From kdo@ctpa01.mit.edu Fri May 24 16:12:52 1996 Return-Path: Received: from ctpa01.mit.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02934; Fri, 24 May 96 16:12:52 +0200 Received: by ctpa01.mit.edu; id AA23350; Fri, 24 May 1996 09:40:25 -0400 Date: Fri, 24 May 1996 09:40:25 -0400 Message-Id: <9605241340.AA23350@ctpa01.mit.edu> From: kdo@mit.edu (Ken Olum) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: <199604300253.TAA16353@sayre.sysc.pdx.edu> (message from Marcus Daniels on Tue, 30 Apr 96 05:26:08 +0200) Subject: ANSI spec on the web. Harlequin has put Kent Pitman's "Hyperspec" version of the X3J13 spec on the web for public use: http://www.harlequin.com/books/HyperSpec/ Ken From stoffel@cs.tu-berlin.de Thu May 30 18:29:47 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05169; Thu, 30 May 96 18:29:47 +0200 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id RAA16585; Thu, 30 May 1996 17:37:59 +0200 Sender: stoffel@cs.tu-berlin.de Message-Id: <31ADC0CE.134F@cs.tu-berlin.de> Date: Thu, 30 May 1996 17:37:50 +0200 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.02 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Error on package redefinition? References: <9604111750.AA15835@avanti.gmd.de> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit How can i turn of the error message at package redefinition? Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From jord@gnawk.dial.eunet.es Sun Jun 2 01:13:00 1996 Return-Path: Received: from goya.eunet.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22944; Sun, 2 Jun 96 01:13:00 +0200 Received: from gnawk.dial.eunet.es (gnawk.dial.eunet.es [193.127.16.30]) by goya.eunet.es (8.7.3/13.33) with SMTP id AAA09238 for ; Sun, 2 Jun 1996 00:32:01 +0200 (MET DST) Received: by gnawk.dial.eunet.es (4.0/SMI-4.0) id AA01376; Sun, 2 Jun 96 00:33:12 +0200 From: jord@gnawk.dial.eunet.es (Juan Jordana Jord) Message-Id: <9606012233.AA01376@gnawk.dial.eunet.es> Subject: clisp-1996-05-30 Installation To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Sun, 2 Jun 1996 00:33:11 +0200 (MET DST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Help needed: I have been trying to install clisp in my computer (Sun 386 running SunOS-4.0.2, with 16 MB memory), but after numerous compile runs, when I arrive to 'make interpreted.mem', the line: ./lisp.run -m 800kw -x "(load \"init.lsp\") (sys::%saveinitmem) (exit)" fails with: sh: 1009 Memory fault - core dumped *** Error code 139 make: Fatal error: Command failed for target `interpreted.mem' -------------OOO------------ I am compiling clisp with gcc-2.7.2 This is the CFLAGS from the makefile: CFLAGS=-W -Wswitch -Wpointer-arith -Wimplicit -Wreturn-type -fomit-frame-pointer -DNO_READLINE -Dunix -Dsun -Dsun386 -DNO_GENERATIONAL_GC -DNO_MULTIMAP_SHM -DNO_MULTIMAP_FILE -DNO_SINGLEMAP -DNO_TRIVIALMAP -DSAFETY=3 (I delete -O2 to avoid possible adverse strength-reduce effects) I have also tried to compile with generational GC, multimap, shared memory and dynamic_ffi, in ALL possible combinations, without success. In fact, when I try to use multimap, I get a SIGSEGV handle fault at the same point, even after modifying 'unix.d' to make the fault handler arguments consistent with the declaration of the function mmap() in SunOS4.0.2: ....... #if defined(UNIX_SUNOS4) #define FAULT_HANDLER_ARGLIST sig, code, scp, addr #define FAULT_HANDLER_ARGDECL int sig; int code; struct sigcontext* scp; char* addr; #define FAULT_ADDRESS scp->sc_eax #define WP_SIGNAL FAULT_HANDLER(SIGSEGV) FAULT_HANDLER(SIGBUS) #define CAN_HANDLE_WP_FAULT #endif ...... During configure (configure --host=i386-sun-sunos4.0.2) I see: (among others) checking for the code address range... 0x00000000 checking for the malloc address range... 0x00000000 checking for the shared library address range... 0x00000000 checking for working mmap... yes checking for mprotect... yes checking for working shared memory... yes I have alse tested the definitions resulting from the flow of #if define's in 'lispbibl.d' where SPVW_PURE_BLOCKS is selected in my configuration (which apparently is an installation bug if the comment for SPVW_PURE_PAGES in case of SUN4 and SUN386, in 'spvw.d' is true) Anyway, I have tested PURE_PAGES, PURE_BLOCKS, and other combinations with the same negative results. The same fault messages (with core) appearing in making interpreted.mem. Could any of you perhaps with the same machine, give me some help?. This thing is driving me nuts. -- / __ __ /__ _ __/__ __ _ __//_//_/_/ / __//_// /_//_/_/ //_/_ jord@gnawk.dial.eunet.es From kehr@iti.informatik.th-darmstadt.de Sun Jun 2 12:51:42 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05362; Sun, 2 Jun 96 12:51:42 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id MAA79339 for ; Sun, 2 Jun 1996 12:18:43 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id MAA10329; Sun, 2 Jun 1996 12:18:41 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id MAA20744; Sun, 2 Jun 1996 12:18:41 +0200 From: Roger Kehr Message-Id: <199606021018.MAA20744@spock.iti.informatik.th-darmstadt.de> Subject: Re: Error on package redefinition? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Sun, 2 Jun 1996 12:18:39 +0200 (MESZ) In-Reply-To: <31ADC0CE.134F@cs.tu-berlin.de> from "Mark Mueller" at May 30, 96 06:38:02 pm X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 1413 Hi, Ich benutze f"ur solche F"alle eine tempor"are Bindung von *error-output* an einen string-stream. (defparameter *internal-error-output* (make-string-output-stream)) #| can be visited and flushed by calling (get-output-stream-string *internal-error-output* ) |# ... (let ((name (stringify name))) `(LET ((*ERROR-OUTPUT* *INTERNAL-ERROR-OUTPUT*)) (CLOS:DEFMETHOD ,(intern (string-upcase (concatenate 'string name "-open")) 'markup) ,signature ,@declare ,@open ,@body) (CLOS:DEFMETHOD ,(intern (string-upcase (concatenate 'string name "-close")) 'markup) ,signature ,@declare ,@close ,@body)))) Hier binde ich f"ur die Definition von Methoden, die mir potentielle Redefinitions-Warnungen melden, kurzerhand einen internen string-stream *internal-error-output* und die Fehlerealdungen landen in diesem Stream. Der Vorteil ist, da"s man die Meldungen sp"ater noch nachbearbeiten kann (siehe get-output-stream-string). Dieses ist zumindest ein portables Verfahren und sollte auf allen CL-Implementationen funktionieren. Falls zu diesem Thema noch andere Vorschl"age kommen, kannst du mir sie ja mal weiterleiten. Ciao -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From tkunze@cmsgia.Stanford.EDU Sun Jun 2 22:04:48 1996 Return-Path: Received: from ccrma.Stanford.EDU (ccrma.Stanford.EDU) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10586; Sun, 2 Jun 96 22:04:48 +0200 Received: from cmsgia by ccrma.Stanford.EDU (NX5.67e/NeXT-1.0) id AA28801; Sun, 2 Jun 96 12:31:40 -0700 Received: by cmsgia.stanford.edu (950911.SGI.8.6.12.PATCH825/940406.SGI.AUTO) for clisp-list@ma2s2.mathematik.uni-karlsruhe.de id MAA02658; Sun, 2 Jun 1996 12:31:42 -0700 From: "Tobias Kunze" Message-Id: <9606021231.ZM2656@cmsgia.stanford.edu> Date: Sun, 2 Jun 1996 12:31:40 -0700 In-Reply-To: Roger Kehr "Re: Error on package redefinition?" (Jun 2, 12:56pm) References: <199606021018.MAA20744@spock.iti.informatik.th-darmstadt.de> X-Mailer: Z-Mail (3.2.2 10apr95 MediaMail) To: clisp-list Subject: Re: Error on package redefinition? Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Roger- this is an international list where most subscribers nix spreken Deutsh, unfortunately (I do :) English is widely understood, though. -Tobias On Jun 2, 12:56pm, Roger Kehr wrote: > Hi, > > Ich benutze f"ur solche F"alle eine tempor"are Bindung von > *error-output* an einen string-stream. [...] >-- End of excerpt from Roger Kehr From nathan@bristol.st.com Tue Jun 4 11:43:10 1996 Return-Path: Received: from daisy (daisy.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03659; Tue, 4 Jun 96 11:43:10 +0200 From: nathan@bristol.st.com Received: by daisy id KAA03041; Tue, 4 Jun 1996 10:16:05 +0100 (BST) Message-Id: <20547.199606040913@finlandia.inmos.co.uk> Subject: problems with INTERACTIVE-STREAM-P To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Tue, 4 Jun 1996 10:13:01 +0100 (BST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Hi, I'm getting confused by the behaviour of INTERACTIVE-STREAM-P, I'm trying to use it in the following manner (if (interactive-stream-p *error-output*) ... output progress messages) However, it is always saying *error-output* is interactive, even when I redirect to a file or pipe, ie, clisp -x '(interactive-stream-p *error-output*)' >& foo puts T into the output file. I get the same result when I use *standard-output* or *terminal-io* too. If I do (setf *error-output* (open "foo" :direction :output)) (interactive-stream-p *error-output*) I get NIL, as expected. What am I doing wrong? I'm running 17April96 version compiled (by me) for Solaris2.5. I notice the NEWS file contains the 22June1994 comment * The function INTERACTIVE-STREAM-P knows that if the terminal stream is referring to a regular file (via input redirection) it is not interactive. Implying that it should work. nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From haible@ilog.fr Tue Jun 4 15:07:45 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05767; Tue, 4 Jun 96 15:07:45 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA06190; Tue, 4 Jun 1996 14:34:20 +0200 (MET) Date: Tue, 4 Jun 96 14:19:40 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Tue, 4 Jun 96 14:19:40 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9606041219.AA11530@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA29629; Tue, 4 Jun 96 14:19:38 +0200 To: clisp-list Subject: Re: problems with INTERACTIVE-STREAM-P In-Reply-To: <20547.199606040913@finlandia.inmos.co.uk> References: <20547.199606040913@finlandia.inmos.co.uk> Nathan Sidwell writes: > However, it is always saying *error-output* is interactive, even when I > redirect to a file or pipe, ie, > > clisp -x '(interactive-stream-p *error-output*)' >& foo > > puts T into the output file. I get the same result when I use > *standard-output* or *terminal-io* too. You have redirected the output to a file, but the input part of *terminal-io* is still referring to your terminal. This is why `interactive-stream-p' reports T. You could redirect standard input from /dev/null, but unfortunately CLISP does not know about /dev/null's special nature. (How do you tell that a file descriptor is pointing to /dev/null when all you have is the file descriptor?) Bruno Haible email: Software Engineer phone: +33-1-49083585 From marcus@sysc.pdx.edu Tue Jun 4 15:28:19 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06039; Tue, 4 Jun 96 15:28:19 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id FAA06629; Tue, 4 Jun 1996 05:54:28 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id FAA03818; Tue, 4 Jun 1996 05:54:12 -0700 Date: Tue, 4 Jun 1996 05:54:12 -0700 Message-Id: <199606041254.FAA03818@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: problems with INTERACTIVE-STREAM-P In-Reply-To: <20547.199606040913@finlandia.inmos.co.uk> References: <20547.199606040913@finlandia.inmos.co.uk> Reply-To: marcus@sysc.pdx.edu >>>>> "NS" == nathan writes: NS> (if (interactive-stream-p *error-output*) ... output progress messages) NS> I notice the NEWS file contains the 22June1994 comment * The function INTERACTIVE-STREAM-P knows that if the terminal stream is referring to a regular file (via input redirection) it is not interactive. NS> Implying that it should work. Well, it is qualified with "via input redirection", which does work (with bourne shell): $ clisp -q -x '(interactive-stream-p *error-output*)' 2>out 0<&2 NIL And dpANS does pretty much state that interactivity is analogous to input: * The stream is connected to a person (or equivalent) in such a way that the program can prompt for information and expect to receive different input depending on the prompt. * The program is expected to prompt for input and support "normal input editing". * read-char might wait for the user to type something before returning instead of immediately returning a character or end-of-file. From stoffel@cs.tu-berlin.de Tue Jun 4 17:42:18 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07611; Tue, 4 Jun 96 17:42:18 +0200 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id QAA21426; Tue, 4 Jun 1996 16:40:06 +0200 Sender: stoffel@cs.tu-berlin.de Message-Id: <31B44ABE.7F45@cs.tu-berlin.de> Date: Tue, 04 Jun 1996 16:39:58 +0200 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.02 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Re: Error on package redefinition? References: <199606021018.MAA20744@spock.iti.informatik.th-darmstadt.de> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit I have a package definition in my code, and if i loaded my code again, the package definitions caused error messages: > (make-package 'test) # > (make-package 'test) ** - Continuable Error a package with name "TEST" already exists. If you continue (by typing 'continue'): You can input another name. In my case i solved the problem by asking if a package exists with (find-package ...) before i defined it new: (if (not (find-package 'control)) (MAKE-PACKAGE 'control)) Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From nathan@bristol.st.com Tue Jun 4 18:39:06 1996 Return-Path: Received: from daisy (daisy.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08265; Tue, 4 Jun 96 18:39:06 +0200 From: nathan@bristol.st.com Received: by daisy id RAA08499; Tue, 4 Jun 1996 17:12:05 +0100 (BST) Message-Id: <26634.199606041609@finlandia.inmos.co.uk> Subject: Re: problems with INTERACTIVE-STREAM-P To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Tue, 4 Jun 1996 17:09:00 +0100 (BST) In-Reply-To: <199606041254.FAA03818@sayre.sysc.pdx.edu> from "Marcus Daniels" at Jun 4, 96 03:34:16 pm X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Marcus Daniels writes: > Well, it is qualified with "via input redirection", which does work > (with bourne shell): > > $ clisp -q -x '(interactive-stream-p *error-output*)' 2>out 0<&2 > NIL Thanks, I was assuming that *error-output* was a unidirectional stream (thus reading it would be silly), and that interactivity was essentially determined by isatty(fileno). nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From nathan@bristol.st.com Wed Jun 5 10:55:12 1996 Return-Path: Received: from daisy (daisy.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18351; Wed, 5 Jun 96 10:55:12 +0200 From: nathan@bristol.st.com Received: by daisy id JAA04041; Wed, 5 Jun 1996 09:28:09 +0100 (BST) Message-Id: <8.199606050825@finlandia.inmos.co.uk> Subject: Re: problems with INTERACTIVE-STREAM-P To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Wed, 5 Jun 1996 09:25:03 +0100 (BST) In-Reply-To: <9606041219.AA11530@ilog.ilog.fr> from "Bruno Haible" at Jun 4, 96 03:13:03 pm X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Bruno, > > puts T into the output file. I get the same result when I use > > *standard-output* or *terminal-io* too. > > You have redirected the output to a file, but the input part of *terminal-io* > is still referring to your terminal. This is why `interactive-stream-p' > reports T. Yes, this is what I'd missed, I'd assumed the unix convention of stdin, stdout and stderr mapped to *standard-input* *standard-output* and *error-output*. > > You could redirect standard input from /dev/null, but unfortunately CLISP > does not know about /dev/null's special nature. (How do you tell that > a file descriptor is pointing to /dev/null when all you have is the file > descriptor?) err, isatty(3)? Anyway I've solved my problem, with the rather inelegant solution of (zerop (shell "tty -s 0<&1")) nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From haible@ilog.fr Wed Jun 5 20:24:09 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24034; Wed, 5 Jun 96 20:24:09 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA00503; Wed, 5 Jun 1996 19:50:30 +0200 (MET) Date: Wed, 5 Jun 96 19:36:18 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 5 Jun 96 19:36:18 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9606051736.AA18552@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA11285; Wed, 5 Jun 96 19:36:18 +0200 To: clisp-list Subject: Re: Error on package redefinition? In-Reply-To: <31B44ABE.7F45@cs.tu-berlin.de> References: <31B44ABE.7F45@cs.tu-berlin.de> Mark Mueller writes: > I have a package definition in my code, and if i loaded my > code again, the package definitions caused error messages: > > > (make-package 'test) > # > > (make-package 'test) > > ** - Continuable Error > a package with name "TEST" already exists. > If you continue (by typing 'continue'): You can input another name. > > In my case i solved the problem by asking if a package > exists with (find-package ...) before i defined it new: > > (if (not (find-package 'control)) > (MAKE-PACKAGE 'control)) This does not solve the problem, because if you _compile_ your code twice within the same Lisp session, it will still break in CLISP, and have no effect in some other Lisp implementations. Replace > (if (not (find-package 'control)) > (MAKE-PACKAGE 'control)) by (in-package "CONTROL") The IN-PACKAGE function/macro(*) is properly handled in all Common Lisp implementation, whether interpreter or compiler. (*) IN-PACKAGE is a function with special compiler treatment in CLtL1, and a macro in ANSI CL. Bruno Haible email: Software Engineer phone: +33-1-49083585 From haible@ilog.fr Wed Jun 5 20:33:41 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24188; Wed, 5 Jun 96 20:33:41 +0200 Received: from ilog.UUCP by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA00875; Wed, 5 Jun 1996 20:00:05 +0200 (MET) Date: Wed, 5 Jun 96 19:51:41 +0200 Received: from laplace.ilog.fr by ilog.ilog.fr, Wed, 5 Jun 96 19:51:41 +0200 From: haible@ilog.fr (Bruno Haible) Message-Id: <9606051751.AA18853@ilog.ilog.fr> Received: by laplace.ilog.fr (4.1/SMI-4.1) id AA11307; Wed, 5 Jun 96 19:51:41 +0200 To: clisp-list Subject: Re: problems with INTERACTIVE-STREAM-P In-Reply-To: <8.199606050825@finlandia.inmos.co.uk> References: <8.199606050825@finlandia.inmos.co.uk> Nathan Sidwell writes: > I was assuming that *error-output* was a unidirectional stream (thus > reading it would be silly), and that interactivity was essentially > determined by isatty(fileno). Streams can be unidirectional or bidirectional, in Common Lisp as well as in Unix. (Unix sockets are "bi"). INTERACTIVE-STREAM-P queries the input side of the stream. > > (How do you tell that a file descriptor is pointing to /dev/null > > when all you have is the file descriptor?) > err, isatty(3)? Nope, doesn't work. isatty() of a pipe handle is false, so when you run clisp within an Emacs buffer, connected to Emacs via pipes, isatty() will tell you "false", but INTERACTIVE-STREAM-P will say "yes". > Anyway I've solved my problem, with the rather inelegant solution of > (zerop (shell "tty -s 0<&1")) The same argument holds here, as for isatty(). Bruno Haible email: Software Engineer phone: +33-1-49083585 From David.Laplander@nau.edu Wed Jun 12 07:06:41 1996 Return-Path: Received: from logjam.ucc.nau.edu (mailgate.nau.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15532; Wed, 12 Jun 96 07:06:41 +0200 Received: from jan.ucc.nau.edu (jan.ucc.nau.edu) by NAUVAX.UCC.NAU.EDU (PMDF V5.0-6 #2384) id <01I5SPG9H2G0HTTILQ@NAUVAX.UCC.NAU.EDU> for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Tue, 11 Jun 1996 21:31:59 -0700 (MST) Received: (from del@localhost) by jan.ucc.nau.edu (8.7.1/2.12b-nau) id VAA27753; Tue, 11 Jun 1996 21:31:51 -0700 (MST) Date: Tue, 11 Jun 1996 21:31:51 -0700 (MST) From: Dave Laplander Subject: socket functions? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Content-Transfer-Encoding: 7BIT Does anyone know where I can find some information on using CLISP's socket-* family of functions? I'm trying to connect a LISP program running on a linux machine to a network socket on a Windows 95 machine that will output a stream of data upon connection. I've figured out that the solution has to do with make-socket-stream and the other socket-* functions but have had nothing but error messages and frustration trying to figure it out on my own. So if someone could point me to a FAQ or post a bit of code to show me where to start I would be very grateful. Thanks! Dave ----------------------------------------------------------------------------- Dave Laplander "In the old days, being crazy meant something. Support Analyst Nowadays, everybody's crazy." Computing Technology Services -- Charles Manson Northern Arizona University David.Laplander@nau.edu Phone: (520) 523-5007 http://dana.ucc.nau.edu/~del From andromeda!andromeda.ubis.de!jack@tmpmbx.netmbx.de Wed Jun 12 10:16:01 1996 Return-Path: Received: from sunmbx.netmbx.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17484; Wed, 12 Jun 96 10:16:01 +0200 Received: by sunmbx.netmbx.de (/\==/\ Smail3.1.28.1) from tmpmbx.netmbx.de with smtp id ; Wed, 12 Jun 96 09:44 MET DST Received: by tmpmbx.netmbx.de (/\==/\ Smail3.1.28.1 #28.6) id ; Wed, 12 Jun 96 09:37 MES Received: from jacques-henke (bok_pc163) by ubis.de (5.x/SMI-SVR4) id AA25517; Wed, 12 Jun 1996 09:22:56 +0200 Message-Id: <1.5.4.32.19960612072617.002f5ba0@193.25.216.66> X-Sender: jack@193.25.216.66 X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 12 Jun 1996 09:26:17 +0200 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Jacques Henke Subject: Foreign Function Interface Hello , I want to use the Foreign Function Interface of Clisp, but I don't have any documentation. :-( Please send me the commands and a short description how to declare - c-Function - c-Structures and how to load foreign-functions-files (object-files). Many Thanks!! :-) Jacques ----------------------------------------------------------------- Unternehmensberatung fuer integrierte Systeme UBIS GmbH Jacques Henke Alt-Moabit 98 D-10559 Berlin tel: +49 30 399 29 - 753 fax: +49 30 399 29 - 900 e-mail: jack@ubis.de www: http://www.ubis.de ----------------------------------------------------------------- From andromeda!andromeda.ubis.de!jack@tmpmbx.netmbx.de Wed Jun 12 10:16:03 1996 Return-Path: Received: from sunmbx.netmbx.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17497; Wed, 12 Jun 96 10:16:03 +0200 Received: by sunmbx.netmbx.de (/\==/\ Smail3.1.28.1) from tmpmbx.netmbx.de with smtp id ; Wed, 12 Jun 96 09:44 MET DST Received: by tmpmbx.netmbx.de (/\==/\ Smail3.1.28.1 #28.6) id ; Wed, 12 Jun 96 09:37 MES Received: from jacques-henke (bok_pc163) by ubis.de (5.x/SMI-SVR4) id AA25525; Wed, 12 Jun 1996 09:25:52 +0200 Message-Id: <1.5.4.32.19960612072913.00306b5c@193.25.216.66> X-Sender: jack@193.25.216.66 X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 12 Jun 1996 09:29:13 +0200 To: clisp-list From: Jacques Henke Subject: Re: socket functions? At 07:12 12.06.96 +0200, you wrote: > >Does anyone know where I can find some information on using CLISP's >socket-* family of functions? I'm trying to connect a LISP program running >on a linux machine to a network socket on a Windows 95 machine that will >output a stream of data upon connection. > >I've figured out that the solution has to do with make-socket-stream and >the other socket-* functions but have had nothing but error messages and >frustration trying to figure it out on my own. So if someone could point >me to a FAQ or post a bit of code to show me where to start I would be >very grateful. > Hello, perhaps I will have the same problems in the future. Please let me know your results. Many Thanks Jacques > ----------------------------------------------------------------- Unternehmensberatung fuer integrierte Systeme UBIS GmbH Jacques Henke Alt-Moabit 98 D-10559 Berlin tel: +49 30 399 29 - 753 fax: +49 30 399 29 - 900 e-mail: jack@ubis.de www: http://www.ubis.de ----------------------------------------------------------------- From martin@sinera.iiia.csic.es Wed Jun 12 12:00:51 1996 Return-Path: Received: from NADIR.uab.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18793; Wed, 12 Jun 96 12:00:51 +0200 Received: from iiia.csic.es (sinera.iiia.csic.es) by pluto.uab.es (PMDF V4.3-10 #7242) id <01I5TIKUAYB499DHYR@pluto.uab.es>; Wed, 12 Jun 1996 11:25:41 GMT+0200 Received: by iiia.csic.es (5.x/SMI-SVR4) id AA13541; Wed, 12 Jun 1996 11:26:01 +0200 Date: Wed, 12 Jun 1996 11:26:00 +0200 (MET DST) From: Francisco Martin Subject: clisp (Solaris2.4) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Content-Transfer-Encoding: 7BIT Hi folks, What do you know about clisp (Solaris2.4) and UNIX system calls? Regards, Francisco From andromeda!andromeda.ubis.de!jack@tmpmbx.netmbx.de Wed Jun 12 14:48:00 1996 Return-Path: Received: from sunmbx.netmbx.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20552; Wed, 12 Jun 96 14:48:00 +0200 Received: by sunmbx.netmbx.de (/\==/\ Smail3.1.28.1) from tmpmbx.netmbx.de with smtp id ; Wed, 12 Jun 96 14:16 MET DST Received: by tmpmbx.netmbx.de (/\==/\ Smail3.1.28.1 #28.6) id ; Wed, 12 Jun 96 14:09 MES Received: from jacques-henke (bok_pc163) by ubis.de (5.x/SMI-SVR4) id AA26839; Wed, 12 Jun 1996 13:55:05 +0200 Message-Id: <1.5.4.32.19960612115834.00314758@193.25.216.66> X-Sender: jack@193.25.216.66 X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 12 Jun 1996 13:58:34 +0200 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Jacques Henke Subject: FFI >>From sysc.pdx.edu!marcus@tmpmbx.netmbx.de Wed Jun 12 11:12 MET 1996 >Return-Path: >>Received: by tmpmbx.netmbx.de (/\==/\ Smail3.1.28.1 #28.6) > id ; Wed, 12 Jun 96 10:41 MES >Date: Wed, 12 Jun 1996 00:54:02 -0700 >From: Marcus Daniels >To: jack@andromeda.ubis.de >Subject: FFI >Reply-To: marcus@sysc.pdx.edu >Content-Length: 22861 > > > The Foreign Function Call Facility > ================================== > >A foreign function description is written as a Lisp file, >and when compiled it produces a .c file which is then compiled >by the C compiler and may be linked together with lisp.a. > >All symbols relating to the foreign function interface are exported from >the package FFI. To use them, (USE-PACKAGE "FFI"). > >Special FFI forms may appear anywhere in the Lisp file. > > Overview > -------- > >These are the special FFI forms. We have taken a pragmatic approach: >the only foreign languages we support for now are C and ANSI C. > >(DEF-C-TYPE name ) > >(DEF-C-VAR name {option}*) > option ::= > (:name ) > | (:type ) > | (:read-only ) > | (:alloc ) > >(DEF-CALL-OUT name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > | (:language ) > >(DEF-CALL-IN name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > | (:language ) > >(DEF-C-CALL-OUT name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > >(DEF-C-CALL-IN name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > >(DEF-C-STRUCT name ( )*) > >(DEF-C-ENUM { | ( [])}*) > >(ELEMENT c-place {index}*) >(DEREF c-place) >(SLOT c-place slot-name) >(CAST c-place ) > >(TYPEOF c-place) >(SIZEOF c-place), (SIZEOF ) >(BITSIZEOF c-place), (BITSIZEOF ) > >(VALIDP foreign-entity) > >name is any Lisp symbol. > > is a string. > > (Foreign) C types > ----------------- > >Foreign C types are used in the FFI. They are *not* regular Common Lisp >types or CLOS classes. > >A is either a predefined C type or the name of a type defined by >DEF-C-TYPE. > >The simple C types are these: > > Lisp name Lisp equiv C equiv ILU equiv > nil NIL void (o) > boolean (MEMBER NIL T) int BOOLEAN > character STRING-CHAR char SHORT CHARACTER > char INTEGER signed char > uchar INTEGER unsigned char > short INTEGER short > ushort INTEGER unsigned short > int INTEGER int > uint INTEGER unsigned int > long INTEGER long > ulong INTEGER unsigned long > uint8 (UNSIGNED-BYTE 8) uint8 BYTE > sint8 (SIGNED-BYTE 8) sint8 > uint16 (UNSIGNED-BYTE 16) uint16 SHORT CARDINAL > sint16 (SIGNED-BYTE 16) sint16 SHORT INTEGER > uint32 (UNSIGNED-BYTE 32) uint32 CARDINAL > sint32 (SIGNED-BYTE 32) sint32 INTEGER > uint64 (UNSIGNED-BYTE 64) uint64 LONG CARDINAL (*) > sint64 (SIGNED-BYTE 64) sint64 LONG INTEGER (*) > single-float SINGLE-FLOAT float > double-float DOUBLE-FLOAT double >(o) as a result type only. >(*) does not work on all platforms. > >The predefined C types are: > > c-type ::= > > | C-POINTER > | C-STRING > | (C-STRUCT ( )*) > | (C-UNION ( )*) > | (C-ARRAY dimensions) > dimensions ::= number | ({number}*) > | (C-ARRAY-MAX maxdimension) > maxdimension ::= number > | (C-FUNCTION {option}*) > option ::= > (:arguments {(arg-name [ []])}*) > | (:return-type []) > | (:language ) > | (C-PTR ) > | (C-PTR-NULL ) > | (C-ARRAY-PTR ) > >(DEF-C-TYPE name ) >makes name a shortcut for . Note that may already refer >to name. Forward declarations of types are not possible, however. > >The type C-POINTER corresponds to what C calls "void*", an opaque pointer. > >The type C-STRING corresponds to what C calls "char*", a zero-terminated >string. Its Lisp equivalent is a string, without the trailing zero character. > >The type (C-STRUCT class (ident1 type1) ... (ident2 type2)) is equivalent to >what C calls "struct { type1 ident1; ...; type2 ident2; }". Its Lisp >equivalent is: if class is VECTOR, a simple-vector; if class is LIST, a list; >if class is a symbol naming a structure or CLOS class: an instance of this >class, with slots of names ident1,...,ident2. > >The type (C-UNION (ident1 type1) ... (ident2 type2)) is equivalent to what C >calls "union { type1 ident1; ...; type2 ident2; }". Conversion to and from >Lisp assumes that a value is to be viewed as being of type1. > >The type (C-ARRAY type dim1 ... dim2) is equivalent to what C calls >"type [dim1]...[dim2]". Note that when an array is passed as an argument to >a function in C, it is actually passed as a pointer; you therefore have to >write (C-PTR (C-ARRAY ...)) for this argument's type. > >The type (C-ARRAY-MAX type maxdim) is equivalent to what C calls >"type [maxdim]", an array containing up to maxdim elements. The array is >zero-terminated if it contains less than maxdim elements. Conversion from Lisp >of an array with more than maxdim elements silently ignores the superfluous >elements. > >The type (C-PTR type) is equivalent to what C calls "type *": a pointer to >a single item of the given type. > >The type (C-PTR-NULL type) is also equivalent to what C calls >"type *": a pointer to a single item of the given type. C-PTR-NULL >implicits converts NIL into NULL. > >The type (C-ARRAY-PTR type) is equivalent to what C calls "type (*)[]": >a pointer to a zero-terminated array of items of the given type. > >The type (C-FUNCTION (:return-type rtype) (:arguments (arg1 type1 ...) ...)) >designates a C function that can be called according to the given prototype >(rtype (*) (type1, ...)). >The is either :C (denotes K&R C) or :STDC (denotes ANSI C). It >specifies whether the C function has been compiled by a K&R C compiler or by >an ANSI C compiler. >Conversion between C functions and Lisp functions is transparent. > >(DEF-C-STRUCT ( )*) defines to be both a >DEFSTRUCT structure type and a foreign C type with the given slots. > >(DEF-C-ENUM { | ( [])}*) defines s as >constants, similarly to the C declaration enum { [= ], ... }; > >The form (SIZEOF ) returns the size and alignment of a C type, >measured in bytes. > >The form (BITSIZEOF ) returns the size and alignment of a C type, >measured in bits. > >The predicate (VALIDP foreign-entity) returns NIL if the foreign-entity >(e.g. the Lisp equivalent of a C-POINTER) refers to a pointer which is >invalid because it comes from a previous Lisp session. It returns T if >foreign-entity can be used within the current Lisp process. > > Foreign variables > ----------------- > >Foreign variables are variables whose storage is allocated in the foreign >language module. They can nevertheless be evaluated and modified through SETQ, >just as normal variables can, except that the range of allowed values is >limited according to the variable's foreign type. Note that for a foreign >variable X the form (EQL X X) is not necessarily true, since every time X is >evaluated its foreign value is converted to a freshly created Lisp value. > >(DEF-C-VAR name {option}*) > option ::= > (:name ) > | (:type ) > | (:read-only ) > | (:alloc ) > >defines a foreign variable. `name' is the Lisp name, a regular Lisp symbol. > >The :name option specifies the name, as seen from C, as a string. If not >specified, it is derived from the print name of the Lisp name. > >The :type option specifies the variable's foreign type. > >If the :read-only option is specified and non-NIL, it will be impossible >to change the variable's value from within Lisp (using SETQ or similar). > >The :alloc option can be either :NONE or :MALLOC-FREE and defaults to >:NONE. If it is :MALLOC-FREE, any values of type C-STRING, >(C-PTR ...), (C-PTR-NULL ...), (C-ARRAY-PTR ...) within the foreign >value are assumed to be pointers to malloc()-allocated storage, and >when SETQ replaces an old value by a new one, the old storage is freed >using free() and the new storage allocated using malloc(). If it is >:NONE, SETQ assumes that the pointers point to good storage (not >NULL!) and overwrites the old values by the new ones. This is >dangerous (just think of overwriting a string with a longer one or >storing some data in a NULL pointer...) and deprecated. > > Operations on foreign places > ---------------------------- > >A foreign variable `name' defined by DEF-C-VAR defines a "place", i.e. >a form which can also be used as argument to SETF. (An "lvalue" in C >terminology.) The following operations are available on foreign places: > >(ELEMENT place index1 ... indexn) >Array element: If place is of foreign type (C-ARRAY dim1 ... dimn) >and 0 <= index1 < dim1, ..., 0 <= indexn < dimn, this will be the place >corresponding to (aref place index1 ... indexn) or place[index1]...[indexn]. >It is a place of type . >If place is of foreign type (C-ARRAY-MAX dim) and 0 <= index < dim, >this will be the place corresponding to (aref place index) or place[index]. >It is a place of type . > >(DEREF place) Dereference pointer: If place is of foreign type >(C-PTR ) or (C-PTR-NULL ) this will be the place the >pointer points to. It is a place of type . > >(SLOT place slot-name) >Struct or union component: If place is of foreign type >(C-STRUCT ... (slot-name ) ...) or of type >(C-UNION ... (slot-name ) ...), this will be of type . > >(CAST place ) >Type change: A place denoting the same memory locations as the original place, >but of type . > >(TYPEOF place) >returns the corresponding to the place. > >(SIZEOF place) returns the size and alignment of the C type of place, >measured in bytes. > >(BITSIZEOF place) returns the size and alignment of the C type of place, >measured in bits. > > Foreign functions > ----------------- > >Foreign functions are functions which are defined in the foreign language. >There are named foreign functions (imported via DEF-CALL-OUT or created via >DEF-CALL-IN) and anonymous foreign functions; they arise through conversion >of function pointers. > >A "call-out" function is a foreign function called from Lisp: control flow >temporarily leaves Lisp. >A "call-in" function is a Lisp function called from the foreign language: >control flow temporary enters Lisp. > >(DEF-CALL-OUT name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > | (:language ) > >defines a named call-out function. Any Lisp function call to #'name is >redirected to call the C function . > >DEF-C-CALL-OUT is equivalent to DEF-CALL-OUT with :LANGUAGE :C. > >(DEF-CALL-IN name {option}*) > option ::= > (:name ) > | (:arguments {(arg-name [ []])}*) > | (:return-type []) > | (:language ) > >defines a named call-in function. Any C function call to the C function > is redirected to call the Lisp function #'name. > >DEF-C-CALL-IN is equivalent to DEF-CALL-IN with :LANGUAGE :C. > > Argument and result passing conventions > --------------------------------------- > >When passed to and from functions, allocation of arguments and results is >handled as follows: > >Values of , C-POINTER are passed on the stack, with dynamic >extent. The is effectively ignored. > >Values of type C-STRING, (C-PTR ...), (C-PTR-NULL ...), (C-ARRAY-PTR ...) >need storage. The specifies the allocation policy: > is :NONE means that no storage is allocated. > is :ALLOCA means allocation of storage on the stack, > which has dynamic extent. > is :MALLOC-FREE means that storage will be allocated > via malloc() and freed via free(). >If no is specified, the default is :NONE for most >types, but :ALLOCA for C-STRING, (C-PTR ...), (C-PTR-NULL ...), and > (C-ARRAY-PTR ...) and for :OUT arguments. [Subject to change!] >The :MALLOC-FREE policy provides the ability to pass arbitrarily nested >structs containing pointers pointing to structs ... within a single conversion. > >For call-out functions: > For arguments passed from Lisp to C: > If is :MALLOC-FREE, > Lisp allocates the storage using malloc() and never deallocates it. > The C function is supposed to call free() when done with it. > If is :ALLOCA, > Lisp allocates the storage on the stack, with dynamic extent. It is > freed when the C function returns. > If is :NONE, > Lisp assumes that the pointer already points to a valid area of the > proper size and puts the result value there. This is dangerous! and > deprecated. > For results passed from C to Lisp: > If is :MALLOC-FREE, > Lisp calls free() on it when done. > If is :NONE, > Lisp does nothing. >For call-in functions: > For arguments passed from C to Lisp: > If is :MALLOC-FREE, > Lisp calls free() on it when done. > If is :ALLOCA or :NONE, > Lisp does nothing. > For results passed from Lisp to C: > If is :MALLOC-FREE, > Lisp allocates the storage using malloc() and never deallocates it. > The C function is supposed to call free() when done with it. > If is :NONE, > Lisp assumes that the pointer already points to a valid area of the > proper size and puts the result value there. This is dangerous! and > deprecated. > >A function parameter's may be >either :IN (means: read-only): > The caller passes information to the callee. >or :OUT (means: write-only): > The callee passes information back to the caller on return. > When viewed as a Lisp function, there is no Lisp argument corresponding > to this, instead it means an additional return value. >or :IN-OUT (means: read-write): > Information is passed from the caller to the callee and then back to > the caller. When viewed as a Lisp function, the ":OUT" value is > returned as an additional multiple value. >The default is :IN. > >[Currently, only :IN is fully implemented. :OUT works only with > = :ALLOCA.] > >On AmigaOS, may not be :MALLOC-FREE because there is no commonly >used malloc()/free() library function. > >On AmigaOS, the may be followed by a register specification, >any of the symbols :D0, :D1, :D2, :D3, :D4, :D5, :D6, :D7, :A0, :A1, :A2, >:A3, :A4, :A5, :A6, each representing one 680x0 register. This works only >for integral types: integers, pointers, C-STRING, C-FUNCTION. > >Passing C-STRUCT, C-UNION, C-ARRAY, C-ARRAY-MAX values as arguments (not via >pointers) is only possible to the extent the C compiler supports it. Most C >compilers do it right, but some C compilers (such as gcc on hppa) have >problems with this. > > Examples > -------- > >Ex. 1: The C declaration > > struct foo { > int a; > struct foo * b[100]; > }; > >corresponds to > > (def-c-struct foo > (a int) > (b (c-array (c-ptr foo) 100)) > ) > >The element access > > struct foo f; > f.b[7].a > >corresponds to > > (declare (type foo f)) > (foo-a (aref (foo-b f) 7)) or (slot-value (aref (slot-value f 'b) 7) 'a) > >Ex. 2: Here is an example of an external C variable and some accesses: > > struct bar { > short x, y; > char a, b; > int z; > struct bar * n; > }; > > extern struct bar * my_struct; > > my_struct->x++; > my_struct->a = 5; > my_struct = my_struct->n; > >corresponds to > > (def-c-struct bar > (x short) > (y short) > (a char) > (b char) ; or (b character) if it represents a character, not a number > (z int) > (n (c-ptr bar)) > ) > > (def-c-var my_struct (:type (c-ptr bar))) > > (setq my_struct (let ((s my_struct)) (incf (slot-value s 'x)) s)) > or (incf (slot my_struct 'x)) > (setq my_struct (let ((s my_struct)) (setf (slot-value s 'a) 5) s)) > or (setf (slot my_struct 'a) 5) > (setq my_struct (slot-value my_struct 'n)) > or (setq my_struct (deref (slot my_struct 'n))) > >Ex. 3: An example for calling an external function: >On ANSI C systems, contains the declarations > > typedef struct { > int quot; /* Quotient */ > int rem; /* Remainder */ > } div_t; > extern div_t div (int numer, int denom); > >This translates to > > (def-c-struct div_t > (quot int) > (rem int) > ) > (def-c-call-out div (:arguments (numer int) (denom int)) > (:return-type div_t) > ) > >Sample call from within Lisp: > > > (div 20 3) > #S(DIV :QUOT 6 :REM 2) > >Ex. 4: Another example for calling an external function: > >Suppose the following is defined in a file "cfun.c": > > struct cfunr { int x; char *s; }; > struct cfunr * cfun (i,s,r,a) > int i; > char *s; > struct cfunr * r; > int a[10]; > { > int j; > struct cfunr * r2; > printf("i = %d\n", i); > printf("s = %s\n", s); > printf("r->x = %d\n", r->x); > printf("r->s = %s\n", r->s); > for (j = 0; j < 10; j++) printf("a[%d] = %d.\n", j, a[j]); > r2 = (struct cfunr *) malloc (sizeof (struct cfunr)); > r2->x = i+5; > r2->s = "A C string"; > return r2; > } > >It is possible to call this function from Lisp using the file "callcfun.lsp" >(don't call it "cfun.lsp" - COMPILE-FILE would overwrite "cfun.c") whose >contents is: > > (in-package "TEST-C-CALL" :use '("LISP" "FFI")) > (def-c-struct cfunr (x int) (s c-string)) > (def-c-call-out cfun (:arguments (i int) > (s c-string) > (r (c-ptr cfunr) :in :alloca) > (a (c-ptr (c-array int 10)) :in :alloca) > ) > (:return-type (c-ptr cfunr)) > ) > (defun call-cfun () > (cfun 5 "A Lisp string" (make-cfunr :x 10 :s "Another Lisp string") > '#(0 1 2 3 4 5 6 7 8 9) > ) ) > >Use the module facility: > > $ clisp-link create-module-set cfun callcfun.c > $ cc -O -c cfun.c > $ cd cfun > $ ln -s ../cfun.o cfun.o > Add cfun.o to NEW_LIBS and NEW_FILES in link.sh. > $ cd .. > $ base/lisp.run -M base/lispinit.mem -c callcfun.lsp > $ clisp-link add-module-set cfun base base+cfun > $ base+cfun/lisp.run -M base+cfun/lispinit.mem -i callcfun > > (test-c-call::call-cfun) > i = 5 > s = A Lisp string > r->x = 10 > r->s = Another Lisp string > a[0] = 0. > a[1] = 1. > a[2] = 2. > a[3] = 3. > a[4] = 4. > a[5] = 5. > a[6] = 6. > a[7] = 7. > a[8] = 8. > a[9] = 9. > #S(TEST-C-CALL::CFUNR :X 10 :S "A C string") > > > $ rm -r base+cfun > >Note that there is a memory leak here: The return value r2 of cfun() is >malloc()ed but never free()d. Specifying > (:return-type (c-ptr cfunr) :malloc-free) >is not an alternative because this would also free(r2->x) but r2->x is a >pointer to static data. > >Ex. 5: To sort an array of double-floats using the Lisp function SORT >instead of the C library function qsort(), one can use the following >interface code "sort1.c". The main problem is to pass a variable-sized array. > > extern void lispsort_begin (int); > void* lispsort_function; > void lispsort_double (int n, double * array) > { > double * sorted_array; > int i; > lispsort_begin(n); /* store #'sort2 in lispsort_function */ > sorted_array = ((double * (*) (double *)) lispsort_function) (array); > for (i = 0; i < n; i++) array[i] = sorted_array[i]; > free(sorted_array); > } > >This is accompanied by "sort2.lsp": > > (use-package "FFI") > (def-call-in lispsort_begin (:arguments (n int)) > (:return-type nil) > (:language :stdc) > ) > (def-c-var lispsort_function (:type c-pointer)) > (defun lispsort_begin (n) > (setf (cast lispsort_function > `(c-function > (:arguments (v (c-ptr (c-array double-float ,n)))) > (:return-type (c-ptr (c-array double-float ,n)) > :malloc-free > ) ) > ) > #'sort2 > ) ) > (defun sort2 (v) > (declare (type vector v)) > (sort v #'<) > ) > >To test this, use the following test file "sorttest.lsp": > > (def-call-out sort10 > (:name "lispsort_double") > (:language :stdc) > (:arguments (n int) > (array (c-ptr (c-array double-float 10)) > :in-out > ) ) ) > >Now try > > $ clisp-link create-module-set sort sort2.c sorttest.c > $ cc -O -c sort1.c > $ cd sort > $ ln -s ../sort1.o sort1.o > Add sort1.o to NEW_LIBS and NEW_FILES in link.sh. > $ cd .. > $ base/lisp.run -M base/lispinit.mem -c sort2.lsp sorttest.lsp > $ clisp-link add-module-set sort base base+sort > $ base+sort/lisp.run -M base+sort/lispinit.mem -i sort2 sorttest > > (sort10 10 '#(0.501d0 0.528d0 0.615d0 0.550d0 0.711d0 > 0.523d0 0.585d0 0.670d0 0.271d0 0.063d0)) > #(0.063d0 0.271d0 0.501d0 0.523d0 0.528d0 0.55d0 0.585d0 0.615d0 0.67d0 0.711d0) > $ rm -r base+sort > > > > ----------------------------------------------------------------- Unternehmensberatung fuer integrierte Systeme UBIS GmbH Jacques Henke Alt-Moabit 98 D-10559 Berlin tel: +49 30 399 29 - 753 fax: +49 30 399 29 - 900 e-mail: jack@ubis.de www: http://www.ubis.de ----------------------------------------------------------------- From stoffel@cs.tu-berlin.de Wed Jun 12 14:58:50 1996 Return-Path: Received: from mail.cs.tu-berlin.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20726; Wed, 12 Jun 96 14:58:50 +0200 Received: from lincke (stoffel@lincke.cs.tu-berlin.de [130.149.29.47]) by mail.cs.tu-berlin.de (8.6.12/8.6.12) with SMTP id NAA26807; Wed, 12 Jun 1996 13:57:09 +0200 Sender: stoffel@cs.tu-berlin.de Message-Id: <31BEB090.4983@cs.tu-berlin.de> Date: Wed, 12 Jun 1996 13:57:04 +0200 From: Mark Mueller Organization: TU Berlin X-Mailer: Mozilla 2.02 (X11; I; SunOS 5.5 sun4m) Mime-Version: 1.0 To: clisp-list Subject: Re: Foreign Function Interface (and Sockets) References: <1.5.4.32.19960612072617.002f5ba0@193.25.216.66> Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Jacques Henke wrote: > > Hello , > > I want to use the Foreign Function Interface of Clisp, but I don't have > any documentation. :-( > > Please send me the commands and a short description how to declare > > - c-Function > - c-Structures > > and how to load foreign-functions-files (object-files). > > Many Thanks!! :-) > Hi In every clisp-distribution is a file doc/impnotes.txt where you find informations about the Foreign Function Interface and Socket Streams Greetings Mark -- Mark Müller * Institut für Angewandte Informatik * FG Methoden der KI Sekr. 5-8 * Franklinstr.28-29 * 10587 Berlin * Tel.: 314-21005 Email: pandur@cs.tu-berlin.de * stoffel@cs.tu-berlin.de WWW: http://www.cs.tu-berlin.de/~pandur/ From andromeda!andromeda.ubis.de!jack@tmpmbx.netmbx.de Wed Jun 12 16:46:12 1996 Return-Path: Received: from sunmbx.netmbx.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22050; Wed, 12 Jun 96 16:46:12 +0200 Received: by sunmbx.netmbx.de (/\==/\ Smail3.1.28.1) from tmpmbx.netmbx.de with smtp id ; Wed, 12 Jun 96 16:14 MET DST Received: by tmpmbx.netmbx.de (/\==/\ Smail3.1.28.1 #28.6) id ; Wed, 12 Jun 96 16:07 MES Received: from jacques-henke (bok_pc163) by ubis.de (5.x/SMI-SVR4) id AA02921; Wed, 12 Jun 1996 15:45:25 +0200 Message-Id: <1.5.4.32.19960612134855.002f46b4@193.25.216.66> X-Sender: jack@193.25.216.66 X-Mailer: Windows Eudora Light Version 1.5.4 (32) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 12 Jun 1996 15:48:55 +0200 To: clisp-list From: Jacques Henke Subject: Re: Foreign Function Interface (and Sockets) Halllo Mark, > >Hi > >In every clisp-distribution is a file doc/impnotes.txt >where you find informations about the Foreign Function Interface >and Socket Streams > Danke, ich hab's inzwichen auch schon gefunden. Gruss Jacques ----------------------------------------------------------------- Unternehmensberatung fuer integrierte Systeme UBIS GmbH Jacques Henke Alt-Moabit 98 D-10559 Berlin tel: +49 30 399 29 - 753 fax: +49 30 399 29 - 900 e-mail: jack@ubis.de www: http://www.ubis.de ----------------------------------------------------------------- From hoehle@zeus.gmd.de Thu Jun 13 11:16:35 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03564; Thu, 13 Jun 96 11:16:35 +0200 Received: by diva.gmd.de with UUCP id AA07595 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Thu, 13 Jun 1996 10:39:15 +0200 Date: Thu, 13 Jun 1996 10:39:15 +0200 Message-Id: <199606130839.AA07595@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: documentation about creating modules? Hi, Am I mistaken or is the only "documentation" about how to contruct a module found by looking at existing modules, e.g. src/stdwin.d contrib/wildcard.tar.z contrib/regexp.tar.z and my never_publicly_released affi.d The file doc/modules.txt just explains how to link modules on UNIX, not how to create them. Are there any other sources of information? Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From marcus@sysc.pdx.edu Thu Jun 13 12:14:17 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04333; Thu, 13 Jun 96 12:14:17 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id CAA17734; Thu, 13 Jun 1996 02:38:45 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id CAA16486; Thu, 13 Jun 1996 02:38:33 -0700 Date: Thu, 13 Jun 1996 02:38:33 -0700 Message-Id: <199606130938.CAA16486@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: documentation about creating modules? In-Reply-To: <199606130839.AA07595@diva.gmd.de> References: <199606130839.AA07595@diva.gmd.de> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JH" == Joerg Hoehle writes: JH> Am I mistaken or is the only "documentation" about how to contruct JH> a module found by looking at existing modules, e.g. src/stdwin.d JH> contrib/wildcard.tar.z contrib/regexp.tar.z The `queens' module is a simple example (see callqueens.c for a template). stdwin.d can be setup as a module too (see inside the STDWIN_MODULE ifdefs). (wildcard and regexp use the FFI, so they aren't really modules) doc/module.txt, doc/extend.txt, and the source is about the extent of the information available on modules. From hoehle@zeus.gmd.de Thu Jun 13 14:14:27 1996 Return-Path: Received: from mail.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05696; Thu, 13 Jun 96 14:14:27 +0200 Received: from zeus.gmd.de (zeus) by mail.gmd.de with SMTP id AA27633 (5.67b8/IDA-1.5 for ); Thu, 13 Jun 1996 13:39:34 +0200 Received: from avanti.gmd.de (avanti) by zeus.gmd.de with SMTP id AA11704 (5.67b8/IDA-1.5 for ); Thu, 13 Jun 1996 13:35:21 +0200 Received: by avanti.gmd.de (5.x/SMI-SVR4) id AA24303; Thu, 13 Jun 1996 13:39:32 +0200 Date: Thu, 13 Jun 1996 13:39:32 +0200 Message-Id: <9606131139.AA24303@avanti.gmd.de> From: Joerg.Hoehle@gmd.de (Joerg Hoehle) To: clisp-list Subject: documentation about creating modules? In-Reply-To: <199606130938.CAA16486@sayre.sysc.pdx.edu> References: <199606130938.CAA16486@sayre.sysc.pdx.edu> Content-Type: text Marcus Daniels writes: > >>>>> "JH" == Joerg Hoehle writes: > The `queens' module is a simple example (see callqueens.c for a template). > stdwin.d can be setup as a module too (see inside the STDWIN_MODULE ifdefs). My opinion is that `queens' is not a module in the sense of CLISP, because it requires you to modify subr.d and constsym.d so you must recompile everything. It does not use the modules.[dh] feature. You can't add queens to an existing lisp.a. > doc/module.txt, doc/extend.txt, and the source is about the > extent of the information available on modules. Extend.txt tells how to add files (non-modules) like `queens' to CLISP (recompiling everything), modules.txt tells the user how to add dynamic modules to a given lisp.a (UNIX only) but neither explain how to create an own module from scratch. Src/stdwin.d and src/foreign1.lsp seem to be the only places where to gather information about the structure of a module. Maybe what's missing is queensmod, `queens' as a CLISP module, adding a few #ifdef QUEENS_AS_MODULE to callqueens.d. I can do that. But then there's still documentation missing. Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From haible@ilog.fr Thu Jun 13 18:46:25 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08649; Thu, 13 Jun 96 18:46:25 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA25493; Thu, 13 Jun 1996 18:11:20 +0200 (MET) Received: from (laplace [192.31.27.65]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id QAA23918; Thu, 13 Jun 1996 16:56:41 +0200 (MET DST) From: Bruno Haible Received: by (4.1/8.6.12) id AA07885 for haible@mailhost; Thu, 13 Jun 96 16:56:41 +0200 Date: Thu, 13 Jun 96 16:56:41 +0200 Message-Id: <9606131456.AA07885@> To: clisp-list Subject: Re: documentation about creating modules? In-Reply-To: <9606131139.AA24303@avanti.gmd.de> References: <9606131139.AA24303@avanti.gmd.de> Joerg Hoehle writes: > Am I mistaken or is the only "documentation" about how to contruct a > module found by looking at existing modules, You are right. This doc has not been written yet. > e.g. src/stdwin.d > contrib/wildcard.tar.z > contrib/regexp.tar.z Don't look at contrib/wildcard.tar.z and contrib/regexp.tar.z, they are old and predate the FFI. > The file doc/modules.txt just explains how to link modules on UNIX, > not how to create them. Look at clispsrc-wildcard.tar.z and clispsrc-regexp.tar.z. The preferred way to write CLISP modules (real modules, which can be linked to a complete lisp.a without recompiling) is to use the FFI. So, in your module, you include - the .c/.h source of your module, - a .lsp file with def-c-call-out declaration, - a .lsp file with higher level functionality, - documentation, - a link.sh file which defines some parameters, described in modules.txt. Bruno Haible email: Software Engineer phone: +33-1-49083585 From marcus@sysc.pdx.edu Thu Jun 13 21:45:32 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10451; Thu, 13 Jun 96 21:45:32 +0200 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Thu, 13 Jun 1996 21:02:39 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id MAA18117; Thu, 13 Jun 1996 12:00:46 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id MAA17348; Thu, 13 Jun 1996 12:00:34 -0700 Date: Thu, 13 Jun 1996 12:00:34 -0700 Message-Id: <199606131900.MAA17348@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: documentation about creating modules? In-Reply-To: <9606131139.AA24303@avanti.gmd.de> References: <9606131139.AA24303@avanti.gmd.de> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JH" == Joerg Hoehle writes: JH> My opinion is that `queens' is not a module in the sense of CLISP, JH> because it requires you to modify subr.d and constsym.d so you JH> must recompile everything. It does not use the modules.[dh] JH> feature. You can't add queens to an existing lisp.a. Yes, I used the word "module" to mean "extension module"; a way to interface to CLISP at a low level. Although it is preferable in almost all cases to use the FFI for adding features to CLISP, it is actually possible to load up `queens' without recompiling any of CLISP. Like this: 1) go to your build directory of CLISP and make a directory "queens". 2) Copy or link in these files from src/queens into "queens". Makefile, callqueens.c, link.sh, queens.c 3) Then link in clisp.h or just tweak the Makefile so it can find the build directory. 4) Finally, go back to the build directory and type: clisp-link add-module-set queens base base+queens The lisp.run and lispinit.mem you get will have the `queens' function installed. JH> Maybe what's missing is queensmod, `queens' as a CLISP module, JH> adding a few #ifdef QUEENS_AS_MODULE to callqueens.d. I can do JH> that. But then there's still documentation missing. You must be using an old version of CLISP. From kehr@iti.informatik.th-darmstadt.de Tue Jun 18 18:34:42 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15745; Tue, 18 Jun 96 18:34:42 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id RAA66388 for ; Tue, 18 Jun 1996 17:58:57 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id RAA19809; Tue, 18 Jun 1996 17:58:55 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id RAA22765; Tue, 18 Jun 1996 17:58:55 +0200 From: Roger Kehr Message-Id: <199606181558.RAA22765@spock.iti.informatik.th-darmstadt.de> Subject: clisp running on HP-UX 9.x somewhere? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (clisp-mailing-list) Date: Tue, 18 Jun 1996 17:58:55 +0200 (MESZ) X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 648 Hi, I'm currently trying to get clisp-1996-05-30 running on HP-UX 9.05 on an 9000/712 The compilation with gcc-2.7.0 runs fine but the final linking step for lisp.run fails with a core-dump through /bin/ld. I figured out that linking `eval.o' is responsible for this error, but I don't know how to continue. I also checked the HP-news-FAQ but found nothing valuable for this problem. Any comments and hits would be very helpful. Bye. -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From jord@gnawk.dial.eunet.es Wed Jun 19 01:49:52 1996 Return-Path: Received: from goya.eunet.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20005; Wed, 19 Jun 96 01:49:52 +0200 Received: from gnawk.dial.eunet.es (gnawk.dial.eunet.es [193.127.16.30]) by goya.eunet.es (8.7.5/13.33) with SMTP id BAA24016 for ; Wed, 19 Jun 1996 01:07:51 +0200 (MET DST) Received: by gnawk.dial.eunet.es (4.0/SMI-4.0) id AA00356; Wed, 19 Jun 96 00:34:06 +0200 From: jord@gnawk.dial.eunet.es (Juan Jordana Jord) Message-Id: <9606182234.AA00356@gnawk.dial.eunet.es> Subject: EXPLODE/IMPLODE equivalents To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Wed, 19 Jun 1996 00:34:04 +0200 (MET DST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Is there any CLISP equivalent to the atom manipulating functions IMPLODE and EXPLODE ?? (also ATOMCAR seems undefined even though readline shows it ) -- / __ __ /__ _ __/__ __ _ __//_//_/_/ / __//_// /_//_/_/ //_/_ jord@gnawk.dial.eunet.es From marcus@sysc.pdx.edu Wed Jun 19 05:32:57 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22200; Wed, 19 Jun 96 05:32:57 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id TAA23614; Tue, 18 Jun 1996 19:56:43 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id TAA00319; Tue, 18 Jun 1996 19:56:29 -0700 Date: Tue, 18 Jun 1996 19:56:29 -0700 Message-Id: <199606190256.TAA00319@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: EXPLODE/IMPLODE equivalents In-Reply-To: <9606182234.AA00356@gnawk.dial.eunet.es> References: <9606182234.AA00356@gnawk.dial.eunet.es> Reply-To: marcus@sysc.pdx.edu >>>>> "you" == Juan Jordana Jord writes: you> Is there any CLISP equivalent to the atom manipulating functions you> IMPLODE and EXPLODE ?? Do you mean something to convert between symbol names and symbol strings? Like: (coerce (symbol-name 'test) 'list) (also, MAKE-SYMBOL, FIND-SYMBOL, INTERN, etc..) From nathan@bristol.st.com Wed Jun 19 11:54:09 1996 Return-Path: Received: from hawkweed (hawkweed.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA26524; Wed, 19 Jun 96 11:54:09 +0200 From: nathan@bristol.st.com Received: by hawkweed id KAA05981; Wed, 19 Jun 1996 10:19:37 +0100 (BST) Message-Id: <5534.199606190921@finlandia.inmos.co.uk> Subject: Re: EXPLODE/IMPLODE equivalents To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Wed, 19 Jun 1996 10:21:30 +0100 (BST) In-Reply-To: <9606182234.AA00356@gnawk.dial.eunet.es> from "Juan Jordana Jord" at Jun 19, 96 02:00:26 am X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Juan Jordana Jord writes: > > > Is there any CLISP equivalent to the atom manipulating functions > IMPLODE and EXPLODE ?? > (also ATOMCAR seems undefined even though readline shows it ) CLISP has strings as first class objects, therefore IMPLODE and EXPLODE are not required. To get at the characters in a symbol use princ-to-string and then elt. To create a symbol from a string use read-from-string. to stick characters together, either use a string array with a fill pointer or use concatenate. nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From hoehle@zeus.gmd.de Wed Jun 19 14:22:21 1996 Return-Path: Received: from mail.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA28058; Wed, 19 Jun 96 14:22:21 +0200 Received: from diva.gmd.de (diva) by mail.gmd.de with SMTP id AA10638 (5.67b8/IDA-1.5 for ); Wed, 19 Jun 1996 13:46:26 +0200 Received: by diva.gmd.de with UUCP id AA11621 (5.67b8/IDA-1.5 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de); Wed, 19 Jun 1996 13:43:44 +0200 Date: Wed, 19 Jun 1996 13:43:44 +0200 Message-Id: <199606191143.AA11621@diva.gmd.de> From: Joerg.Hoehle@gmd.de (Joerg Hoehle) To: clisp-list Subject: Re: EXPLODE/IMPLODE equivalents In-Reply-To: <5534.199606190921@finlandia.inmos.co.uk> References: <5534.199606190921@finlandia.inmos.co.uk> Hi, Juan Jordana Jord writes: > IMPLODE and EXPLODE ?? This is a Lisp FAQ and not specific to CLISP: : Subject: [2-3] What is the equivalent of EXPLODE and IMPLODE in Common Lisp? Please refer to it. nathan@bristol.st.com writes: > CLISP has strings as first class objects, therefore IMPLODE and EXPLODE > are not required. To get at the characters in a symbol use princ-to-string Better use the more specific functions: > (char (symbol-name 'bar) 1) #\A SCHAR could probably be used instead of CHAR because it's likely (?) that symbol names are of type simple-string. > and then elt. To create a symbol from a string use read-from-string. READ-FROM-STRING is generally not good, because the result depends on whether the readtable preserves the case of characters. The default readtable will uppercase names. Furthermore, it will not work with unusual characters. Use INTERN instead. However old code using IMPLODE and EXPLODE will probably only know about alphanumeric characters that are all uppercase. > (read-from-string "foo") FOO ; 3 > (intern "foo") |foo| ; NIL > (intern (string-upcase "foo")) FOO ; :INTERNAL Bye, Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From jord@gnawk.dial.eunet.es Thu Jun 20 03:41:09 1996 Return-Path: Received: from goya.eunet.es by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06990; Thu, 20 Jun 96 03:41:09 +0200 Received: from gnawk.dial.eunet.es (gnawk.dial.eunet.es [193.127.16.30]) by goya.eunet.es (8.7.5/13.33) with SMTP id CAA11258 for ; Thu, 20 Jun 1996 02:54:19 +0200 (MET DST) Received: by gnawk.dial.eunet.es (4.0/SMI-4.0) id AA00549; Thu, 20 Jun 96 02:52:59 +0200 From: jord@gnawk.dial.eunet.es (Juan Jordana Jord) Message-Id: <9606200052.AA00549@gnawk.dial.eunet.es> Subject: Re: EXPLODE/IMPLODE equivalents To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Thu, 20 Jun 1996 02:52:57 +0200 (MET DST) In-Reply-To: <199606190256.TAA00319@sayre.sysc.pdx.edu> from "Marcus Daniels" at Jun 19, 96 05:38:43 am X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Thank you to all answering my question, I'll go also through the FAQ. Anyway I thought there should be something more efficient capable of directly yielding (F O O) out of (EXPLODE 'FOO) -- jord@gnawk.dial.eunet.es From haible@ilog.fr Mon Jun 24 21:48:55 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24952; Mon, 24 Jun 96 21:48:55 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA13921; Mon, 24 Jun 1996 21:11:59 +0200 (MET) Received: from (laplace [192.31.27.65]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id VAA25988; Mon, 24 Jun 1996 21:08:21 +0200 (MET DST) From: Bruno Haible Received: by (4.1/8.6.12) id AA15598 for haible@mailhost; Mon, 24 Jun 96 21:08:21 +0200 Date: Mon, 24 Jun 96 21:08:21 +0200 Message-Id: <9606241908.AA15598@> To: clisp-list Subject: Re: clisp running on HP-UX 9.x somewhere? In-Reply-To: <199606181558.RAA22765@spock.iti.informatik.th-darmstadt.de> References: <199606181558.RAA22765@spock.iti.informatik.th-darmstadt.de> Roger Kehr writes: > > I'm currently trying to get clisp-1996-05-30 running on > > HP-UX 9.05 on an 9000/712 > > The compilation with gcc-2.7.0 runs fine but the final linking step > for lisp.run fails with a core-dump through /bin/ld. Add -DNO_FAST_DISPATCH to the CFLAGS in the makefile and recompile. Bruno Haible email: Software Engineer phone: +33-1-49083585 From kurihara@erika.hit.ac.jp Tue Jun 25 05:38:42 1996 Return-Path: Received: from erika.hit.ac.jp by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29505; Tue, 25 Jun 96 05:38:42 +0200 Received: from erika.hit.ac.jp (kurihara@localhost [127.0.0.1]) by erika.hit.ac.jp (8.6.12+2.4W/3.3W9) with ESMTP id MAA07083 for ; Tue, 25 Jun 1996 12:01:24 +0900 Message-Id: <199606250301.MAA07083@erika.hit.ac.jp> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de X-Mailer: Mew version 1.06 on Emacs 19.28.1, Mule 2.3 Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Date: Tue, 25 Jun 1996 12:01:23 +0900 From: Masahito Kurihara unsubscribe clisp-list From aaronn@linfield.edu Tue Jun 25 07:12:12 1996 Return-Path: Received: from linfield.edu (calvin.linfield.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01292; Tue, 25 Jun 96 07:12:12 +0200 Received: by linfield.edu (5.0/SMI-SVR4) id AA13252; Mon, 24 Jun 1996 21:34:50 +0800 Date: Mon, 24 Jun 1996 21:34:49 -0700 (PDT) From: Aaron Ben Neerenberg Subject: To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Content-Length: 24 unsubscribe clisp-list From kehr@iti.informatik.th-darmstadt.de Tue Jun 25 16:28:11 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06853; Tue, 25 Jun 96 16:28:11 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id PAA27031 for ; Tue, 25 Jun 1996 15:51:13 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id PAA24271; Tue, 25 Jun 1996 15:51:11 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id PAA14097; Tue, 25 Jun 1996 15:51:10 +0200 From: Roger Kehr Message-Id: <199606251351.PAA14097@spock.iti.informatik.th-darmstadt.de> Subject: Re: clisp running on HP-UX 9.x somewhere? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Tue, 25 Jun 1996 15:51:09 +0200 (MESZ) In-Reply-To: <9606241908.AA15598@> from "Bruno Haible" at Jun 24, 96 09:52:09 pm X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 632 Hallo, > Roger Kehr writes: > > > > I'm currently trying to get clisp-1996-05-30 running on > > > > HP-UX 9.05 on an 9000/712 > > > > The compilation with gcc-2.7.0 runs fine but the final linking step > > for lisp.run fails with a core-dump through /bin/ld. > > Add -DNO_FAST_DISPATCH to the CFLAGS in the makefile and recompile. Wir haben das bereits herusgefunden und Marcus Daniels wei"s schon bescheid. Trotzdem Danke. Ciao -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From olmi@iroe.iroe.fi.cnr.it Wed Jun 26 11:15:34 1996 Return-Path: Received: from iroe.iroe.fi.cnr.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18782; Wed, 26 Jun 96 11:15:34 +0200 Received: from jedi by iroe.iroe.fi.cnr.it (5.4R3.10/200.1.1.4) id AA10312; Wed, 26 Jun 1996 10:37:59 +0200 Date: Wed, 26 Jun 1996 10:37:59 +0200 Message-Id: <9606260837.AA10312@iroe.iroe.fi.cnr.it> X-Sender: olmi@iroe.iroe.fi.cnr.it X-Mailer: Windows Eudora Light Version 1.5.2 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Roberto Olmi Subject: setq with memory I am a lisp beginner, so my question could have a straightforward answer. I am trying to implement a simple function MY-SETQ which does exactly what SETQ does, and records in a list *MEM* the actions done. The objective is to have the possibility of seeing (and executing, by MAPCAR and EVAL) the assignements done. I have implemented MY-SETQ as follows: (defun my-setq (x y) (set x (eval y)) (setq *MEM* (cons (list 'setq x y) *MEM*))) After an inizialization of *MEM* to nil, the commands look like these: (my-setq 'x ''abc) (my-setq 'y ''(sin 1.2345)) and *MEM* is, in the above case: ((setq y '(sin 1.2345)) (setq x 'abc)) so that, for example, (mapcar 'eval *MEM*) does the required re-assignement. The question is: how can I implement MY-SETQ such that the arguments are written in a more "natural" way, to say: (my-setq x 'abc) ? Any suggestion will be greatly appreciated. -------------------------------- Dr. Roberto Olmi IROE-CNR "Nello Carrara" Via Panciatichi 64 50127 Firenze (Italy) -------------------------------- From kehr@iti.informatik.th-darmstadt.de Wed Jun 26 16:31:16 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA21973; Wed, 26 Jun 96 16:31:16 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id PAA68541 for ; Wed, 26 Jun 1996 15:54:08 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id PAA25052; Wed, 26 Jun 1996 15:54:06 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id PAA14341; Wed, 26 Jun 1996 15:54:06 +0200 From: Roger Kehr Message-Id: <199606261354.PAA14341@spock.iti.informatik.th-darmstadt.de> Subject: Re: setq with memory To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Wed, 26 Jun 1996 15:54:05 +0200 (MESZ) In-Reply-To: <9606260837.AA10312@iroe.iroe.fi.cnr.it> from "Roberto Olmi" at Jun 26, 96 11:19:21 am X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 1361 Hi, > I am a lisp beginner, so my question could have a straightforward answer. > > I am trying to implement a simple function MY-SETQ which does exactly what > SETQ does, and records in a list *MEM* the actions done. The objective is to > have the possibility of seeing (and executing, by MAPCAR and EVAL) the > assignements done. > > I have implemented MY-SETQ as follows: > > (defun my-setq (x y) > (set x (eval y)) > (setq *MEM* (cons (list 'setq x y) *MEM*))) > After an inizialization of *MEM* to nil, the commands look like these: > > (my-setq 'x ''abc) > (my-setq 'y ''(sin 1.2345)) > > and *MEM* is, in the above case: ((setq y '(sin 1.2345)) (setq x 'abc)) > > so that, for example, (mapcar 'eval *MEM*) does the required re-assignement. > > The question is: how can I implement MY-SETQ such that the arguments are > written in a more "natural" way, to say: (my-setq x 'abc) ? > > Any suggestion will be greatly appreciated. > You should use a macro like this: (defmacro my-setq (&whole expr var val) (push expr *mem*) `(SETQ VAR ,val)) This does more or less what you want with that ugly quoting. Q: What for do you need that? -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From gat@aig.jpl.nasa.gov Wed Jun 26 20:02:18 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24168; Wed, 26 Jun 96 20:02:18 +0200 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA12204; Wed, 26 Jun 96 10:24:52 PDT Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id KAA28516; Wed, 26 Jun 1996 10:24:49 -0700 (PDT) Date: Wed, 26 Jun 1996 10:24:49 -0700 (PDT) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199606261724.KAA28516@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: setq with memory X-Sun-Charset: US-ASCII > You should use a macro like this: > > (defmacro my-setq (&whole expr var val) > (push expr *mem*) > `(SETQ VAR ,val)) > > This does more or less what you want with that ugly quoting. A more general version of this macro, and one that illustrates slightly better programming style (but only slightly) goes: (defmacro record-eval (expression) `(progn (push ',expression *mem*) ,expression)) This is a more general way of accomplishing the same thing because it allows you to record any expression for later playback, not just setq. It also does the recording at eval time rather than macro expansion time, which is probably closer to what Dr. Olmi had in mind. In general, though, you are almost certainly pursuing a poor program design if you have to resort to tricks like these, especially if you are a Lisp beginner. Using EVAL is almost always a bad idea. Why not just define a function to do whatever actions you want to repeat? Erann Gat gat@jpl.nasa.gov From armano@diee.unica.it Thu Jun 27 14:46:37 1996 Return-Path: Received: from elettro1.unica.it by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06364; Thu, 27 Jun 96 14:46:37 +0200 Received: from macmulti.diee.unica.it by elettro1.unica.it with SMTP (1.37.109.4/16.2) id AA11885; Thu, 27 Jun 96 14:09:16 +0100 X-Sender: armano@elettro1.unica.it Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Thu, 27 Jun 1996 14:10:14 +0100 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: armano@diee.unica.it (Giuliano Armano) Subject: break on find-class Hi, while loading a (compiled) file containing CLOS method-definitions I get a break. A sample of loading follows: ### START ### ... ;; Loading of file /users/armano/learning/FASL/exception/bc-envir.fasl is finish ed. ;; Loading file /users/armano/learning/FASL/exception/bc-excep.fasl ... ;; Loading file /users/armano/learning/FASL/exception/bc-class.fasl ... ;; Loading file /users/armano/learning/FASL/exception/bc-defmh.fasl ... ;; Loading file /users/armano/learning/FASL/exception/bc-defcl.fasl ... ;; Loading file /users/armano/learning/FASL/exception/bc-exmpl.fasl ... ;; Loading file /users/armano/learning/FASL/exception/bc-slots.fasl ... ;; Loading of file /users/armano/learning/FASL/exception/bc-slots.fasl is finish ed. ;; Loading of file /users/armano/learning/FASL/exception/bc-exmpl.fasl is finish ed. ;; Loading of file /users/armano/learning/FASL/exception/bc-defcl.fasl is finish ed. *** - FIND-CLASS: EXAMPLES-META does not name a class 1. Break> ### END ### where: a - "bc-defcl.fasl" contains CLOS class definitions b - "bc-defmh.fasl" contains CLOS methods definitions c - find-class is called within the following defconstant (defined in "bc-defmh.lisp"): (defconstant *EXAMPLES-META-SLOTS* (strip 'examples :from (slots-names (find-class 'EXAMPLES-META)))) ["strip" is a simple function that basically acts like "remove"] d - "EXAMPLES-META" is defined as a class in "bc-defcl.lisp" The break can be avoided loading the SOURCE file "bc-defcl.lisp" first, and then reloading all FASL files ("bc-defcl.fasl" included). Of course this is definitively not the best way to get a program loaded. I would greatly appreciate any suggestion concerning (how to avoid) the above problem. Thank you. ----- Giuliano Armano, Assistant Professor, DIEE, Univ. of Cagliari, Piazza d'Armi, 09123 Cagliari, Italy Tel. +39-70-675.5878 FAX 675.5900 e-mail: armano@diee.unica.it From smh@Franz.COM Thu Jun 27 19:57:46 1996 Received: from sparky.Franz.COM by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09592; Thu, 27 Jun 96 19:57:46 +0200 Return-Path: Received: from vapor.Franz.COM by sparky.Franz.COM (4.1/FI-2.0) id AA16209; Thu, 27 Jun 96 10:04:35 PDT Received: from localhost by vapor.Franz.COM (4.1/FI-2.0) id AA01597; Thu, 27 Jun 96 10:04:34 PDT Message-Id: <9606271704.AA01597@vapor.Franz.COM> To: clisp-list Subject: Re: setq with memory In-Reply-To: Your message of "Thu, 27 Jun 1996 06:00:06 +0200." <199606261724.KAA28516@binkley.jpl.nasa.gov> Date: Thu, 27 Jun 1996 10:04:34 -0700 From: Steve Haflich From: gat@aig.jpl.nasa.gov (Erann Gat) A more general version of this macro, and one that illustrates slightly better programming style (but only slightly) goes: (defmacro record-eval (expression) `(progn (push ',expression *mem*) ,expression)) This is a more general way of accomplishing the same thing because it allows you to record any expression for later playback, not just setq. It also does the recording at eval time rather than macro expansion time, which is probably closer to what Dr. Olmi had in mind. But it is important that a "form" cannot be played back in this way, absent its environment. Consider: (defun kons (a b) `(cons ,a ,b)) (defun test (x y) (macrolet ((kons (a b) `(list ,a ,b))) (record-eval (kons x y)))) The form recorded on *mem* won't do the same thing when passed to eval, since eval always executes relative to the null lexical environment. A CL form is meaningless without its environment. A way more in keeping with CL semantics would be capture a "form" would be something like: (defmacro record-eval (expression) `(let ((continuation #'(lambda () ,expression))) (push continuation *mem*) (funcall continuation))) In this case the elements of *mem* are opaque function objects that properly capture the lexical environment in which they were defined. Each could be reexecuted using funcall. The orignal expression could only portably be retrieved using the ANS CL function-lambda-expression, on those implementations that support it and don't just always return NIL. From gat@aig.jpl.nasa.gov Thu Jun 27 20:52:10 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10279; Thu, 27 Jun 96 20:52:10 +0200 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA16734; Thu, 27 Jun 96 11:14:08 PDT Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id LAA29905; Thu, 27 Jun 1996 11:14:07 -0700 (PDT) Date: Thu, 27 Jun 1996 11:14:07 -0700 (PDT) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199606271814.LAA29905@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: setq with memory X-Sun-Charset: US-ASCII You write: > But it is important that a "form" cannot be played back in this way, > absent its environment. Consider: Well, that's not quite true. In a null lexical environment this will work just fine, and I very much doubt that a Lisp beginner is going to be throwing macrolets around. You're right that your way is better programming style (which is why my note was heavy with disclaimers) but from a pedagogical point of view I thought it would be better not to try to explain closures to a Lisp beginner in a short note. FWIW, E. From thommark@access.digex.net Mon Jul 1 22:39:32 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA25840; Mon, 1 Jul 96 22:39:32 +0200 Received: from access2.digex.net by nz11.rz.uni-karlsruhe.de with SMTP (PP); Mon, 1 Jul 1996 22:00:53 +0200 Received: from localhost (thommark@localhost) by access2.digex.net (8.6.12/8.6.12) with SMTP id PAA09525 ; for ; Mon, 1 Jul 1996 15:59:21 -0400 Date: Mon, 1 Jul 1996 15:59:21 -0400 (EDT) From: "M. Thomas" X-Sender: thommark@access2.digex.net To: CLISP List Subject: Question about making clisp-1996-06-10 Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hi, After rebuilding my Linux system from Redhat 3.0.3 and unpacking http://sayre.sysc.pdx.edu:8001/clisp/binaries/i386-linux-elf.tar.gz, executing `make' results in the following warnings/errors: -----begin ------- cc base/lisp.a ... -ltermcap -L/usr/X11R6/lib -lX11 ... Warning: size of symbol `ospeed' changed from 2 to 4 in /usr/lib/libtermcap.so ld: cannot open -lX11: No such file or directory make: *** [base/lisp.run] Error 1 -----end ------- Question 1. What does the warning mean? My termcap library files are /usr/lib/libtermcap.a /usr/lib/libtermcap.so -> /lib/libtermcap.so.2.0.5 As far as I can tell from `info gcc', the `cannot open -lX11' means that gcc can't find `libX11.a'. Question 2. Does CLISP need X libraries for some reason (even to run it in an xterm window, or under Emacs/XWindows)? Question 3. Doesn't `lib*.a' denote a static library? I thought static linking was only useful for system utilities on recovery diskettes (in case you accidentally delete crucial links). If gcc wanted the dynamic lib, it should be able to find it, because the following exist: /usr/X11 -> X11R6 /usr/X11/lib/libX11.so.6 -> libX11.so.6.0 Question 4. If CLISP really needs static X libs, is `libX11.a' the only needed one? I only ask, because the appropriate Red Hat package is huge, and I don't want to download and install the whole thing. (It'd be easier to get just the needed libs from the tsx11.mit.edu XFree86 distribution.) Thanks for helping me get CLISP running again! Mark A. Thomas thommark@access.digex.net From popineau@ese-metz.fr Wed Jul 3 12:47:53 1996 Return-Path: Received: from esemetz.ese-metz.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19751; Wed, 3 Jul 96 12:47:53 +0200 Received: from neuromancer.ese-metz.fr.ese-metz.fr (neuromancer.ese-metz.fr [192.70.65.52]) by esemetz.ese-metz.fr (8.7.1/8.7.2) with SMTP id MAA07998 for ; Wed, 3 Jul 1996 12:06:05 +0200 (MET DST) Sender: Popineau@esemetz.ese-metz.fr To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: clisp & windows NT From: Fabrice POPINEAU Date: 03 Jul 1996 12:08:50 +0200 Message-Id: Lines: 11 X-Mailer: Gnus v5.2.25/Emacs 19.31 Hi, Did anybody try to make a native port of clisp for Windows NT? I tried (not for a long time) to compile it with VC++ 4.0, but with no result for the moment. -- Fabrice POPINEAU ------------------------ e-mail: popineau@ese-metz.fr voice-mail: (+33) 87-74-99-38 surface-mail: Supelec, 2 rue E. Belin, F-57078 Metz Cedex 3 From kehr@iti.informatik.th-darmstadt.de Wed Jul 3 18:54:59 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23470; Wed, 3 Jul 96 18:54:59 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id SAA70888 for ; Wed, 3 Jul 1996 18:16:35 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id SAA29216; Wed, 3 Jul 1996 18:16:33 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id SAA23251; Wed, 3 Jul 1996 18:16:33 +0200 From: Roger Kehr Message-Id: <199607031616.SAA23251@spock.iti.informatik.th-darmstadt.de> Subject: merge-pathnames To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (clisp-mailing-list) Date: Wed, 3 Jul 1996 18:16:33 +0200 (MESZ) X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 2437 Hi, I recently found some inconsitency between CLtL2 (Steele) and the clisp-implementation concerning the `merge-pathnames'-function. Steele tells in section `23.1.3. Structured Directories': [... Pathname merging treats a relative directory specially. Let pathname and defaults be the first two arguments to merge-pathnames. If (pathname-directory pathname) is a list whose car is :relative, and (pathname-directory defaults) is a list, then the merged directory is the value of (append (pathname-directory defaults) (cdr ;Remove :relative from the front (pathname-directory pathname))) ...] See the following interaction: (merge-pathnames (make-pathname :directory '(:relative "x")) (make-pathname :directory '(:absolute "y"))) => #"/y/x/" (merge-pathnames (make-pathname :directory '(:relative "x")) (make-pathname :directory '(:relative "y"))) => #"x/" The first case seems to be ok, but the second one doesn't behave as expected. In `pathname.d' the code is as follows: LISPFUN(merge_pathnames,1,2,norest,key,1, (kw(wild))) # (MERGE-PATHNAMES pathname [defaults [default-version]] [:wild]), CLTL S. 415 # (defun merge-pathnames (pathname &optional (defaults *default-pathname-default s*) default-version) # (setq pathname (pathname pathname)) # (setq defaults (pathname defaults)) ... # :directory # (let ((pathname-dir (pathname-directory pathname)) # (defaults-dir (pathname-directory defaults))) # (if (eq (car pathname-dir) ':RELATIVE) # (cond ((null (cdr pathname-dir)) defaults-dir) # ((not (eq (car defaults-dir) ':RELATIVE)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ # (append defaults-dir (cdr pathname-dir)) # ) # (t pathname-dir) # ) # pathname-dir # ) ) Here, the case that the car of defaults-dir equals :relative, is an exception to the rule mentioned by Steele. Since the real implementation seems to work like this Lisp-fragment I'm asking if there is a reason for this. In `impnotes.txt' there is nothing written about this case. Bye. -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From hoehle@zeus.gmd.de Thu Jul 4 16:24:59 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07267; Thu, 4 Jul 96 16:24:59 +0200 Received: by diva.gmd.de with UUCP id AA01141 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Thu, 4 Jul 1996 15:43:16 +0200 Date: Thu, 4 Jul 1996 15:43:16 +0200 Message-Id: <199607041343.AA01141@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: questions about ".yy" in pathnames Hi, I have some difficulties understanding the behaviour of pathnames with a leading dot (.) and I have a feeling that the documentation is contradictory, due to the fact that semantics have changed with the "15 March 1996" release of CLISP (for UNIX and AMIGAOS (not documented but shares code)). I'm talking about the 1995-05-30 release of CLISP. CHANGES.LOG (15 March 1996 changes) says * On Unix, PARSE-NAMESTRING will not interpret a leading `.' as a file with a type but no name. Instead, the file will include the `.' in the name. Pathname syntax is unchanged. Thanks to Robert Morris . What does "Pathname syntax is unchanged" actually mean w.r.t. such a change? impnotes.txt/23.1 says The minimum filename syntax that may be used portably is: [...] ".yy" for a pathname with type yy and no name specified. Hereby xxx denote 1 to 8 characters, and yy denote 1 to 3 characters, each of which being either alphanumerical or the underscore #\_. Other properties of pathname syntax vary between operating systems. tests/tests.lsp contains (defun run-test (testname &aux (logname (merge-pathnames #".erg" testname)) log-empty-p) (with-open-file (s (merge-pathnames #".tst" testname) :direction :input) >From CHANGES.LOG, I'd expect that ".foo" now yields a pathname with name ".foo" and type NIL. But IMPNOTES.TXT seems to document the old behaviour and TESTS.LSP looks like it has not been adapted since the 15th of March change and won't manage to generate a pathname with type "erg" anymore. Wasn't it a bad idea to switch the behaviour and make it incompatible with DOS and ACORN? I heard strong objections about it when I suggested exactly this back in 1993 or so (precisely because it made reading ".emacs" files difficult). So what's true and what can be used in portable code? Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From haible@ilog.fr Thu Jul 4 17:23:24 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07944; Thu, 4 Jul 96 17:23:24 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA24354; Thu, 4 Jul 1996 16:44:37 +0200 (MET) Received: from (laplace [192.31.27.65]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id OAA02996; Thu, 4 Jul 1996 14:43:14 +0200 (MET DST) From: Bruno Haible Received: by (4.1/8.6.12) id AA07735 for haible@mailhost; Thu, 4 Jul 96 14:43:15 +0200 Date: Thu, 4 Jul 96 14:43:15 +0200 Message-Id: <9607041243.AA07735@> To: clisp-list Subject: Re: merge-pathnames In-Reply-To: <199607031616.SAA23251@spock.iti.informatik.th-darmstadt.de> References: <199607031616.SAA23251@spock.iti.informatik.th-darmstadt.de> Roger Kehr asks why in CLISP > (merge-pathnames (make-pathname :directory '(:relative "x")) > (make-pathname :directory '(:relative "y"))) > => #"x/" where he expects to get #"y/x/". There are two reasons for this behaviour: 1. An informal one: I found the latter behaviour confusing and changed CLISP to do it the former way. It seems to work better this way. 2. A formal one: MERGE-PATHNAMES is used to specify default components for pathnames, so there is some analogy between (MERGE-PATHNAMES a b) and (or a b). Obviously putting in the same default a second time should do the same as putting it in once: (or a b b) is the same as (or a b), so (MERGE-PATHNAMES (MERGE-PATHNAMES a b) b) should be the same as (MERGE-PATHNAMES a b). (This question actually matters because in Common Lisp there is no distinction between "pathnames with defaults merged-in" and "pathnames with defaults not yet applied". For example, you don't know whether COMPILE-FILE will merge in some defaults.) Now, (MERGE-PATHNAMES (MERGE-PATHNAMES '#"x/" '#"y/") '#"y/") and (MERGE-PATHNAMES '#"x/" '#"y/") are equal in CLISP's implementation, but not in implementations that strictly follow the Common Lisp spec. In fact, the above twice-default = once-default rule holds for all pathnames in CLISP. Bruno Haible email: Software Engineer phone: +33-1-49083585 From marcus@sysc.pdx.edu Thu Jul 4 23:44:01 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12498; Thu, 4 Jul 96 23:44:01 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id OAA12814; Thu, 4 Jul 1996 14:04:54 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id OAA25098; Thu, 4 Jul 1996 14:04:40 -0700 Date: Thu, 4 Jul 1996 14:04:40 -0700 Message-Id: <199607042104.OAA25098@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: questions about ".yy" in pathnames In-Reply-To: <199607041343.AA01141@diva.gmd.de> References: <199607041343.AA01141@diva.gmd.de> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JH" == Joerg Hoehle writes: JH> CHANGES.LOG (15 March 1996 changes) says * On Unix, PARSE-NAMESTRING will not interpret a leading `.' as a file with a type but no name. Instead, the file will include the `.' in the name. Pathname syntax is unchanged. JH> What does "Pathname syntax is unchanged" actually mean w.r.t. such JH> a change? > (pathname-name ".erg") ".erg" > (pathname-name #".erg") NIL > (pathname-type ".erg") NIL > (pathname-type #".erg") "erg" From aaronn@linfield.edu Tue Jul 9 17:47:30 1996 Return-Path: Received: from nz11 by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AB01775; Tue, 9 Jul 96 17:47:30 +0200 Received: from linfield.edu (actually calvin.linfield.edu) by nz11.rz.uni-karlsruhe.de with SMTP (PP); Mon, 8 Jul 1996 02:00:38 +0200 Received: by linfield.edu (5.0/SMI-SVR4) id AA11524; Sun, 7 Jul 1996 16:55:45 +0800 Date: Sun, 7 Jul 1996 16:55:44 -0700 (PDT) From: Aaron Ben Neerenberg Subject: subscription help To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Content-Length: 237 i wish to unsubscribe from the list, but can not locate the message containing subscription/unsubscription info. is there a chance anyone could post such to the list or reply to my email w/ the info? thank you, aaron neerenberg From hoehle@zeus.gmd.de Thu Jul 18 19:09:40 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08160; Thu, 18 Jul 96 19:09:40 +0200 Received: by diva.gmd.de with UUCP id AA04330 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Thu, 18 Jul 1996 18:25:23 +0200 Date: Thu, 18 Jul 1996 18:25:23 +0200 Message-Id: <199607181625.AA04330@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: src/error.d: dynamic initializations Hi, I've a question about ERROR.D. I've seen that the previous scheme of initialization of the error messages inside a static array has been abandoned in favor of a dynamic one since the introduction of GETTEXT. I'm wondering why. Dynamic initializations (init_errormsg_table()) cause startup time. I'm reading the gettext documentation at and understand that it should be possible to initialize these messages in a static array just as before. There's an example which looks like it perfectly matches what's needed in CLISP: static const char *messages[] = { gettext_noop ("some very meaningful message"), gettext_noop ("and another one") }; string = index > 1 ? gettext ("a default message") : gettext (messages[index]); Is it just not possible? Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de http://zeus.gmd.de/~hoehle/amiga.html From bshults@math.utexas.edu Fri Jul 19 02:45:30 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12570; Fri, 19 Jul 96 02:45:30 +0200 Date: Thu, 18 Jul 96 17:58:59 CDT Posted-Date: Thu, 18 Jul 96 17:58:59 CDT Message-Id: <9607182258.AA28098@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA28098; Thu, 18 Jul 96 17:58:59 CDT From: Benjamin Price Shults To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: format directive ~? broken with XP? Use of the ~? directive in combination with pretty printing directives seems to break clisp: - --begin script-- > (format nil "~" nil) "hi ho" > (format nil "~?" "~" '(nil)) *** - Non-existent directive Current point in control string: ~ | 1. Break> - --end script-- I have tried it with simpler directives such as ~:@_ and it gives the unknown directive error: - --begin script-- > (format nil "~" nil) "hi ho " > (format nil "~?" "~" '(nil)) *** - Non-existent directive Current point in control string: ~ | 1. Break> - --end script-- Apparently the recursive call to format does not know that it has been redefined. I am using (CLISP2 6 NIL 130695) compiled on Linux 1.2.13 with the patched xp-code. - -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) ------- End of forwarded message ------- From marcus@sysc.pdx.edu Mon Jul 22 11:45:43 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19360; Mon, 22 Jul 96 11:45:43 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id CAA01260; Mon, 22 Jul 1996 02:03:12 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id CAA06766; Mon, 22 Jul 1996 02:02:59 -0700 Date: Mon, 22 Jul 1996 02:02:59 -0700 Message-Id: <199607220902.CAA06766@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: src/error.d: dynamic initializations In-Reply-To: <199607181625.AA04330@diva.gmd.de> References: <199607181625.AA04330@diva.gmd.de> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JH" == Joerg Hoehle writes: JH> I've a question about ERROR.D. I've seen that the previous scheme JH> of initialization of the error messages inside a static array has JH> been abandoned in favor of a dynamic one since the introduction of JH> GETTEXT. I'm wondering why. JH> Is it just not possible? There shouldn't be significant overhead from a small number of assignments, but as you point out, the translations don't need to be done in bulk. So I've essentially made the change you suggest in the alpha sources. From nathan@bristol.st.com Tue Jul 23 19:52:11 1996 Return-Path: Received: from hawkweed (hawkweed.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09282; Tue, 23 Jul 96 19:52:11 +0200 From: nathan@bristol.st.com Received: by hawkweed id SAA08209; Tue, 23 Jul 1996 18:11:03 +0100 (BST) Message-Id: <10739.199607231712@finlandia.inmos.co.uk> Subject: compiler bug To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Tue, 23 Jul 1996 18:12:51 +0100 (BST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Yes really!, it said so. when I compile my program I get, *** - Compiler bug!! Occurred in OPTIMIZE-LABEL. make: *** [seaplus.fas] Error 1 now are there any flags I can set and the like to try an narrow it down? it doesn't even let me know which function it was compiling. this is running the 1996-04-17 releas on Solaris2.5 thanks in advance nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From haible@ilog.fr Tue Jul 23 20:54:11 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09976; Tue, 23 Jul 96 20:54:11 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA19804; Tue, 23 Jul 1996 20:12:33 +0200 (MET) Received: from (laplace [192.31.27.65]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id UAA26896; Tue, 23 Jul 1996 20:05:17 +0200 (MET DST) From: Bruno Haible Received: by (4.1/8.6.12) id AA15239 for haible@mailhost; Tue, 23 Jul 96 20:05:17 +0200 Date: Tue, 23 Jul 96 20:05:17 +0200 Message-Id: <9607231805.AA15239@> To: clisp-list Subject: Re: compiler bug In-Reply-To: <10739.199607231712@finlandia.inmos.co.uk> References: <10739.199607231712@finlandia.inmos.co.uk> Nathan Sidwell knocks out CLISP's compiler: nathan@bristol.st.com writes: > Yes really!, it said so. > when I compile my program I get, > *** - Compiler bug!! Occurred in OPTIMIZE-LABEL. > make: *** [seaplus.fas] Error 1 > > now are there any flags I can set and the like to try an narrow it down? > it doesn't even let me know which function it was compiling. You can call compile-file with the option `:print t', so it will show you each form before compiling it. Could you then please send the problematic function definition, together will all necessary macro and structure definitions, to me and Marcus? Thanks. Bruno From kehr@iti.informatik.th-darmstadt.de Thu Jul 25 16:34:51 1996 Return-Path: Received: from rs2.hrz.th-darmstadt.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07558; Thu, 25 Jul 96 16:34:51 +0200 Received: from hp5.iti.informatik.th-darmstadt.de (root@hp5.iti.informatik.th-darmstadt.de [130.83.5.20]) by rs2.hrz.th-darmstadt.de (8.6.12/8.6.12.1ms) with ESMTP id PAA23483 for ; Thu, 25 Jul 1996 15:52:57 +0200 Received: from spock.iti.informatik.th-darmstadt.de by hp5.iti.informatik.th-darmstadt.de (8.6.10/Server-1.5/HRZ-THD/8.6.9u-ITI) id PAA03712; Thu, 25 Jul 1996 15:52:55 +0200 Received: by spock.iti.informatik.th-darmstadt.de (8.6.10/Client-1.5+iti/HRZ-THD) id PAA27335; Thu, 25 Jul 1996 15:52:55 +0200 From: Roger Kehr Message-Id: <199607251352.PAA27335@spock.iti.informatik.th-darmstadt.de> Subject: *break-driver* To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (clisp-mailing-list) Date: Thu, 25 Jul 1996 15:52:53 +0200 (MESZ) X-Mailer: ELM [version 2.4 PL25+] Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Content-Length: 3908 Hi, I'm currently writing a software product using clisp that runs in a batch-mode style in which no user interaction is necessary. But I'd like to see the system stopping if CTRL-C (SIGINT) is pressed. Normally, the system just tells me *** - Ctrl-C: User break but continues running. This is a very unsatisfying behavior in an UNIX environment. CLtL2 [Steele] tells something about in Chapter `29.4.7. Establishing Restarts' Remark: Some readers may wonder what ought to be done by the ``abort'' key (or whatever the implementation's interrupt key is-Control-C or Control-G, for example). Such interrupts, whether synchronous or asynchronous in nature, are beyond the scope of this chapter and indeed are not currently addressed by Common Lisp at all. This may be a topic worth standardizing under separate cover. Here is some speculation about some possible things that might happen. An implementation might simply call abort or break directly without signaling any condition. So far, there seems no portable way of handling this. The `impnotes' also doesn't tell something about it. After some investigation of the code I found that the function bound to the variable *BREAK-DRIVER* is used to handle these kind of breaks. The code of the function bound to this variable is BREAK-LOOP defined in `user1.lsp'. This function is called from the interrupt-handler `tast_break' which is responsible for handling keyboard-interruptions. The last command in this function calls --- break_driver(T); # Break-Driver aufrufen --- which in turn call calls the function bound to *BREAK-DRIVER* as one can see from the following excerpt taken from `debug.d' --- # Startet einen untergeordneten Driver (Read-Eval-Print-Loop) # break_driver(continuable); # > continuable: Flag, ob nach Beendigung des Drivers fortgefahren werden kann. # kann GC auslösen global void break_driver (object continuable); global void break_driver(continuable) var reg3 object continuable; { pushSTACK(continuable); {var reg4 object driverfun = Symbol_value(S(break_driver)); # Wert von *BREAK-DRIVER* if (!nullp(driverfun)) { #ifdef HAVE_NUM_STACK var reg2 uintD* old_NUM_STACK = NUM_STACK; var reg1 uintD* old_NUM_STACK_normal = NUM_STACK_normal; #endif pushSTACK(STACK_0); funcall(driverfun,1); --- ^^^^^^^^^^^^^^^^^^^ My idea was now to bind a function like the following to *BREAK-DRIVER*. --- (defun *break-driver* (continuable &optional (condition nil) (print-it nil) &aux (may-continue (or continuable (and condition (find-restart 'continue condition)) ) ) (interactive-p (interactive-stream-p *debug-io*)) (commandsr '()) ) (declare (ignore print-it may-continue interactive-p commandsr)) (when condition (oops (simple-condition-format-string condition) (simple-condition-format-arguments condition))) (format *ERROR-OUTPUT* "~&Bye.") (error-exit)) (setq *break-driver* #'*break-driver*) --- The lambda-list is borrowed from the function BREAK-LOOP. This simply ignores all kinds of breaks (even continuable ones) and exits. If a condition was signaled it is printed before leaving (oops is a macro hiding #'format). Now my questions are (took a long time to come here). 1. Is this a good way of handling this situation? It seems to work quiet fine. 2. Is there a better way of handling this? Thanx in advance. Roger -- ---------------------------------------------------------------------- Roger Kehr kehr@iti.informatik.th-darmstadt.de ---------------------------------------------------------------------- From haible@ilog.fr Thu Jul 25 17:56:31 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08454; Thu, 25 Jul 96 17:56:31 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA08547; Thu, 25 Jul 1996 17:14:30 +0200 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id QAA05235; Thu, 25 Jul 1996 16:57:10 +0200 (MET DST) From: Bruno Haible Received: by (5.x/8.6.12) id AA11646 for haible@mailhost; Thu, 25 Jul 1996 16:57:09 +0200 Date: Thu, 25 Jul 1996 16:57:09 +0200 Message-Id: <9607251457.AA11646@> To: clisp-list Subject: Re: *break-driver* In-Reply-To: <199607251352.PAA27335@spock.iti.informatik.th-darmstadt.de> References: <199607251352.PAA27335@spock.iti.informatik.th-darmstadt.de> Roger Kehr writes: > > Normally, the system just tells me > > *** - Ctrl-C: User break > > but continues running. This is a very unsatisfying behavior in an > UNIX environment. Yes, I agree. > After some investigation of the code I found that the function bound > to the variable *BREAK-DRIVER* is used to handle these kind of breaks. > > My idea was now to bind a function like the following to > *BREAK-DRIVER*. > > 1. Is this a good way of handling this situation? Yes. Except that the code to print the condition should better read like this: (when (and condition print-it) (terpri *error-output*) (write-string "*** - " *error-output*) (print-condition condition *error-output*) ) because if print-it is NIL, the condition has already been printed by the caller, and you shouldn't use the SIMPLE-ERROR accessors unless you have verified that the condition is of type SIMPLE-ERROR (it could also be a WARNING if *break-on-warnings* is true). > It seems to work quiet fine. > > 2. Is there a better way of handling this? Not for now. In order to handle normal conditions (not Ctrl-C) you could use the EXIT-ON-ERROR and APPEASE-CERRORS macros documented in impnotes.txt. Bruno ! To unsubscribe from the clisp-list mailing list, send mail to ! ! listserv@ma2s2.mathematik.uni-karlsruhe.de ! ! including the two words "unsubscribe clisp-list" as message body. ! From skeezix@trepan.io.org Fri Jul 26 04:28:18 1996 Return-Path: Received: from trepan.io.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14703; Fri, 26 Jul 96 04:28:18 +0200 Received: (from skeezix@localhost) by trepan.io.org (8.6.9/8.6.9) id VAA01868; Thu, 25 Jul 1996 21:07:08 -0400 Date: Thu, 25 Jul 1996 21:07:07 -0400 (EDT) From: Jeff Mitchell Reply-To: skeezix@acm.org To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: NetBSD 1.2? Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII I'm running a NetBSD 1.2_beta system on a i486. I picked up the latest version of both clisp-source and clisp-source-haible; both woudl compile out of the box, but when they get into the phase of compilation where they are loading the src/*.lsp files I get a segfault ("cannot be cured" type error). Specifically, the file "places.lsp" file is causing it. If I go through and cut away the latter half of the places.lsp file (for amusement :P), other files cause a segfault as well.. Has anyone gotten clisp to work under a recent version of NetBSD? I've got an old clisp ('94 version) that I compiled on NetBSD 1.0, and it works under my current system, but of course I would prefer to upgrade to a newer clisp. I could make a formal report if so needed. -- Additionally; How good is CLiCC and other CLOS->C 'compilers'? I am considering (again, for amusement :P) writing a MUD in lisp. I've already done the work in C, and thought it woudl be a kick to do it in lisp, for learning sake. Given that muds need to be fast, is this even worth attempting (aside from the academic point of view). I also need access to sockets (and it would appear clisp supports this via streams) and preferably ioctl and other fun system calls. Any of that included, or need I make a ffi set for it? Jeff, of the many questions :) .------------. Skeezix and Ladynigh, entwined forever since July 1, 1994. |_ __=--' ) ( "The Deliverator belongs to an elite order ... Those '------' burger flippers might have better life expectancy, but skeezix@acm.org what kind of life is it anyway" -- Neal Stephenson From spoon@hilbert.maths.utas.edu.au Fri Jul 26 09:57:25 1996 Return-Path: Received: from hilbert.maths.utas.edu.au by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18929; Fri, 26 Jul 96 09:57:25 +0200 Received: by hilbert.maths.utas.edu.au (4.1/SMI-4.1) id AA13093; Fri, 26 Jul 96 17:19:45 EST From: spoon@hilbert.maths.utas.edu.au (spoon) Message-Id: <9607260719.AA13093@hilbert.maths.utas.edu.au> Subject: Bug? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Fri, 26 Jul 1996 17:19:45 +1000 (EST) X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 1202 Hi This surely is a bug, with the May 96 CLISP Starting lisp ... i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I I I I I I I 8 8 8 8 8 8 I I I I I I I 8 8 8 ooooo 8oooo I \ `+' / I 8 8 8 8 8 \ `-+-' / 8 o 8 8 o 8 8 `-__|__-' ooooo 8oooooo ooo8ooo ooooo 8 | ------+------ Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994, 1995, 1996 > > `(a `(b `(c ,@(d `(e))))) *** - The syntax ,@form is valid only in lists 1. Break> abort *** - EVAL: variable ABORT has no value 2. Break> abort 1. Break> abort But note that > `(b `(c ,@(d `(e)))) (B `(C ,@(D `(E)))) works as (I think) it should. S Wotherspoon. -- "You need as many clues as you can get as to how these things work when you're a buffoon." - D. Row From skeezix@trepan.io.org Fri Jul 26 10:02:40 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19026; Fri, 26 Jul 96 10:02:40 +0200 Received: from trepan.io.org by nz11.rz.uni-karlsruhe.de with SMTP (PP); Fri, 26 Jul 1996 09:19:24 +0200 Received: (from skeezix@localhost) by trepan.io.org (8.6.9/8.6.9) id DAA08749; Fri, 26 Jul 1996 03:14:01 -0400 Date: Fri, 26 Jul 1996 03:14:00 -0400 (EDT) From: Jeff Mitchell Reply-To: skeezix@acm.org To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: follow up Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII A brief followup to my previous posting.. I just tried to compile clisp (latest /source), on my i486 NetBSD 1.2_beta at home, and got the same problem as the other machine; Guess I'll try the NetBSD1.1 patches (shiver). Anyway, the exact display is as follows, if it matters.. ;; Loading file defseq.lsp ... ;; Loading of file defseq.lsp is finished. ;; Loading file backquot.lsp ... ;; Loading of file backquot.lsp is finished. ;; Loading file defmacro.lsp ... handle_fault error1 ! *** - SIGSEGV cannot be cured. Fault address = 0x605C. Bus error - core dumped *** Error code 138 Using gcc with -traditional, using gcc 2.6.3. Jeff .------------. Skeezix and Ladynigh, entwined forever since July 1, 1994. |_ __=--' ) ( "The Deliverator belongs to an elite order ... Those '------' burger flippers might have better life expectancy, but skeezix@acm.org what kind of life is it anyway" -- Neal Stephenson From bshults@math.utexas.edu Fri Jul 26 19:55:13 1996 Return-Path: Received: from marie.ma.utexas.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24968; Fri, 26 Jul 96 19:55:13 +0200 Date: Fri, 26 Jul 96 12:12:02 CDT Posted-Date: Fri, 26 Jul 96 12:12:02 CDT Message-Id: <9607261712.AA23633@marie.ma.utexas.edu> Received: by marie.ma.utexas.edu (4.1/5.51) id AA23633; Fri, 26 Jul 96 12:12:02 CDT From: Benjamin Price Shults To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: format directive ~? broken with XP? I think I reported this before but the message may not have gone through. Use of the ~? directive in combination with pretty printing directives seems to break CLISP. I load xp-code.lisp and go into the xp package. Then: --begin script-- > (format nil "~" '(ho)) "HEIGH HO" ; correct > (format nil "~?" "~" '((ho))) "HEIGH (HO)" ; incorrect (old format behavior) > (format nil "~" nil) "hi ho " ; correct > (format nil "~?" "~" '(nil)) *** - Non-existent directive Current point in control string: ~ | 1. Break> --end script-- The first line is correct. The second line gives the wrong output. (It gives the same output as if I used the non-xp format.) The third line is correct. The fourth line gives an error and it should not. Apparently the recursive call to format does not know that it has been redefined. Am I doing something wrong? Benji -- Benjamin Shults Email: bshults@math.utexas.edu Department of Mathematics Phone: (512) 471-7711 ext. 208 University of Texas at Austin WWW: http://www.ma.utexas.edu/users/bshults Austin, TX 78712 USA FAX: (512) 471-9038 (attn: Benjamin Shults) From johnl@dai.ed.ac.uk Fri Jul 26 20:04:59 1996 Return-Path: Received: from postbox.dai.ed.ac.uk by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA25115; Fri, 26 Jul 96 20:04:59 +0200 Received: from cumulus (cumulus.dai.ed.ac.uk [192.41.104.201]) by postbox.dai.ed.ac.uk (8.6.13/8.6.12) with ESMTP id SAA19495; Fri, 26 Jul 1996 18:22:51 +0100 Date: Fri, 26 Jul 1996 18:22:50 +0100 Message-Id: <9507.199607261722@cumulus> From: John Levine Subject: clisp under Windows95? To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh. Hello, I have some questions concerning CLISP, which I've just started to use. 1. Is it possible to run CLISP under Windows95? If so, how? At the moment I only seem to be able to run it in DOS mode. 2. Is it necessary to recompile CLISP in order to be able to call C functions from within CLISP (again, this would be under Windows95)? 3. Is it possible to embed CLISP within a Windows95 application written in Microsoft Visual C++? That is, I want this application to start up lisp when it starts up and for the application to be able to execute lisp functions when it sees fit. Many thanks for any help, John Levine, Department of Artificial Intelligence, University of Edinburgh. From dietz@ticco.ccipe.montp.inserm.fr Fri Jul 26 20:25:00 1996 Return-Path: Received: from ticco (ticco.ccipe.montp.inserm.fr) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA25390; Fri, 26 Jul 96 20:25:00 +0200 From: dietz@ticco.ccipe.montp.inserm.fr Received: by ticco (5.x/SMI-SVR4) id AA08723; Fri, 26 Jul 1996 19:43:28 +0200 Date: Fri, 26 Jul 1996 19:43:28 +0200 Message-Id: <9607261743.AA08723@ticco> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Newest CLISP release for Atari ST? Hello, I am aware of the fact that CLISP is no longer being supported for the Atari ST. Nevertheless, I would like to know which is the newest version that has been released and where to get it. Thank you in advance. Andreas From marcus@sysc.pdx.edu Sat Jul 27 16:06:23 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07701; Sat, 27 Jul 96 16:06:23 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id GAA07821; Sat, 27 Jul 1996 06:23:24 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id GAA12231; Sat, 27 Jul 1996 06:23:10 -0700 Date: Sat, 27 Jul 1996 06:23:10 -0700 Message-Id: <199607271323.GAA12231@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: clisp under Windows95? In-Reply-To: <9507.199607261722@cumulus> References: <9507.199607261722@cumulus> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JL" == John Levine writes: JL> 1. Is it possible to run CLISP under Windows95? If so, how? At the JL> moment I only seem to be able to run it in DOS mode. There is version of CLISP which was built using the win32 toolchain being developed by Cygnus. It may be of some use to you: http://sayre.sysc.pdx.edu:8001/clisp/binaries/win32-beta/win32.zip JL> 2. Is it necessary to recompile CLISP in order to be able to call JL> C functions from within CLISP (again, this would be under JL> Windows95)? I haven't used the clisp-link scripts on NT or Win95. I suspect they will not work, since there are some problems w.r.t. to emulating symlinks using the cygwin DLL. But with lowered expectations, you could probably get something working without much stress. If your question is "does CLISP portably support dynamic linking" the answer is (ugh, still) no. JL> 3. Is it possible to embed CLISP within a Windows95 application JL> written in Microsoft Visual C++? That is, I want this application JL> to start up lisp when it starts up and for the application to be JL> able to execute lisp functions when it sees fit. Some work has been done on compiling CLISP with the Microsoft compiler, but it isn't finished. You might investigate talking to CLISP via socket-streams or some kind of custom IPC (unfortunately the current version of the Cygnus toolchain doesn't support sockets, I'd guess the next release probably will). From skeezix@trepan.io.org Tue Jul 30 08:45:13 1996 Return-Path: Received: from trepan.io.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03246; Tue, 30 Jul 96 08:45:13 +0200 Received: (from skeezix@localhost) by trepan.io.org (8.6.9/8.6.9) id CAA19757; Tue, 30 Jul 1996 02:02:00 -0400 Date: Tue, 30 Jul 1996 02:01:59 -0400 (EDT) From: Jeff Mitchell Reply-To: skeezix@acm.org To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Pipe dream? Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII [ Most recent version of clisp. Netbsd1.2beta, i386. ] [ If anyone wants, I could make up a binary distribution. ] Is there a way of detecting when a GC is imminent? Could I specify some sort of threshold, and when reached a specific function gets called? The application is to run messages off to users to hold off a minute for GC to occur, if I expect it to take more than a few seconds. I'm using generational GC if it matters, on the main machine. Jeff Thanks for the many responses to questions so far my friends. .------------. Skeezix and Ladynigh, entwined forever since July 1, 1994. |_ __=--' ) ( "The Deliverator belongs to an elite order ... Those '------' burger flippers might have better life expectancy, but skeezix@acm.org what kind of life is it anyway" -- Neal Stephenson From johnl@dai.ed.ac.uk Tue Jul 30 18:58:32 1996 Return-Path: Received: from postbox.dai.ed.ac.uk ([192.41.104.196]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09529; Tue, 30 Jul 96 18:58:32 +0200 Received: from cumulus (cumulus.dai.ed.ac.uk [192.41.104.201]) by postbox.dai.ed.ac.uk (8.6.13/8.6.12) with ESMTP id RAA07911; Tue, 30 Jul 1996 17:15:42 +0100 Date: Tue, 30 Jul 1996 17:15:42 +0100 Message-Id: <12489.199607301615@cumulus> From: John Levine Subject: Re: clisp under Windows95? To: clisp-list In-Reply-To: Marcus Daniels's message of Sat, 27 Jul 96 16:12:05 +0200 Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh. Marcus Daniels writes: > JL> 1. Is it possible to run CLISP under Windows95? If so, how? At the > JL> moment I only seem to be able to run it in DOS mode. > > There is version of CLISP which was built using the win32 toolchain being > developed by Cygnus. It may be of some use to you: > > http://sayre.sysc.pdx.edu:8001/clisp/binaries/win32-beta/win32.zip I retrieved this, unzipped it into c:\winclisp and then tried running c:\winclisp\clisp.bat in Windows95, but I got: Cannot find /bin/sh.exe, copy /usr/bin/bash.exe to it! Cannot find /usr/bin/sh.exe, copy /usr/bin/bash.exe to it! *** - UNIX library error 2 (ENOENT): no such file or directory Any ideas on how I can fix this? > JL> 2. Is it necessary to recompile CLISP in order to be able to call > JL> C functions from within CLISP (again, this would be under > JL> Windows95)? > > I haven't used the clisp-link scripts on NT or Win95. I suspect > they will not work, since there are some problems w.r.t. to emulating > symlinks using the cygwin DLL. But with lowered expectations, you > could probably get something working without much stress. If your > question is "does CLISP portably support dynamic linking" the answer > is (ugh, still) no. Sorry, I don't understand this. Do you mean that it is possible to call external C functions without recompiling the lisp? If so, how can I do it? Another question: 4. Is it possible to run the DOS version of CLISP under Windows95? Do I have to use RSX to do this? What properties do I need to set so that I don't get the "DPMI not supported" message coming up? Many thanks, John Levine, Department of Artificial Intelligence, University of Edinburgh. From marcus@sysc.pdx.edu Tue Jul 30 21:19:57 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11097; Tue, 30 Jul 96 21:19:57 +0200 Received: from sysc.pdx.edu by nz11.rz.uni-karlsruhe.de with SMTP (PP); Tue, 30 Jul 1996 20:36:29 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id LAA11510; Tue, 30 Jul 1996 11:34:35 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id LAA23168; Tue, 30 Jul 1996 11:34:22 -0700 Date: Tue, 30 Jul 1996 11:34:22 -0700 Message-Id: <199607301834.LAA23168@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: clisp under Windows95? In-Reply-To: <12489.199607301615@cumulus> References: <12489.199607301615@cumulus> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "JL" == John Levine writes: JL> I retrieved this, unzipped it into c:\winclisp and then tried JL> running c:\winclisp\clisp.bat in Windows95, but I got: JL> Cannot find /bin/sh.exe, copy /usr/bin/bash.exe to it! Cannot JL> find /usr/bin/sh.exe, copy /usr/bin/bash.exe to it! It's the cygwin DLL doing that. If you are interested in using this win32 beta version of CLISP, you probably ought to be prepared to install and configure more of the gnu-win32 tools. See the Cygnus gnu-win32 for a FAQ, and pointers to the archive: http://www.cygnus.com/misc/gnu-win32. The notion of gnu-win32 is to be a Unix workalike environment. JL> *** - UNIX library error 2 (ENOENT): no such file or directory JL> Any ideas on how I can fix this? Try setting a "HOME" environment variable to "/". JL> Sorry, I don't understand this. Do you mean that it is possible to JL> call external C functions without recompiling the lisp? If so, how JL> can I do it? See the files "foreign.txt" and "module.txt". It is possible to augment a CLISP "link kit" with other modules. Although this procedure involves linking up a new executable, it does not require recompilation of CLISP. JL> 4. Is it possible to run the DOS version of CLISP under Windows95? JL> Do I have to use RSX to do this? What properties do I need to set JL> so that I don't get the "DPMI not supported" message coming up? See the README, emx-*.doc and rsx-*.txt files distributed with the DOS binary distribution. [BTW, there are two configurations in the CLISP source for win32 support: WIN32_UNIX and WIN32_DOS. WIN32_UNIX freely uses cygwin features, to be as Unix-like as possible. WIN32_DOS, on the other hand, attempts to use only win32 routines with CLISP's DOS support.] From crescenz@tigre.unice.fr Wed Jul 31 10:40:25 1996 Return-Path: Received: from tigre.unice.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20083; Wed, 31 Jul 96 10:40:25 +0200 Received: by tigre.unice.fr (5.65c8/IDA-1.2.8) id AA21192; Wed, 31 Jul 1996 09:56:49 +0200 Date: Wed, 31 Jul 1996 09:56:49 +0200 Message-Id: <199607310756.AA21192@tigre.unice.fr> From: Pierre Crescenzo To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: How to unsubscribe? Reply-To: crescenz@tigre.unice.fr Hello, Sorry for this mail, but I've forgotten how to unsubscribe. Who can help me? Thanks. -- Pierre Crescenzo crescenz@unice.fr http://wwwi3s.unice.fr/~crescenz From johnl@dai.ed.ac.uk Wed Jul 31 16:29:16 1996 Return-Path: Received: from postbox.dai.ed.ac.uk by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23645; Wed, 31 Jul 96 16:29:16 +0200 Received: from cumulus (cumulus.dai.ed.ac.uk [192.41.104.201]) by postbox.dai.ed.ac.uk (8.6.13/8.6.12) with ESMTP id OAA21971; Wed, 31 Jul 1996 14:46:18 +0100 Date: Wed, 31 Jul 1996 14:46:17 +0100 Message-Id: <13324.199607311346@cumulus> From: John Levine Subject: Re: clisp under Windows95? To: clisp-list In-Reply-To: Marcus Daniels's message of Tue, 30 Jul 96 21:25:23 +0200 Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh. Marcus Daniels writes: > > [BTW, there are two configurations in the CLISP source for win32 > support: WIN32_UNIX and WIN32_DOS. WIN32_UNIX freely uses cygwin > features, to be as Unix-like as possible. WIN32_DOS, on the other > hand, attempts to use only win32 routines with CLISP's DOS support.] Is there a binary available for WIN32_DOS anywhere? Thanks, John From GMCFDAL@VM.UFF.BR Thu Aug 1 16:00:54 1996 Return-Path: Received: from VM.UFF.BR by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09059; Thu, 1 Aug 96 16:00:54 +0200 Received: from VM.UFF.BR by VM.UFF.BR (IBM VM SMTP V2R2) with BSMTP id 4397; Thu, 01 Aug 96 10:10:50 GMT Date: Thu, 01 Aug 96 10:01:18 GMT From: "Dalboni, Fabio Linhares" Subject: Re: clisp under Windows95? To: Multiple recipients of list In-Reply-To: <13324.199607311346@cumulus> Message-Id: <960801.100118.GMT.GMCFDAL@VM.UFF.BR> X-Acknowledge-To: Dear Marcus Daniels, There is a Self-Extractor file that run under DOS at: ftp://ftp.uu.net/vendor/franz/aclwin/web/w32s130.exe In this directory, there are files the *lisp for windows* installation disk. For best perfomance, I recommend your machine have at least 16 MB of memory and at least 20 MB at swap space. Sincerely, \\\|/// \\ - - // ( @ @ ) +-----------------------oOOo-(_)-oOOo----------------------+ |Dalboni, Fabio Linhares- Computer Science Student | |UFF - Federal Fluminense University | |E-Mail: gmcfdal@vm.uff.br | | fdalboni@lci.dcc.uff.br | |Brazil | +-------------------------------Oooo-----------------------+ oooO ( ) ( ) ) / \ ( (_/ \_} From nathan@bristol.st.com Thu Aug 1 19:41:39 1996 Return-Path: Received: from hawkweed (hawkweed.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11338; Thu, 1 Aug 96 19:41:39 +0200 From: nathan@bristol.st.com Received: by hawkweed id RAA20453; Thu, 1 Aug 1996 17:59:40 +0100 (BST) Message-Id: <1799.199608011701@finlandia.inmos.co.uk> Subject: bindings of *DEBUG-IO* To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Thu, 1 Aug 1996 18:01:39 +0100 (BST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Hi, I'm getting confused about the binding of *DEBUG-IO* when using clisp non-interactively with the -x command line option. It appears that *DEBUG-IO* becomes a two-way-stream, rather than a synonym for *TERMINAL-IO*. However I can't find this documented anywhere in either the manual page describing -x, or the implementation notes, grepping the doc directory left me none the wiser. This is probably the correct thing to do -- after all if you're not interactive you don't want to prompt the user for continues after CERROR. So my question is what are the stream binding differences between interactive and -x usage? Is my supposition correct and is *DEBUG-IO* a null input stream when non-interactive? thanks in advance. nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From haible@ilog.fr Fri Aug 2 12:35:05 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22323; Fri, 2 Aug 96 12:35:05 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA04573; Fri, 2 Aug 1996 11:49:07 +0200 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id LAA14680; Fri, 2 Aug 1996 11:25:09 +0200 (MET DST) From: Bruno Haible Received: by (5.x/8.6.12) id AA03706 for haible@mailhost; Fri, 2 Aug 1996 11:25:08 +0200 Date: Fri, 2 Aug 1996 11:25:08 +0200 Message-Id: <9608020925.AA03706@> To: clisp-list Subject: Re: bindings of *DEBUG-IO* In-Reply-To: <1799.199608011701@finlandia.inmos.co.uk> References: <1799.199608011701@finlandia.inmos.co.uk> Nathan Sidwell writes: > I'm getting confused about the binding of *DEBUG-IO* when > using clisp non-interactively with the -x command line option. > It appears that *DEBUG-IO* becomes a two-way-stream, rather than > a synonym for *TERMINAL-IO*. Yes, the -x command line option sets *DEBUG-IO* to a two-way-stream with null input (i.e. (make-string-input-stream "") or, equivalently, (make-concatenated-stream)). My understanding of the -x option is that it instructs CLISP to start up in batch mode. Unfortunately, as was noted on this mailing list some days ago, the batch mode implementation is currently incomplete: CLISP doesn't exit on errors or when Ctrl-C is pressed. If you don't want batch mode, you should use the -l (load file) option instead and write the commands and a final (EXIT) statement into the file to be loaded. > However I can't find this documented > anywhere in either the manual page describing -x, or the > implementation notes, grepping the doc directory left me none the wiser. To find out more about this issue, you would have had to consult the source. Bruno ! To unsubscribe from the clisp-list mailing list, send mail to ! ! listserv@ma2s2.mathematik.uni-karlsruhe.de ! ! including the two words "unsubscribe clisp-list" as message body. ! From nyongwa.montreal.qc.ca!steve%hilbert.UUCP@Athena.McRCIM.McGill.EDU Mon Aug 5 00:04:07 1996 Return-Path: Received: from Athena.McRCIM.McGill.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA12200; Mon, 5 Aug 96 00:04:07 +0200 Received: from Chart.McRCIM.McGill.EDU by Athena.McRCIM.McGill.EDU (8.6.10) with ESMTP id <199608042120.RAA01321@Athena.McRCIM.McGill.EDU>; Sun, 4 Aug 1996 17:20:26 -0400 Received: from hilbert.UUCP by Chart.McRCIM.McGill.EDU with UUCP (8.6.10//ident-1.0) id RAA18602; Sun, 4 Aug 1996 17:20:27 -0400 Received: from localhost with smtp by hilbert.nyongwa.montreal.qc.ca with smtp (/\oo/\ Smail3.1.29.1 #29.1 #1) id m0unALx-0000VRC; Sun, 4 Aug 96 17:04 EDT Date: Sun, 4 Aug 1996 17:04:49 -0400 (EDT) From: "Steve M. Robbins" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: can't build 1996-07-22 on linux 2.0.10 Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hi, After a configure, the make process bombs out during the 'make interpreted.mem' phase: ----------------------------------------------------------------------- [ ... ] ;; Loading file format.lsp ... ;; Loading of file format.lsp is finished. ;; Loading file /usr/src/languages/clisp-1996-07-22/src/user1.lsp ... ;; Loading of file /usr/src/languages/clisp-1996-07-22/src/user1.lsp is finished. *** - handle_fault error1 ! SIGSEGV cannot be cured. Fault address = 0x1. make: *** [interpreted.mem] Segmentation fault --------------------------------------------------------------------------- What I did: configure --prefix=/usr cd src; ./makemake --with-readline make Compiler is gcc 2.7.2, libc is version 5.3.12. The only interesting thing that happened during the configure is that the 'ffcall' stuff failed the tests. But that seems to only change whether or not configure recommends using the '--with-dynamic-ffi' with makemake. At any rate, it won't even build lisp.run if I try using dynamic ffi. I poked around at the sigsegv.c in the unix directory. It compiled and seems to have worked (the two addresses were the same). Any thoughts? Thanks, Steve From spoon@hilbert.maths.utas.edu.au Mon Aug 5 01:32:45 1996 Return-Path: Received: from hilbert.maths.utas.edu.au by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA13211; Mon, 5 Aug 96 01:32:45 +0200 Received: by hilbert.maths.utas.edu.au (4.1/SMI-4.1) id AA28493; Mon, 5 Aug 96 08:53:28 EST From: spoon@hilbert.maths.utas.edu.au (spoon) Message-Id: <9608042253.AA28493@hilbert.maths.utas.edu.au> Subject: Re: can't build 1996-07-22 on linux 2.0.10 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 5 Aug 1996 08:53:28 +1000 (EST) In-Reply-To: from "Steve M. Robbins" at Aug 5, 96 00:09:36 am X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 472 Hi, I had a similar problem, but not with an earlier kernel (1.12.13 i think). > What I did: > > configure --prefix=/usr > cd src; ./makemake --with-readline > make > > Compiler is gcc 2.7.2, libc is version 5.3.12. I found my problem was the "strength reduce bug", and added -fno-strength-reduce the the CFLAGS and the prob went away. Hope this helps. Sp -- "You need as many clues as you can get as to how these things work when you're a buffoon." - D. Row From nyongwa.montreal.qc.ca!steve%hilbert.UUCP@Athena.McRCIM.McGill.EDU Mon Aug 5 04:44:29 1996 Return-Path: Received: from Athena.McRCIM.McGill.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15217; Mon, 5 Aug 96 04:44:29 +0200 Received: from Chart.McRCIM.McGill.EDU by Athena.McRCIM.McGill.EDU (8.6.10) with ESMTP id <199608050200.WAA03109@Athena.McRCIM.McGill.EDU>; Sun, 4 Aug 1996 22:00:45 -0400 Received: from hilbert.UUCP by Chart.McRCIM.McGill.EDU with UUCP (8.6.10//ident-1.0) id WAA22864; Sun, 4 Aug 1996 22:00:47 -0400 Received: from localhost with smtp by hilbert.nyongwa.montreal.qc.ca with smtp (/\oo/\ Smail3.1.29.1 #29.1 #1) id m0unEkr-0000WjC; Sun, 4 Aug 96 21:46 EDT Date: Sun, 4 Aug 1996 21:46:46 -0400 (EDT) From: "Steve M. Robbins" To: clisp-list Subject: Re: can't build 1996-07-22 on linux 2.0.10 In-Reply-To: <9608042253.AA28493@hilbert.maths.utas.edu.au> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII On Mon, 5 Aug 1996, spoon wrote: > I had a similar problem, but not with an earlier kernel (1.12.13 > i think). > > > I found my problem was the "strength reduce bug", and added > -fno-strength-reduce the the CFLAGS and the prob went away. Hope this > helps. Well, it rules out a 'strength-reduce' problem! I just re-made the entire thing with 'no-strength-reduce', with no better success than at first. The SIGSEGV still cannot be cured. :( -- Steve Robbins If mashed potatoes were security guards, they wouldn't get much done. From marcus@sysc.pdx.edu Mon Aug 5 07:18:47 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17756; Mon, 5 Aug 96 07:18:47 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id VAA17131; Sun, 4 Aug 1996 21:34:40 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id VAA23353; Sun, 4 Aug 1996 21:13:51 -0700 Date: Sun, 4 Aug 1996 21:13:51 -0700 Message-Id: <199608050413.VAA23353@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Re: can't build 1996-07-22 on linux 2.0.10 In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "SR" == Steve M Robbins writes: SR> I just re-made the entire thing with 'no-strength-reduce', with no SR> better success than at first. The SIGSEGV still cannot be cured. I just built source-haible/1996-07-22/clispsrc*.tar.gz on a Debian 1.1 machine running 2.0.10 and libc.so.5.2.18. I included dynamic-modules and stdwin. From johnson@access.digex.net Mon Aug 5 23:13:45 1996 Return-Path: Received: from access2.digex.net by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA27016; Mon, 5 Aug 96 23:13:45 +0200 Received: (from johnson@localhost) by access2.digex.net (8.6.12/8.6.12) id QAA00496 ; for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Mon, 5 Aug 1996 16:29:50 -0400 From: evan johnson Message-Id: <199608052029.QAA00496@access2.digex.net> Subject: unsubscribing To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 5 Aug 1996 16:29:50 -0400 (EDT) In-Reply-To: <199608050413.VAA23353@sayre.sysc.pdx.edu> from "Marcus Daniels" at Aug 5, 96 07:20:48 am X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 210 I am quite aware that this is inappropriate, but can someone *please* tell me how to unsubscribe from this list? Hopefully I'll be able to find a useful response buried beneath all the flames... thanks evan From skeezix@trepan.io.org Tue Aug 6 21:01:49 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10881; Tue, 6 Aug 96 21:01:49 +0200 Received: from trepan.io.org by nz11.rz.uni-karlsruhe.de with SMTP (PP); Tue, 6 Aug 1996 20:17:45 +0200 Received: (from skeezix@localhost) by trepan.io.org (8.6.9/8.6.9) id OAA04268; Tue, 6 Aug 1996 14:12:03 -0400 Date: Tue, 6 Aug 1996 14:12:02 -0400 (EDT) From: Jeff Mitchell Reply-To: skeezix@acm.org To: clisp-list Cc: Multiple recipients of list Subject: Re: can't build 1996-07-22 on linux 2.0.10 In-Reply-To: Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII On Mon, 5 Aug 1996, Steve M. Robbins wrote: > Well, it rules out a 'strength-reduce' problem! > > I just re-made the entire thing with 'no-strength-reduce', with no better > success than at first. The SIGSEGV still cannot be cured. :( I've found on several platforms that the segfaults go away if you drop the generation GC code; Its something like -DNO_GENERATIONAL_GC in the CFLAGS. I've got no code with me currently for specifics, but give it a shot. It at least worked on an older (3 or 4 mo) kernel for linux. Jeff .------------. Skeezix and Ladynigh, entwined forever since July 1, 1994. |_ __=--' ) ( Did you breastfeed until puberty? learn not to shit your '------' pants by the tender age of seventeen? Then Microsoft skeezix@acm.org VisualBasic is for you! From skeezix@trepan.io.org Sat Aug 10 00:08:58 1996 Return-Path: Received: from trepan.io.org by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA26307; Sat, 10 Aug 96 00:08:58 +0200 Received: (from skeezix@localhost) by trepan.io.org (8.6.9/8.6.9) id RAA20455; Fri, 9 Aug 1996 17:23:29 -0400 Date: Fri, 9 Aug 1996 17:23:28 -0400 (EDT) From: Jeff Mitchell Reply-To: skeezix@acm.org To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: database access Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII These are newbie questions, I admit. No flames if you can hold 'em back :) Some objects are unprintable (ie: #). Some subset of unprintable objects could be CLOS class-instances. If I defined a print-function in defclass, should instances of this class miraculously become printable? Second question: Has a database interface been written for Postgres (PostGres95 (not to do with Win95) more specifically) by chance? For unix, NetBSD i386, if required. I am an experienced C programmer; would it be involved to write an interface if none have yet been written? The reasons I ask both these questions are for object storage. The database would be the big winner so I could write out object state information, but failing that, printing objects to files could be workable. Slower? Opinions? Jeff .------------. Skeezix and Ladynigh, entwined forever since July 1, 1994. |_ __=--' ) ( "Vorga, I kill you filthy." '------' - Alfred Bester, "The Stars My Destination" skeezix@acm.org From gat@aig.jpl.nasa.gov Sat Aug 10 00:26:43 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA26568; Sat, 10 Aug 96 00:26:43 +0200 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA01054; Fri, 9 Aug 96 14:42:00 PDT Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id OAA21246; Fri, 9 Aug 1996 14:41:59 -0700 (PDT) Date: Fri, 9 Aug 1996 14:41:59 -0700 (PDT) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199608092141.OAA21246@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: database access X-Sun-Charset: US-ASCII > Some objects are unprintable (ie: #). Some subset of > unprintable objects could be CLOS class-instances. If I defined > a print-function in defclass, should instances of this class > miraculously become printable? These objects aren't unprintable, they're unREADable. There are no unprintable objects. Erann Gat gat@jpl.nasa.gov From k323lgy@kinsws.kins.re.kr Tue Aug 13 06:33:15 1996 Return-Path: Received: from kinsws.kins.re.kr ([203.250.170.6]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01487; Tue, 13 Aug 96 06:33:15 +0200 Message-Id: <9608130433.AA01487@ma2s2.mathematik.uni-karlsruhe.de> Received: from k323lgy.kins.re.kr ([203.230.43.243]) by kinsws.kins.re.kr with SMTP (1.39.111.2/16.2) id AA138387782; Tue, 13 Aug 1996 12:43:02 +0900 Date: Tue, 13 Aug 1996 12:43:02 +0900 X-Sender: k323lgy@kinsws.kins.re.kr (Unverified) X-Mailer: Windows Eudora Light Version 1.5.2 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Geum Yong Lee Subject: CLISP on Windows 95 ? Hi, there It is very hot here in Korea. How are you everybody ? This is my first entry into the list clisp-list. And I have an urgent question. Could anybody tell me how to run clisp on Windows 95 ? The file README describes only something about Windows 3.1. Dr. Marcus Daniels told me the other day that I could run clisp using "rsx" or something. It would be a great pleasure to me to receive a message describing every details about running clisp on windows 95, including detailed and prescriptive installation procedures. Many thanks in advance. Geum-Yong Lee, Ph. D Korea Institute of Nuclear Safety From k323lgy@kinsws.kins.re.kr Tue Aug 13 06:44:56 1996 Return-Path: Received: from kinsws.kins.re.kr ([203.250.170.6]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01637; Tue, 13 Aug 96 06:44:56 +0200 Message-Id: <9608130444.AA01637@ma2s2.mathematik.uni-karlsruhe.de> Received: from k323lgy.kins.re.kr ([203.230.43.243]) by kinsws.kins.re.kr with SMTP (1.39.111.2/16.2) id AA135337110; Tue, 13 Aug 1996 12:31:50 +0900 Date: Tue, 13 Aug 1996 12:31:50 +0900 X-Sender: k323lgy@kinsws.kins.re.kr (Unverified) X-Mailer: Windows Eudora Light Version 1.5.2 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Geum Yong Lee Subject: subscribe subscribe clisp-list Geum-Yong Lee lists From k323lgy@kinsws.kins.re.kr Tue Aug 13 06:54:15 1996 Return-Path: Received: from kinsws.kins.re.kr ([203.250.170.6]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA01840; Tue, 13 Aug 96 06:54:15 +0200 Message-Id: <9608130454.AA01840@ma2s2.mathematik.uni-karlsruhe.de> Received: from k323lgy.kins.re.kr ([203.230.43.243]) by kinsws.kins.re.kr with SMTP (1.39.111.2/16.2) id AA138387782; Tue, 13 Aug 1996 12:43:02 +0900 Date: Tue, 13 Aug 1996 12:43:02 +0900 X-Sender: k323lgy@kinsws.kins.re.kr (Unverified) X-Mailer: Windows Eudora Light Version 1.5.2 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Geum Yong Lee Subject: CLISP on Windows 95 ? Hi, there It is very hot here in Korea. How are you everybody ? This is my first entry into the list clisp-list. And I have an urgent question. Could anybody tell me how to run clisp on Windows 95 ? The file README describes only something about Windows 3.1. Dr. Marcus Daniels told me the other day that I could run clisp using "rsx" or something. It would be a great pleasure to me to receive a message describing every details about running clisp on windows 95, including detailed and prescriptive installation procedures. Many thanks in advance. Geum-Yong Lee, Ph. D Korea Institute of Nuclear Safety From johnl@dai.ed.ac.uk Tue Aug 13 16:48:27 1996 Return-Path: Received: from postbox.dai.ed.ac.uk by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA07806; Tue, 13 Aug 96 16:48:27 +0200 Received: from cumulus (cumulus.dai.ed.ac.uk [192.41.104.201]) by postbox.dai.ed.ac.uk (8.6.13/8.6.12) with ESMTP id PAA18525; Tue, 13 Aug 1996 15:03:13 +0100 Date: Tue, 13 Aug 1996 15:03:12 +0100 Message-Id: <10046.199608131403@cumulus> From: John Levine Subject: Re: CLISP on Windows 95 ? To: clisp-list In-Reply-To: Geum Yong Lee's message of Tue, 13 Aug 96 06:46:03 +0200 Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh. Geum Yong Lee writes: > Could anybody tell me how to run clisp on Windows 95 ? The file README > describes only something about Windows 3.1. Dr. Marcus Daniels > told me the other day that I could run clisp using "rsx" > or something. The DOS binary distribution comes with a file called rsx.exe. You can run the DOS version under Windows 95 using this via the following command: > cd > rsx.exe -Ra -Rs1024 lisp.exe -M lispinit.mem The "-Rs1024" (make the stack 1Mb) isn't strictly necessary but I found the default stack size too small for me. Cheers, John Levine, Department of Artificial Intelligence, University of Edinburgh, Scotland, U.K. From k323lgy@kinsws.kins.re.kr Wed Aug 14 03:53:12 1996 Return-Path: Received: from kinsws.kins.re.kr ([203.250.170.6]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA14233; Wed, 14 Aug 96 03:53:12 +0200 Message-Id: <9608140153.AA14233@ma2s2.mathematik.uni-karlsruhe.de> Received: from k323lgy.kins.re.kr ([203.230.43.243]) by kinsws.kins.re.kr with SMTP (1.39.111.2/16.2) id AA156424496; Wed, 14 Aug 1996 10:01:36 +0900 Date: Wed, 14 Aug 1996 10:01:36 +0900 X-Sender: k323lgy@kinsws.kins.re.kr (Unverified) X-Mailer: Windows Eudora Light Version 1.5.2 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: john1@dai.ed.ac.uk From: Geum Yong Lee Subject: Thank you for Window95 clisp Cc: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Dear Dr. John Levine, You told me that I could run the DOS version of CLISP on Windows 95 by 1) cd 2) rsx.exe -Ra -Rs1024 lisp.exe -M lispinit.mem This morning, I just verified your priceless information. What a beautiful success I have !! I had adjusted the command on "rsx" from "rsx.exe" to that in 2) above (Push the right mouse button on the rsx icon, and adjust the registration information, the former PIF file). Then, when double-clicking the rsx icon, the window for clisp appeared successfully. Thank you so much. Your information saved me a great deal of time. Cheers, Geum-Yong Lee, Ph. D Radiation and Environment Division, Korea Institute of Nuclear Safety From hoehle@zeus.gmd.de Fri Aug 16 14:48:24 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20524; Fri, 16 Aug 96 14:48:24 +0200 Received: by diva.gmd.de with UUCP id AA02496 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Fri, 16 Aug 1996 13:58:03 +0200 Date: Fri, 16 Aug 1996 13:58:03 +0200 Message-Id: <199608161158.AA02496@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: system::*source-file-types* is not documented Hi, an Amiga-CLISP user just pointed out the fact that the very useful *source-file-types* variable is documented nowhere, even though it helps loading and compiling foreign Lisp packages immensely, especially those with file type ".lisp". Here's some text for impnotes.txt, section 23.4 (LOAD), after *LOAD-PATHS* -------- The variable SYSTEM::*SOURCE-FILE-TYPES* contains a list of source filename types that are looked for when searching inside *LOAD-PATHS*. The default value is (#".lsp"). -------- The same text could appear in the compiler section too. I wonder if it would be useful to mention system::*compiled-file-types* too. Generally, every compiler has it's own binary file type. Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de http://zeus.gmd.de/~hoehle/amiga-clisp.html From johnl@dai.ed.ac.uk Mon Aug 19 19:05:54 1996 Return-Path: Received: from postbox.dai.ed.ac.uk ([192.41.104.196]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23797; Mon, 19 Aug 96 19:05:54 +0200 Received: from cumulus (cumulus.dai.ed.ac.uk [192.41.104.201]) by postbox.dai.ed.ac.uk (8.6.13/8.6.12) with ESMTP id RAA20819; Mon, 19 Aug 1996 17:19:37 +0100 Date: Mon, 19 Aug 1996 17:19:36 +0100 Message-Id: <18565.199608191619@cumulus> From: John Levine Subject: system variables in DOS clisp To: clisp-list Organisation: Dept. of Artificial Intelligence, Univ. of Edinburgh. Hi, Is there any way of accessing DOS variables from inside the DOS version of CLISP? That is, I want to do something like this: c:\> set spong="c:\wibble\wombat\" c:\> clisp > (setq *path* (get-dos-variable spong)) "c:\wibble\wombat\" > (load (format nil "~Acode.lsp" *path*)) etc... Thanks, John From peterm@cae.com.au Tue Aug 20 09:32:50 1996 Return-Path: Received: from postbox.cae.com.au ([203.27.9.1]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03093; Tue, 20 Aug 96 09:32:50 +0200 Received: (from smap@localhost) by postbox.cae.com.au (8.7.4/8.7.3) id QAA23151 for ; Tue, 20 Aug 1996 16:44:58 +1000 X-Authentication-Warning: postbox.cae.com.au: smap set sender to using -f Received: from groupwise.cae.com.au(142.39.230.111) by postbox.cae.com.au via smap (V1.3) id sma023149; Tue Aug 20 16:44:39 1996 Received: from AUSCAE-Message_Server by groupwise.cae.com.au with Novell_GroupWise; Tue, 20 Aug 1996 16:27:13 +1000 Message-Id: X-Mailer: Novell GroupWise 4.1 Date: Tue, 20 Aug 1996 16:42:05 +1000 From: Peter Milliken To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Bug in Installing under DOS and DJGPP Hi, I have been downloaded version clisp-1996-05-30 from my local mirror site and attempted to install clisp with no success. I am using djgpp2.0. I tried to use djgpp1.12 as suggested in the install file under the dosdjgpp directory but couldn't get as far in the build process as I could using version 2.0. I am trying to write a small lisp program that will manipulate a large amount of data, hence the desire to use the 32-bit version of djgpp rather than the real-mode version as suggested in the install program. Basically, I can execute all the steps up to the "make interpreted.mem" target with no errors. The system goes through all the .lsp files and loads them OK but fails in the sys::%saveinitmem command. It gives an error of: DJDOS error 22 (ENOENT): no such file or directory. I have traced the problem down to something in the savemem function (spvw.c) by commenting out the line: (savemem "lispimag.mem") in the file user2.lsp. After that it becomes a bit too much for me without a lot of extra work. Can someone help out here? I have enclosed the total script of my experiences below in attempting the installation for the benefit of whoever maintains the DJGPP port of clisp. Thanks Peter ------------------------------------------------------------ I performed the following steps to get to the problem point mentioned above: 1. deleted all references to "copy /b ..go32.exe ..." in the install and makefile (v2.0 of djgpp automatically does it now as part of the gcc step). 2. modified dosdjgpp/copyx.bat and dos/delx.bat to only reference file names conforming to the DOS 8+3 format ie makefile.go3 not makefile.go32 and rlobject not rlobjects etc. 3. deleted unixaux.o from the gcclink.in file (doesn't seem to be needed, certainly not built by the make file). From marcus@sysc.pdx.edu Tue Aug 20 11:45:48 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04594; Tue, 20 Aug 96 11:45:48 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id BAA05516; Tue, 20 Aug 1996 01:59:02 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id XAA04122; Mon, 19 Aug 1996 23:49:12 -0700 Date: Mon, 19 Aug 1996 23:49:12 -0700 Message-Id: <199608200649.XAA04122@sayre.sysc.pdx.edu> From: Marcus Daniels To: clisp-list Subject: Bug in Installing under DOS and DJGPP In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "PM" == Peter Milliken writes: PM> Basically, I can execute all the steps up to the "make PM> interpreted.mem" target with no errors. The system goes through PM> all the .lsp files and loads them OK but fails in the PM> sys::%saveinitmem command. It gives an error of: PM> DJDOS error 22 (ENOENT): no such file or directory. In May, I built CLISP using DJGPP v. 2. I think it ought to be close to working (http://sayre.sysc.pdx.edu:8001/clisp/binaries/djgpp2/dos_wide.zip). I dealt with several problems such as the one you describe here. One way to see where the error is coming from is to swap these defines in lispbibl.d: # #define OS_error() OS_error_debug(__FILE__,__LINE__) #define OS_error() OS_error_() then, if such an error occurs, CLISP will indicate where it is coming from. Also be sure that the various instances of "DJGPP == 2" are being compiled-in and used. PM> I have enclosed the total script of my experiences below in PM> attempting the installation for the benefit of whoever maintains PM> the DJGPP port of clisp. The DOS versions of CLISP get very little attention. If someone wants them to work, the best thing to do is send patches or more independently maintain a port. From haible@ilog.fr Tue Aug 20 22:28:59 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11014; Tue, 20 Aug 96 22:28:59 +0200 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA11098; Tue, 20 Aug 1996 21:42:24 +0200 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.5/8.7.3) with SMTP id VAA25742; Tue, 20 Aug 1996 21:35:28 +0200 (MET DST) From: Bruno Haible Received: by (5.x/8.6.12) id AA08327 for haible@mailhost; Tue, 20 Aug 1996 21:35:28 +0200 Date: Tue, 20 Aug 1996 21:35:28 +0200 Message-Id: <9608201935.AA08327@> To: clisp-list Subject: Re: system variables in DOS clisp In-Reply-To: <18565.199608191619@cumulus> References: <18565.199608191619@cumulus> John Levine asks: > Is there any way of accessing DOS variables from inside the DOS version > of CLISP? That is, I want to do something like this: > > c:\> set spong="c:\wibble\wombat\" > c:\> clisp > > > (setq *path* (get-dos-variable spong)) > "c:\wibble\wombat\" The answer is (setq *path* (system::getenv "spong")) (It will print with doubled backslashes, of course.) Bruno From hoehle@zeus.gmd.de Wed Aug 21 18:49:19 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23749; Wed, 21 Aug 96 18:49:19 +0200 Received: by diva.gmd.de with UUCP id AA03245 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Wed, 21 Aug 1996 17:57:53 +0200 Date: Wed, 21 Aug 1996 17:57:53 +0200 Message-Id: <199608211557.AA03245@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: Bug? In-Reply-To: <9607260719.AA13093@hilbert.maths.utas.edu.au> References: <9607260719.AA13093@hilbert.maths.utas.edu.au> spoon@hilbert.maths.utas.edu.au writes: > > `(a `(b `(c ,@(d `(e))))) > *** - The syntax ,@form is valid only in lists > 1. Break> abort > > *** - EVAL: variable ABORT has no value > 2. Break> abort > > 1. Break> abort > I won't comment on the supposed bug, but I too have observed that CLISP sometimes doesn't seem to know about ABORT when you type it in as first input after an error (UNIX and amiga versions). Is this a bad interaction within Emacs? Has anybody else observed this? Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de http://zeus.gmd.de/~hoehle/amiga-clisp.html From hoehle@zeus.gmd.de Sat Aug 24 13:33:45 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04659; Sat, 24 Aug 96 13:33:45 +0200 Received: by diva.gmd.de with UUCP id AA03946 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Sat, 24 Aug 1996 12:41:45 +0200 Date: Sat, 24 Aug 1996 12:41:45 +0200 Message-Id: <199608241041.AA03946@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: released Amiga-CLISP (960530 version) Hi, this is just a short note that a new version of the Amiga port of CLISP is available in Aminet, in ftp://ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp/binaries/amiga/ and in my Amiga-CLISP Web Home Page http://zeus.gmd.de/~hoehle/amiga-clisp.html This release is the first one to document the Amiga Foreign Function Interface (AFFI), with which any function from almost any shared library can be called. Two examples are provided. It's also the first time I publicly release a -wide version. This version has MOST-POSITIVE-FIXNUM as 2^32-1 and can deal with any memory, including VMM, at the cost of being 40% slower than the -high version. There's a "construction kit" archive of the -high version containing the standard CLISP FFI, libclisp.a and the QUEENS demo (from the file EXTEND.TXT) as a module. Most (if not all) changes I had to apply to the 960530 sources have been merged into clispsrc-960730 and later releases by Marcus Daniels. I haven't compiled such a newer release yet. All CLISP documentation files are online in my web directory. Enjoy, Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de http://zeus.gmd.de/~hoehle/amiga-clisp.html From hoehle@zeus.gmd.de Mon Aug 26 16:48:57 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20555; Mon, 26 Aug 96 16:48:57 +0200 Received: by diva.gmd.de with UUCP id AA04351 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Mon, 26 Aug 1996 15:56:30 +0200 Date: Mon, 26 Aug 1996 15:56:30 +0200 Message-Id: <199608261356.AA04351@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: CLISP with FFI for MS-Windows 3.11/95/NT? Hi, Is there a CLISP for any of the above MS-Windows that can be extended (by adding a module) with functions from either a link library or a DLL? A C communication package that our Lisp project needs is available in both link library and DLL form. We wonder if we can use CLISP as a target on a MS-Windows PC port of our project. If yes: + what version(s) of MS-W*? + is it necessary to compile CLISP ourselves or does the equivalent of liblisp.a exist? + is a complete GNU+GCC environment needed or does the GNU linker suffice? + we have VisualC/++ 4.0, would that be enough to compile a module to link with liblisp.a? Thanks for any information, Jo"rg Ho"hle. Joerg.Hoehle@gmd.de hoehle@zeus.gmd.de From peterm@cae.com.au Wed Aug 28 01:50:54 1996 Return-Path: Received: from postbox.cae.com.au ([203.27.9.1]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10396; Wed, 28 Aug 96 01:50:54 +0200 Received: (from smap@localhost) by postbox.cae.com.au (8.7.4/8.7.3) id JAA10657 for ; Wed, 28 Aug 1996 09:05:48 +1000 X-Authentication-Warning: postbox.cae.com.au: smap set sender to using -f Received: from groupwise.cae.com.au(142.39.230.111) by postbox.cae.com.au via smap (V1.3) id sma010655; Wed Aug 28 09:05:38 1996 Received: from AUSCAE-Message_Server by groupwise.cae.com.au with Novell_GroupWise; Wed, 28 Aug 1996 08:45:59 +1000 Message-Id: X-Mailer: Novell GroupWise 4.1 Date: Wed, 28 Aug 1996 09:03:03 +1000 From: Peter Milliken To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Bug in Installing under DOS and DJGPP -Reply >>> Marcus Daniels 20/August/1996 07:51pm >>> >>>>> "PM" == Peter Milliken writes: PM> Basically, I can execute all the steps up to the "make PM> interpreted.mem" target with no errors. The system goes through PM> all the .lsp files and loads them OK but fails in the PM> sys::%saveinitmem command. It gives an error of: PM> DJDOS error 22 (ENOENT): no such file or directory. In May, I built CLISP using DJGPP v. 2. I think it ought to be close to working (http://sayre.sysc.pdx.edu:8001/clisp/binaries/djgpp2/dos_wide.zip). I dealt with several problems such as the one you describe here. One way to see where the error is coming from is to swap these defines in lispbibl.d: # #define OS_error() OS_error_debug(__FILE__,__LINE__) #define OS_error() OS_error_() then, if such an error occurs, CLISP will indicate where it is coming from. Also be sure that the various instances of "DJGPP == 2" are being compiled-in and used. PM> I have enclosed the total script of my experiences below in PM> attempting the installation for the benefit of whoever maintains PM> the DJGPP port of clisp. The DOS versions of CLISP get very little attention. If someone wants them to work, the best thing to do is send patches or more independently maintain a port. Thanks for your help, I downloaded your binaries and they seem to work OK. Pure cussedness on my part insisted that I get the binaries to compile from the source. Further to the changes I made originally I made the following changes: changed pathname.d at line 10184 from: global int djgpp2_creat(path,mode) var reg3 CONST char* path; var reg2 unsigned long mode; { if (unlink(path) < 0) {OS_error();} } #undef creat return creat(path,mode); } to: global int djgpp2_creat(path,mode) var reg3 CONST char* path; var reg2 unsigned long mode; { #include if (access(path, F_OK) == 0) { if (unlink(path) != 0) { OS_error(); } } #undef creat return creat(path,mode); } This change tests if the file exists prior to attempting to unlink it (which will always fail if the file doesn't exist). The other change I had to make was to the makefile. I found that I was getting a stack overflow when creating the lispinit.mem target on several of the .lsp files. In the end I changed all the 800kw ocurrences to 8M (overkill I am sure, but it takes so long on each pass that I couldn't be bothered refining the number, I have 16MBytes available so I made use of it). I will now start to write my lisp program, any further problems/solutions and I will send them to you. Again, Thanks Peter From marcus@sysc.pdx.edu Wed Aug 28 06:43:05 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA13509; Wed, 28 Aug 96 06:43:05 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.6.10/CATastrophe-2/10/96-P) with ESMTP id UAA15080; Tue, 27 Aug 1996 20:54:51 -0700 for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id UAA27093; Tue, 27 Aug 1996 20:54:39 -0700 Date: Tue, 27 Aug 1996 20:54:39 -0700 Message-Id: <199608280354.UAA27093@sayre.sysc.pdx.edu> From: Marcus Daniels To: Subject: Bug in Installing under DOS and DJGPP -Reply In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII Thanks for the patch! From guycole@netcom.com Mon Sep 9 00:07:21 1996 Return-Path: Received: from netcom10.netcom.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11175; Mon, 9 Sep 96 00:07:21 +0200 Received: (from guycole@localhost) by netcom10.netcom.com (8.6.13/Netcom) id NAA26872; Sun, 8 Sep 1996 13:05:28 -0700 Date: Sun, 8 Sep 1996 13:05:28 -0700 (PDT) From: Guy Cole Subject: Unable to build under Solaris 2.5.1 To: clisp list Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hello. I'm new to CLISP and the mailing list. I've just obtained a copy of the clisp-1996-05-30 distribution. My environment is Solaris 2.5.1 w/the SPARCworks compiler C 3.0.1 During the configure step, I have a core dump when invoking src/avcall/tests Is there an easy fix for this? =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Guy Cole (KQ6J) * "Expert Plain And Fancy Bit Twiddling" * guycole@netcom.com CK6! INC * P.O. Box 2269, Ramona, CA. 92065 * (619) 789-8106 http://www.electriciti.com/~ck6inc/ From wainzjk@msn.com Wed Sep 11 03:46:14 1996 Return-Path: Received: from upsmot01.msn.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11932; Wed, 11 Sep 96 03:46:14 +0200 Received: from upmajb04.msn.com ([204.95.110.81]) by upsmot01.msn.com (8.6.8.1/Configuration 4) with SMTP id QAA14822 for ; Tue, 10 Sep 1996 16:37:16 -0700 Date: Tue, 10 Sep 96 23:38:12 UT From: "Joe Wainz" Message-Id: To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: system package and graphics Hi, I've used the graphics functions provided in the system package. I've always been forced to run the graphics in DOS and not windows. Does someone have a way to run the graphics in a window. If not how can I get source for the system package that is not zipped and tarred (requiring necessary Unix functions to extract). And any insight in what is required to make the changes necessary. Thanks, Joe From rtietjen@kale.connix.com Thu Sep 19 06:26:32 1996 Return-Path: Received: from comet.connix.com by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA28313; Thu, 19 Sep 96 06:26:32 +0200 Received: from kale.connix.com (root@kale.connix.com [204.183.64.34]) by comet.connix.com (8.7.5/8.6.5) with SMTP id WAA24598; Wed, 18 Sep 1996 22:22:46 -0400 (EDT) Received: by kale.connix.com id (Debian /\oo/\ Smail3.1.29.1 #29.37); Wed, 18 Sep 96 22:27 EDT Message-Id: Date: Wed, 18 Sep 96 22:27 EDT From: Richard Tietjen To: marcus@sysc.pdx.edu, clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP on Debian In-Reply-To: <199609180229.TAA02533@sayre.sysc.pdx.edu> References: <199609172308.QAA01426@sayre.sysc.pdx.edu> <199609180229.TAA02533@sayre.sysc.pdx.edu> I've downloaded clisp from ftp.stat.ucla.edu for Linux ELF. I'm using the 1.1 Debian Linux distribution. When I run make according the instructions in the README, ld announces ld: cannot open -ltermcap: no such file or directory Marcus Daniels suggested the following: >>>>> On Tue, 17 Sep 1996 19:29:54 -0700, Marcus Daniels said: Marcus> ftp.debian.org Marcus> /pub/debian/unstable/binary-i386/misc/termcap-compat_1.0.0-2.deb Marcus> If you still get a complaint about -lX11, try deleting it, Marcus> if that doesn't work, and you have X11R6 installed, add Marcus> -L/usr/X11R6/lib before -lX11 wherever it occurs in the Marcus> makefile. Otherwise, you'd need to rebuild from source. I'm submitting my followup to the list as well as to Marcus. I obtained termcap-compat, installed it, and ran make to no avail. LD announces the same error as before. termcap-compat added /lib/libtermcap.so.2 to my system, but ld is seeking libtermcap.a, right? My understanding of Unix/Linux C and libraries etc. and their dependancies is nil. Is there something simple I need to do? Thanks. From marcus@sysc.pdx.edu Thu Sep 19 07:35:14 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29104; Thu, 19 Sep 96 07:35:14 +0200 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.5/CATastrophe-2/10/96-P) with SMTP id UAA09973; Wed, 18 Sep 1996 20:31:19 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id UAA06204; Wed, 18 Sep 1996 20:31:15 -0700 Date: Wed, 18 Sep 1996 20:31:15 -0700 Message-Id: <199609190331.UAA06204@sayre.sysc.pdx.edu> From: Marcus Daniels To: Richard Tietjen Cc: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP on Debian In-Reply-To: References: <199609172308.QAA01426@sayre.sysc.pdx.edu> <199609180229.TAA02533@sayre.sysc.pdx.edu> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "RT" == Richard Tietjen writes: RT> I obtained termcap-compat, installed it, and ran make to no avail. RT> LD announces the same error as before. termcap-compat added RT> /lib/libtermcap.so.2 to my system, but ld is seeking libtermcap.a, RT> right? My understanding of Unix/Linux C and libraries etc. and RT> their dependancies is nil. Is there something simple I need to RT> do? I've noticed that Debian library packages may not set the `developer' symlink. In /lib, try "ln -s libtermcap.so.2 libtermcap.so", and see if that corrects the problem. From rtietjen@kale.connix.com Fri Sep 20 04:10:35 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA11914; Fri, 20 Sep 96 04:10:35 +0200 Received: from comet.connix.com by nz11.rz.uni-karlsruhe.de with SMTP (PP); Fri, 20 Sep 1996 02:06:49 +0200 Received: from kale.connix.com (root@kale.connix.com [204.183.64.34]) by comet.connix.com (8.7.6/8.6.5) with SMTP id UAA06240 for ; Thu, 19 Sep 1996 20:01:44 -0400 (EDT) Received: by kale.connix.com id (Debian /\oo/\ Smail3.1.29.1 #29.37); Thu, 19 Sep 96 20:06 EDT Message-Id: Date: Thu, 19 Sep 96 20:06 EDT From: Richard Tietjen To: Subject: CLISP on Debian In-Reply-To: <199609190331.UAA06204@sayre.sysc.pdx.edu> References: <199609190331.UAA06204@sayre.sysc.pdx.edu> >>>>> On Thu, 19 Sep 96 07:40:26 +0200, Marcus Daniels said: >>>>> "RT" == Richard Tietjen writes: RT> I obtained termcap-compat, installed it, and ran make to no RT> avail. LD announces the same error as before. termcap-compat RT> added /lib/libtermcap.so.2 to my system, but ld is seeking RT> libtermcap.a, right? My understanding of Unix/Linux C and RT> libraries etc. and their dependancies is nil. Is there RT> something simple I need to do? Marcus> I've noticed that Debian library packages may not set the Marcus> `developer' symlink. In /lib, try "ln -s libtermcap.so.2 Marcus> libtermcap.so", and see if that corrects the problem. Hi Marcus, The debian install did the symlink correctly, that's not it. So, is ld NOT looking for an 'a' version of libtermcap.so? BTW, it seems that sayre doesn't respond to http or ftp connection requests, the past couple of days that I've tried anyway. On another, Lisp related, topic: have you heard of metahtml, at www.metahtml.com? Someone named Brian Fox, author of BASH, wrote it to strongly resemble Scheme. A cursory inspection last night suggests it to be a set of tools for processing pseudo-html text files with embedded programming into browser-ready pages, either on-the-fly through their httpd daemon, through the CGI version, or even pre-processed through a filter version. The embedded command language seems to follow the functional, recursive evaluation paradigm, which I think that will make me very happy. From lalipat@charlie.cns.iit.edu Sat Sep 28 10:04:36 1996 Return-Path: Received: from charlie.cns.iit.edu ([198.87.195.20]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA27036; Sat, 28 Sep 96 10:04:36 +0200 Received: (from lalipat@localhost) by charlie.cns.iit.edu (950413.SGI.8.6.12/950213.SGI.AUTOCF) id AAA29024; Sat, 28 Sep 1996 00:59:23 -0500 Date: Sat, 28 Sep 1996 00:59:23 -0500 (CDT) From: Pattarachai Lalitrojwong To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: "directory" function Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hi, Now I'm writing a Clisp program with on DOS. I'd like to know how I can dir with wildcards, like (directory "a*.*") ? Another question is the result from DIRECTORY function contains only files, how can I get subdirectories if it has? Thanks, Pat. From tara@linkage.rockefeller.edu Sun Sep 29 00:56:16 1996 Return-Path: Received: from rockvax.rockefeller.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05914; Sun, 29 Sep 96 00:56:16 +0200 Received: from linkage.rockefeller.edu (linkage.rockefeller.edu [129.85.25.114]) by rockvax.rockefeller.edu (8.7.4/8.7.4) with SMTP id QAA25372 for ; Sat, 28 Sep 1996 16:50:55 -0400 (EDT) Received: from localhost by linkage.rockefeller.edu (SMI-8.6/SMI-SVR4) id QAA21004; Sat, 28 Sep 1996 16:48:58 -0400 Date: Sat, 28 Sep 1996 16:48:58 -0400 (EDT) From: Tara Matise X-Sender: tara@linkage Reply-To: Tara Matise To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: help with SunOS 5.5.1 Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII CLISP-LIST: I am having trouble running CLISP on our Sun UltraSparc Enterprise ES3000. It is running SunOS 5.5.1. 1. I tried using the binaries sun4-sunos54 and sun4-solaris24. With either I get this message when I try to install: statgen:tara% base/lisp.run -M base/lispinit.mem ld.so.1: base/lisp.run: fatal: libX11.so.6.0: can't open file: errno=2 Killed We have libX11.so.4. Is there a solution to this? 2. In tried installing the source code. I had no trouble compiling it using gcc-2.7.2, and was able to run some of my code using this CLISP. However, when I tried to run a job which first reads in a large hash table, it shortly crashes and I get this message: *** - Internal error: statement in file "io.d", line 6059 has been reached!! Please send the authors of the program, a description how you produced this error! This same job is running fine on a Dec ALPHA using CLISP. Any suggestions? Thanks, Tara - - - - - - - - - :-) - - - - - - - - - - - - - - - Tara Cox Matise,Ph.D. E-mail: tara@linkage.rockefeller.edu Lab of Statistical Genetics The Rockefeller University phone: 212-327-7994 1230 York Ave, Box 192 fax: 212-327-7996 New York, NY 10021 WWW: http://linkage.cpmc.columbia.edu/tara/ From nathan@bristol.st.com Mon Sep 30 19:19:23 1996 Return-Path: Received: from hawkweed (hawkweed.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22534; Mon, 30 Sep 96 19:19:23 +0100 From: nathan@bristol.st.com Received: by hawkweed id RAA12615; Mon, 30 Sep 1996 17:14:39 +0100 (BST) Message-Id: <9337.199609301616@finlandia.inmos.co.uk> Subject: SIGSEGV cannot be cured To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 30 Sep 1996 17:16:38 +0100 (BST) X-Mailer: ELM [version 2.4 PL23] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Hi, I appear to have a located a bug. The program appended gives an uncurable segfault when running the compiled program. here is the terminal output ***start terminal output nathan@finlandia:1>clisp -q -c bang Compiling file /home/nathan/tgz/sparc-SunOS-5.5-sun4u-X11+OpenGL/src/tools/cwic/bang.lsp ... Compilation of file /home/nathan/tgz/sparc-SunOS-5.5-sun4u-X11+OpenGL/src/tools/cwic/bang.lsp is finished. 0 errors, 0 warnings nathan@finlandia:2>clisp -q -i bang > (bang) Doing evaluate xor handle_fault error1 ! *** - SIGSEGV cannot be cured. Fault address = 0x1703A000. zsh: 7774 segmentation fault (core dumped) clisp -q -i bang nathan@finlandia:3>clisp -q > (lisp-implementation-version) "1996-05-30 (May 1996)" > (machine-version) "SUN4U" > (software-version) "GNU C 2.7.2" > nathan@finlandia:4>uname -a SunOS finlandia 5.5 Generic sun4u sparc SUNW,Ultra-1 nathan@finlandia:5>exit ***end terminal output the lisp was compiled up by me using gcc an SGI with "1996-04-17 (April 1996)", "IP22", & "GNU C 2.7.2.f.1" also exhibits the same symptoms, and I suspect my linux system also had it, but I can't check that right now. the death appears to be between the two formats in the :expr-xor branch of evaluate's outermost CASE form. But, removing the trailing IF, or altering any of the preceeding CASE branches removes the problem. Strange indeed! and here is the smallest program I can get to do this, ***start bad program ;;;; FOLD=";{{{" "" ";}}}" ;;;; $Id: cwc.lsp,v 1.17 1996/09/27 17:04:47 nathan Exp $ ;;;; (C) 1996 Nathan Sidwell ;;; report a bug ;{{{(defun compiler-bug (&rest args) (defun compiler-bug (format &rest args) (format *error-output* "~&Compiler bug!~&~?" format args) (throw 'compiler-bug nil)) ;}}} ;{{{(defmacro compiler-assert (expr) (defmacro compiler-assert (expr) `(if (not ,expr) (compiler-bug "Assertion of ~s failed~&" ',expr))) ;}}} ;{{{(defstruct type-node (defstruct type-node attrib ;sort of type :function :pointer :array :base :compound of ;derived from primary ;primary modifier secondary) ;secondary modifier ;}}} ;;; information about a base type ;{{{(defstruct base-type (defstruct base-type self category ;sint, uint, float, void, nil limit) ;one greater than mostpos value for integral types, print digits for float ;}}} (defvar *base-types*) ;;; add/override a base type (defun add-base-type (name) (setf (gethash name *base-types*) (make-base-type :self name :category name :limit 256))) ;;; return type-info struct for a particular type. (defun base-type-info (base-type) (gethash base-type *base-types*)) ;;; an ae-node is part of the abstract expression tree, which is what ;;; the program gets turned into. ;{{{(defstruct ae-node (defstruct ae-node attrib ;type of node args ;arguments to ae node type-node) ;type of node, if known ;}}} ;;; a value structure holds compile time information about expression values ;{{{(defstruct value (defstruct value type-node ;type of value exact ;exact value min ;min possible max) ;max possible ;}}} ;{{{eval-return ;;; this structure is used to return information from the expression and ;;; statement productions and for the node evaluating functions ;{{{(defstruct eval-return (defstruct eval-return ae-node ; the ae-node value ; value of expression struct:value ) ;}}} ;}}} ;;; evaluate an ae node, given the evaluate results of its child nodes. ;;; returns struct:value ;{{{(defun evaluate (ae-node &rest exprs) (defun evaluate (ae-node &rest exprs) (let ((value (make-value :type-node (ae-node-type-node ae-node))) info) (setf info (base-type-info (type-node-of (value-type-node value)))) (case (ae-node-attrib ae-node) ;{{{:expr-literal (:expr-literal (case (type-node-attrib (value-type-node value)) (:base (setf (value-exact value) (ae-node-args ae-node))) (t (setf value nil)))) ;}}} ;{{{(:expr-or :expr-or-assign) ((:expr-or :expr-or-assign) (let ((value-a (eval-return-value (first exprs))) (value-b (eval-return-value (second exprs))) all-bits) (compiler-assert (member (base-type-category info) '(sint uint))) (case (base-type-category info) (sint (setf all-bits -1)) (uint (setf all-bits (1- (base-type-limit info))))) (cond ((and value-a (value-exact value-a) (eq (value-exact value-a) all-bits)) (setf (value-exact value) all-bits)) ((and value-b (value-exact value-b) (eq (value-exact value-b) all-bits)) (setf (value-exact value) all-bits)) ((and value-a value-b) (if (and (value-exact value-a) (value-exact value-b)) (setf (value-exact value) (logior (value-exact value-a) (value-exact value-b))) ;{{{combine ranges ;; to combine the ranges optimally is quite hard. Infact ;; I spent a couple of days figuring out the algorithm to ;; determine the optimum lower bound. The algorithm seemed ;; fairly complex and I had little confidence in my solutions ;; being correct -- three times I thought I had the correct ;; answer, but three times I was wrong. As the expected return ;; is small, I will be simplistic about combining ranges (let ((min-a (value-min value-a)) (min-b (value-min value-b)) (max-a (value-max value-a)) (max-b (value-max value-b))) (compiler-assert (eq (not min-a) (not max-a))) (compiler-assert (eq (not min-b) (not max-b))) (flet ((lsbmask (value) (compiler-assert (not (minusp value))) (do ((lsb (logand value (- value)) (logand value (- value)))) ((= value lsb) (if (zerop lsb) 0 (1- (ash lsb 1)))) (setf value (logxor value lsb))))) (cond ((or (not min-a) (not min-b))) ;{{{both ranges positive ((and (plusp min-a) (plusp min-b)) (setf (value-min value) (max min-a min-b)) (let ((result (max max-a max-b)) (mask (lsbmask (min max-a max-b)))) (setf (value-max value) (logior result mask)))) ;}}} ;{{{both ranges negative ((and (minusp max-a) (minusp max-b)) (setf (value-min value) (max min-a min-b)) (setf (value-max value) -1)) ;}}} ;{{{both ranges include zero ((not (or (plusp min-a) (plusp min-b) (minusp max-a) (minusp max-b))) (setf (value-min value) (min min-a min-b)) (let ((result (max max-a max-b)) (mask (lsbmask (min max-a max-b)))) (setf (value-max value) (logior result mask)))) ;}}} ;{{{a includes zero, b does not ((not (or (plusp min-a) (minusp max-a))) (cond ;{{{b < 0? ((minusp max-b) (setf (value-min value) (max min-a min-b)) (let ((result max-b) (mask (lsbmask max-a))) (setf (value-max value) (logior result mask)))) ;}}} ;{{{b > 0? ((plusp min-b) (setf (value-min value) min-a) (let ((result (max max-a max-b)) (mask (lsbmask (min max-a max-b)))) (setf (value-max value) (logior result mask)))) ;}}} (t (compiler-bug "Logic error")))) ;}}} ;{{{b includes zero, a does not ((not (or (plusp min-b) (minusp max-b))) (cond ;{{{a < 0? ((minusp max-a) (setf (value-min value) (max min-a min-b)) (let ((result max-a) (mask (lsbmask max-b))) (setf (value-max value) (logior result mask)))) ;}}} ;{{{a > 0? ((plusp min-a) (setf (value-min value) min-b) (let ((result (max max-a max-b)) (mask (lsbmask (min max-a max-b)))) (setf (value-max value) (logior result mask)))) ;}}} (t (compiler-bug "Logic error")))) ;}}} (t (compiler-bug "Cannot determine bitwise or interval"))))))) ;}}} ) )) ;}}} ;{{{(:expr-and :expr-and-assign) ((:expr-and :expr-and-assign) (let ((value-a (eval-return-value (first exprs))) (value-b (eval-return-value (second exprs))) all-bits) (compiler-assert (member (base-type-category info) '(sint uint))) (case (base-type-category info) (sint (setf all-bits -1)) (uint (setf all-bits (1- (base-type-limit info))))) (cond ((and value-a (value-exact value-a) (zerop (value-exact value-a))) (setf (value-exact value) 0)) ((and value-b (value-exact value-b) (zerop (value-exact value-b))) (setf (value-exact value) 0)) ((and value-a value-b) (if (and (value-exact value-a) (value-exact value-b)) (setf (value-exact value) (logand (value-exact value-a) (value-exact value-b))) ;{{{combine ranges ;; to combine the ranges optimally is quite hard. Infact ;; I spent a couple of days figuring out the algorithm to ;; determine the optimum lower bound. The algorithm seemed ;; fairly complex and I had little confidence in my solutions ;; being correct -- three times I thought I had the correct ;; answer, but three times I was wrong. As the expected return ;; is small, I will be simplistic about combining ranges (let ((min-a (value-min value-a)) (min-b (value-min value-b)) (max-a (value-max value-a)) (max-b (value-max value-b))) (compiler-assert (eq (not min-a) (not max-a))) (compiler-assert (eq (not min-b) (not max-b))) (flet ((lsbmask (value) (compiler-assert (minusp value)) (do ((lsb (logand value (- value)) (logand value (- value)))) ((= (- value) lsb) (if (zerop lsb) 0 (1- lsb))) (setf value (logxor value lsb))))) (cond ((or (not min-a) (not min-b))) ;{{{both ranges > -1 ((not (or (minusp min-a) (minusp min-b))) (setf (value-max value) (min max-a max-b)) (setf (value-min value) 0)) ;}}} ;{{{both ranges < -1 ((and (< max-a -1) (< max-b -1)) (setf (value-max value) (min max-a max-b)) (let ((result (min min-a min-b)) (mask (lsbmask (max min-a min-b)))) (setf (value-max value) (logandc2 result mask)))) ;}}} ;{{{both ranges include -1 ((not (or (> min-a -1) (> min-b -1) (< max-a -1) (< max-b -1))) (setf (value-max value) (max max-a max-b)) (let ((result (min min-a min-b)) (mask (lsbmask (max min-a min-b)))) (setf (value-min value) (logandc2 result mask)))) ;}}} ;{{{a includes -1, b does not ((not (or (> min-a -1) (< max-a -1))) (cond ;{{{b > -1 ((> min-b -1) (setf (value-max value) (min max-a max-b)) (let ((result min-b) (mask (lsbmask min-a))) (setf (value-min value) (logandc2 result mask)))) ;}}} ;{{{b < -1 ((< max-b -1) (setf (value-max value) max-a) (let ((result (min min-a min-b)) (mask (lsbmask (max min-a min-b)))) (setf (value-max value) (logandc2 result mask)))) ;}}} (t (compiler-bug "Logic error")))) ;}}} ;{{{b includes -1, a does not ((not (or (> min-b -1) (< max-b -1))) (cond ;{{{a > -1 ((> min-a -1) (setf (value-max value) (min max-a max-b)) (let ((result min-a) (mask (lsbmask min-b))) (setf (value-min value) (logandc2 result mask)))) ;}}} ;{{{a < -1 ((< max-a -1) (setf (value-max value) max-b) (let ((result (min min-a min-b)) (mask (lsbmask (max min-a min-b)))) (setf (value-max value) (logandc2 result mask)))) ;}}} (t (compiler-bug "Logic error")))) ;}}} (t (compiler-bug "Cannot determine bitwise and interval")))))))))) ;}}} ;}}} ;{{{(:expr-xor :expr-xor-assign) ((:expr-xor :expr-xor-assign) (format *debug-io* "~&Doing evaluate xor") (let (all-bits) (if (not (member (base-type-category info) '(sint uint))) (compiler-bug "oops")) (case (base-type-category info) (sint (setf all-bits -1)) (uint (setf all-bits (1- (base-type-limit info))))) ) (format *debug-io* "~&Done evaluate xor~&fg~&") ) ;}}} (t (setf value nil))) (if value (setf value nil)) value)) ;}}} (defun bang() (setf *base-types* (make-hash-table :test #'eq)) (add-base-type 'sint) (add-base-type 'uint) (evaluate (make-ae-node :attrib :expr-xor :type-node (make-type-node :attrib :base :of 'uint)) (make-eval-return) (make-eval-return))) ***end bad program any help would be appreciated. nathan -- Nathan Sidwell Holder of the Xmris home page Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From gat@aig.jpl.nasa.gov Mon Sep 30 20:08:57 1996 Return-Path: Received: from aig.jpl.nasa.gov by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23111; Mon, 30 Sep 96 20:08:57 +0100 Received: from binkley.jpl.nasa.gov by aig.jpl.nasa.gov (4.1/JPL-AIG-1.0) id AA17105; Mon, 30 Sep 96 10:02:35 PDT Received: by binkley.jpl.nasa.gov (8.7.1/JPL-AIG-1.1) id KAA13305; Mon, 30 Sep 1996 10:02:32 -0700 (PDT) Date: Mon, 30 Sep 1996 10:02:32 -0700 (PDT) From: gat@aig.jpl.nasa.gov (Erann Gat) Message-Id: <199609301702.KAA13305@binkley.jpl.nasa.gov> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: SIGSEGV cannot be cured X-Sun-Charset: US-ASCII nathan@bristol.ac.com writes: > and here is the smallest program I can get to do this, You have got to be kidding. Do you mean to say that there is not a single line that you can remove from this multi-page program without making the bug disappear? Erann Gat gat@jpl.nasa.gov From marcus@sysc.pdx.edu Tue Oct 1 03:45:58 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA27780; Tue, 1 Oct 96 03:45:58 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.5/CATastrophe-2/10/96-P) with SMTP id RAA21537; Mon, 30 Sep 1996 17:40:13 -0700 (PDT) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id RAA19542; Mon, 30 Sep 1996 17:25:27 -0700 Date: Mon, 30 Sep 1996 17:25:27 -0700 Message-Id: <199610010025.RAA19542@sayre.sysc.pdx.edu> From: Marcus Daniels To: Subject: SIGSEGV cannot be cured In-Reply-To: <9337.199609301616@finlandia.inmos.co.uk> References: <9337.199609301616@finlandia.inmos.co.uk> Reply-To: marcus@sysc.pdx.edu Mime-Version: 1.0 (generated by tm-edit 7.67) Content-Type: text/plain; charset=US-ASCII >>>>> "NS" == nathan writes: > (bang) NS> Doing evaluate xor handle_fault error1 ! *** - SIGSEGV cannot be cured. Fault address = 0x1703A000. Hmmm, doesn't happen for me on Solaris 2.5.1, SunOS 4.1.3U1 or Irix 5.3. Could you grab a binary distrib from: http://sayre.sysc.pdx.edu:8001/clisp/binaries and see if the problem still occurs? From lalipat@charlie.cns.iit.edu Wed Oct 2 09:41:01 1996 Return-Path: Received: from charlie.cns.iit.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15569; Wed, 2 Oct 96 09:41:01 +0100 Received: (from lalipat@localhost) by charlie.cns.iit.edu (950413.SGI.8.6.12/950213.SGI.AUTOCF) id BAA28332; Wed, 2 Oct 1996 01:34:57 -0500 Date: Wed, 2 Oct 1996 01:34:56 -0500 (CDT) From: Pattarachai Lalitrojwong To: CLISP list Subject: (directory "a*.*") not work Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Does clisp (DOS version) support the wildcard capability? It gives me an error when I type (directory "a*.*"). How can I use wildcards with the directory function? Thanks in advance for your help, Pat From campos@cs.Buffalo.EDU Mon Oct 7 08:58:33 1996 Return-Path: Received: from hadar.cs.Buffalo.EDU by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA16516; Mon, 7 Oct 96 08:58:33 +0100 Received: (campos@localhost) by hadar.cs.Buffalo.EDU (8.7.5/8.6.4) id BAA11231 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Mon, 7 Oct 1996 01:51:27 -0400 (EDT) From: Daniel Campos Message-Id: <199610070551.BAA11231@hadar.cs.Buffalo.EDU> Subject: Problems with foreign functions To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 7 Oct 1996 01:51:27 -0400 (EDT) X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit I'm trying to run the example 4 from the file foreign.txt by following the given sequence of commands : $ clisp-link create-module-set cfun callcfun.c $ cc -O -c cfun.c $ cd cfun $ ln -s ../cfun.o cfun.o Add cfun.o to NEW_LIBS and NEW_FILES in link.sh. $ cd .. $ base/lisp.run -M base/lispinit.mem -c callcfun.lsp $ clisp-link add-module-set cfun base base+cfun but here i got the following error message: ... ... + gcc -traditional -O -W -Wswitch -Wcomment -Wpointer-arith -fomit-frame-pointer -fallow-single-precision -O2 -DDYNAMIC_MODULES -DDYNAMIC_FFI -I/usr/src/clisp -DMODULE=callcfun -c callcfun_module.cc In file included from callcfun_module.cc:23: /usr/src/clisp/clisp.h:335: `{anonymous struct}::._0(...)' is already defined in the class {anonymous struct} /usr/src/clisp/clisp.h:335: `{anonymous struct}::operator =(...)' must take exactly one argument /usr/src/clisp/clisp.h:335: confused by earlier errors, bailing out ... and then ... ... + gcc -traditional -O -W -Wswitch -Wcomment -Wpointer-arith -fomit-frame-pointer -fallow-single-precision -O2 -DDYNAMIC_MODULES -DDYNAMIC_FFI callcfun_module.o callcfun.o cfun.o lisp.a libreadline.a libavcall.a libvacall.a libtrampoline.a -ltermcap -L/usr/X11R6/lib -lX11 -o lisp.run gcc: callcfun_module.o: No such file or directory + [ -n ] + to_load= + [ -n ] + base+cfun/lisp.run -M base/lispinit.mem -q -i -x (saveinitmem "base+cfun/lispinit.mem") /usr/local/bin/clisp-link: base+cfun/lisp.run: No such file or directory It looks like a kind of conflict with previous definitions. Any hint to solve the problem will be appreciated. Thanks in advance Daniel From mmerten@ibm.net Wed Oct 9 09:23:45 1996 Return-Path: Received: from smtp-gw01.ny.us.ibm.net by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15344; Wed, 9 Oct 96 09:23:45 +0100 Received: (from uucp@localhost) by smtp-gw01.ny.us.ibm.net (8.6.9/8.6.9) id GAA204150 for ; Wed, 9 Oct 1996 06:16:05 GMT Received: from slip139-92-41-8.ut.nl.ibm.net(139.92.41.8) by smtp-gw01.ny.us.ibm.net via smap (V1.3mjr) id smaEzsCcx; Wed Oct 9 06:15:59 1996 Sender: marc1@ibm.net Message-Id: <325B424D.24E5CC17@ibm.net> Date: Wed, 09 Oct 1996 08:12:29 +0200 From: Mertens Marc X-Mailer: Mozilla 3.0Gold (X11; I; Linux 2.0.0 i586) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: cancel From unk6@rz.uni-karlsruhe.de Sat Oct 12 13:41:51 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00317; Sat, 12 Oct 96 13:41:51 +0100 Message-Id: <9610121241.AA00317@ma2s2.mathematik.uni-karlsruhe.de> Received: from rzstud2.rz.uni-karlsruhe.de by nz11.rz.uni-karlsruhe.de with SMTP (PP); Sat, 12 Oct 1996 12:34:02 +0200 Received: by rzstud2.rz.uni-karlsruhe.de (1.37.109.16/16.2) id AA279796440; Sat, 12 Oct 1996 12:34:00 +0200 Date: Sat, 12 Oct 1996 12:34:00 +0200 From: unk6@rz.uni-karlsruhe.de To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Announcing a re-implementation of CLX for CLISP, coded in C As the next semester begins, I decided to release this code. I am hacking on it since December last year. [This is just a trimmed version of the README file:] What is this? ============= Hadn't we CLX for CLISP for centuries? Yes, but this is a re-implementation of CLX written in C for speed. To use this package you will have to recompile CLISP; more precise: build a new link set. If you could make use of an i386/Linux/ELF binary, you may want to grasp the binary distribution. Benefits vs. CLX coded in Lisp ============================== - it is faster This mainly for two reasons. The CLISP compiler is not very good, when it comes to do all these bit operations and pushing bytes back and forth as in the CLX code. Second reason is, that i.e drawing a line do not produce garbage using this CLX implementation in contrast to MIT-CLX. - it is virtually smaller Currently I was able to blow up code size to somewhat near 120k, but it is likely that it will shrink in the future. MIT-CLX needs approx 700k. - I was able to run Garnet successfully, all the demos and gilt and lapidary. - WINDOW, PIXMAP, etc... are now CLOS classes. This is the right way to go, and I wanted to be able to compile CLUE. But CLUE does not run, because it uses too many internals of MIT-CLX - I plan to offer access to the SHAPE and to the multi buffer extension. The most basic function for the SHAPE extension is already there. [look at the sokoban code]. [snipset end] It will be available, as soon as Marcus Daniels or Bruno Haible will put it into the ftp directory at ma2s2.mathematik.uni-karlsruhe.de in /pub/lisp/clisp/packages; These files should be there: nclx-1996-10-12.README Just the README file. Also stating what is incomplete. nclx-1996-10-11+clisp-1996-07-22.linux-i386-elf.bin.tar.gz Binary distribution based on clisp-1996-07-22, as the file name says. nclx-1996-10-12.tar.gz Source distribution. Both the binary and the source distribution contain two little demos for a quick check if the code runs. So if you do X hacking with CLISP, consider using this package. The more people use it, the more bug reports I get, the more stable and portable will this code get. So please take a look at this code, I need beta testers. It's actually more gamma than beta, I do regular Garnet hacking myself using this package. When doing heavy graphics, it even out performs CMUCL! So go and bury me with bug reports and further suggestions, Gilbert. From Jim_Ravan@avid.com Tue Oct 15 15:45:37 1996 Return-Path: Received: from newavid. (newavid.avid.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05554; Tue, 15 Oct 96 15:45:37 +0100 Received: from 152.165.153.244 by newavid. (SMI-8.6/SMI-SVR4) id IAA10889; Tue, 15 Oct 1996 08:38:32 -0400 Message-Id: <32639367.7B25@avid.com> Date: Tue, 15 Oct 1996 08:36:41 -0500 From: Jim Ravan Reply-To: Jim_Ravan@avid.com Organization: Avid Technology, Inc. X-Mailer: Mozilla 3.0 (Macintosh; I; PPC) Mime-Version: 1.0 To: CLISP Subject: Porting CLISP to MkLinux Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hello all, My name is Jim Ravan. I am trying to get CLISP up and running on MkLinux, the OSF/Apple Linux port running on PowerMac hardware. Since (a) I do not read German, and (b) this is a new architecture for CLISP, I'm having some trouble. Currently, lispbibl.d complains at line 1266 "Preferred integer sizes depend on CPU". What needs to be defined? When I look in lispbibl.d, it defines many more things than just integer sizes. Can someone who has ported CLISP give my some guidance on what I need to do? regards, -jim From unk6@rz.uni-karlsruhe.de Fri Oct 25 02:23:37 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA08627; Fri, 25 Oct 96 02:23:37 +0100 Message-Id: <9610250123.AA08627@ma2s2.mathematik.uni-karlsruhe.de> Received: from rzstud2.rz.uni-karlsruhe.de by nz11.rz.uni-karlsruhe.de with SMTP (PP); Fri, 25 Oct 1996 01:13:42 +0200 Received: by rzstud2.rz.uni-karlsruhe.de (1.37.109.16/16.2) id AA168576705; Thu, 24 Oct 1996 02:25:06 +0200 Date: Thu, 24 Oct 1996 02:25:06 +0200 From: unk6@rz.uni-karlsruhe.de To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Had anybody problems with clisp-1996-07-22 before me? I am just wondering. I am currently hacking using clisp-1996-07-22 and it seems to have some problems: - It seems to have a serve memory leak. Well, yesterday I was wondering why a lisp session only five hours old had according to ps(1) grew to 30MB. Even after I explicitly kicked out my own data structures clisp reclaimed only about 1MB (after heavy trashing of course -- the full garbage collection lasted longer than one cigarette so the 30MB was not imaginary). The 1MB was approx the size of my data structure. Then I took a brute force attack -- uninterning *all* symbols from *all* my packages (and user), after another trashing the core size reduced only by a couple of kilo words. Then I 'rebooted' CLISP. That the X server grows to 24MB easily is known, but CLISP? Come on, tell me that CLISP o.k! Or do we start to write bad code too, because C++ hackers do? :-) - Sometimes CLISP dies badly with no appearing reason. Even evaluating a symbol from the REP could do that. This could be pretty nice my own code, but I am clueless here. I would love to know if other people had similiar problems with 07-22. On the weekend I'll try to get a reproducible example for the memory leak. I have still the malloc implementation under suspect. [I have an example -- my current project -- but it is pretty much too large (~3000 lines) to say anything useful.] Anyhow, in the meantime I'll switch back to 05-30 to get work done. I am not in the mood now to do C hacking. Wish you a good hack, Gilbert. PS. No, I am not telling what my current project is, because all of you would laugh. Anybody want to try a guess? :-) From proulx@okiok.com Fri Nov 1 18:09:42 1996 Return-Path: Received: from mtl0.login.net by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19094; Fri, 1 Nov 96 18:09:42 +0100 Received: from P1023.domain (eng.login.net [205.233.89.16]) by mtl0.login.net (8.6.12/8.6.9) with SMTP id MAA03577 for ; Fri, 1 Nov 1996 12:09:39 -0500 Message-Id: <327A2F13.792D@okiok.com> Date: Fri, 01 Nov 1996 12:10:43 -0500 From: Martin Proulx Organization: Okiok Data X-Mailer: Mozilla 3.01b1 (Win95; I) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Having problems compiling CLUE on a Linux machine Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hello! I'd like to be able to compile all of the XIT-CLIO-CLUE package on a Linux machine. I believe I have about the latest version of CLISP for Linux ELF (I know it's a version from last spring, but can't swear it's the definite latest). I got all 3 packages (in the /packages/clue+clio+xit.clisp.tar.z-split/ directory) from a CLISP mirror (ftp.stat.ucla.edu). First of all, I have a question. Now that CLISP has (most of) CLOS, do we still need to use to build CLX on top of PCL in order to compile CLUE? Or will we have problems with the MOP? (Remember, I'd also like to try CLIO and XIT!) I tried both ways, but I still get the same package conflicts when building CLUE. I remember having conflicts with at least 3 symbols (FLET and others I can't recall), and this, for both the CLUE and CLUEI packages. I then get a prompt asking me to choose from which package the symbol should be visible. The other package is either COMMON-LISP or LISP. But I select one of the two, and the compilation eventually gets done. When all the compiling is done, and that all files get loaded before dumping the image, I then get an error complaining that the intrinsics.fas file cannot be loaded... It hasn't been compiled for some reason. I looked in the makefile... it's in there. If I try to compile it by itself, it can't compile it. Some undefinied symbol or function stops it. I do get a clue.mem output, but this doens't let me run the menu example. When trying to compile this example, I get other conflicts, and other prompts appear. Moreover, The CLX on CLISP's CLOS can't see the CLUEI packages. (I still can't go very far if I (use-package...) manually. The CLX on PCL just breaks when trying to rename the PCL package to the (already existing) CLOS. Has anyone been succesful in compiling those packages on recent versions of CLISP? Have CLISP's packages functions been modified lately? Please help! Thanks, Martin Proulx From lindner@forwiss.uni-erlangen.de Thu Nov 7 17:54:49 1996 Return-Path: Received: from faui45.informatik.uni-erlangen.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05667; Thu, 7 Nov 96 17:54:49 +0100 Received: from bfws00.forwiss.uni-erlangen.de (bfws00.forwiss.uni-erlangen.de [131.188.180.90]) by uni-erlangen.de with SMTP id RAA01141 (8.7.6/7.5c-FAU); for ; Thu, 7 Nov 1996 17:53:43 +0100 (MET) Received: from bfws4o by forwiss.uni-erlangen.de with SMTP; id QAA13196 (SMI-8.6/7.3w-FAU); Thu, 7 Nov 1996 16:53:42 GMT Message-Id: <199611071653.QAA13196@bfws00.forwiss.uni-erlangen.de> Date: Thu, 7 Nov 1996 16:53:39 GMT From: Matthias Lindner To: clisp-list Subject: Compiler bug? Hi, I've just grabbed the most recent version of CLISP from http://sayre.sysc.pdx.edu:8001/clisp/. A strange error occurs wehen I try to compile a file containig the following three lines: (defconstant *default* 'x) (defstruct A (slot *default*)) (defstruct (B (:include A))) A protocol of my session follows: i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I I I I I I I 8 8 8 8 8 8 I I I I I I I 8 8 8 ooooo 8oooo I \ `+' / I 8 8 8 8 8 \ `-+-' / 8 o 8 8 o 8 8 `-__|__-' ooooo 8oooooo ooo8ooo ooooo 8 | ------+------ Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1996 > (lisp-implementation-version) "1996-08-29 (August 1996)" > (lisp:shell "uname -a") Linux orion 2.0.24 #2 Sat Nov 2 02:08:40 MET 1996 i686 0 > (compile-file "test.lsp") Compiling file /src/lisp/PLOPP/test.lsp ... *** - PRINT: Despite of *PRINT-READABLY*, # cannot be printed readably. 1. Break> --------- If I change the second line from (defstruct A (slot *default*)) to (defstruct A (slot 'x)) everything works fine. I've tried a self-compiled version and the binaries in i386-linux-elf.tar.gz. Another little thing is that the configure scripts - like unfortunately most configure scripts - do not recognize a machine with a i686 processor. I know that versions of CLISP on your server are beta-releases, so this mail is not a complaint but a hint ;-) BTW: Is there a newer binary for Windows95 (grrr - I HAVE to use this stuff, it's NOT my decision!) available somewhere? Have fun and continue with your excellent work! --Matthias ------------------------------------------------------------------------------ Matthias Lindner Bayerisches Forschungszentrum fuer Wissensbasierte Systeme (FORWISS) Am Weichselgarten 7 91058 Erlangen-Tennenlohe TEL: +49 9131 691-196 FAX: +49 9131 691-185 NET: lindner@forwiss.uni-erlangen.de WWW: http://www.forwiss.uni-erlangen.de/~lindner/ ------------------------------------------------------------------------------ From haible@ilog.fr Tue Nov 12 17:04:03 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06312; Tue, 12 Nov 96 17:04:03 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA11464; Tue, 12 Nov 1996 17:02:00 +0100 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.6/8.7.3) with SMTP id RAA23461; Tue, 12 Nov 1996 17:00:42 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA12645 for haible@mailhost; Tue, 12 Nov 1996 17:00:42 +0100 Date: Tue, 12 Nov 1996 17:00:42 +0100 Message-Id: <9611121600.AA12645@> To: Subject: Re: Compiler bug? In-Reply-To: <199611071653.QAA13196@bfws00.forwiss.uni-erlangen.de> References: <199611071653.QAA13196@bfws00.forwiss.uni-erlangen.de> Matthias Lindner wrote: > A strange error occurs wehen I try to compile a file containig the > following three lines: > > (defconstant *default* 'x) > (defstruct A (slot *default*)) > (defstruct (B (:include A))) Yes, this is a bug in the DEFSTRUCT macro. The following patch fixes this and another (similar) bug. *** defstruc.lsp.bak Sat Jul 20 21:20:53 1996 --- defstruc.lsp Fri Nov 8 01:35:10 1996 *************** *** 49,55 **** (defun ds-slot-name (slot) (svref slot 0)) ;(defun ds-slot-initargs (slot) (svref slot 1)) ; only used in clos.lsp (defmacro ds-slot-offset (slot) `(svref ,slot 2)) ! (defun ds-slot-initer (slot) (svref slot 3)) ; only used in clos.lsp (defmacro ds-slot-default (slot) `(svref ,slot 4)) (defmacro ds-slot-type (slot) `(svref ,slot 5)) (defmacro ds-slot-readonly (slot) `(svref ,slot 6)) --- 49,55 ---- (defun ds-slot-name (slot) (svref slot 0)) ;(defun ds-slot-initargs (slot) (svref slot 1)) ; only used in clos.lsp (defmacro ds-slot-offset (slot) `(svref ,slot 2)) ! (defmacro ds-slot-initer (slot) `(svref ,slot 3)) ; used in clos.lsp (defmacro ds-slot-default (slot) `(svref ,slot 4)) (defmacro ds-slot-type (slot) `(svref ,slot 5)) (defmacro ds-slot-readonly (slot) `(svref ,slot 6)) *************** *** 582,588 **** (list (list (setq namesform (gensym)) ! `(CONS ',name (LOAD-TIME-VALUE (SVREF (GET ',subname 'DEFSTRUCT-DESCRIPTION) 0))) ) ) ) (unless (equalp (svref incl-desc 1) type-option) (error-of-type 'program-error --- 582,588 ---- (list (list (setq namesform (gensym)) ! `(CONS ',name (SVREF (GET ',subname 'DEFSTRUCT-DESCRIPTION) 0)) ) ) ) (unless (equalp (svref incl-desc 1) type-option) (error-of-type 'program-error *************** *** 591,597 **** FRANCAIS "~S ~S : La structure incluse ~S doit être du même type ~S.") 'defstruct name subname type-option ) ) ! (setq slotlist (nreverse (mapcar #'copy-ds-slot (svref incl-desc 3)))) ; slotlist ist die umgedrehte Liste der vererbten Slots (when slotlist (setq include-skip (1+ (ds-slot-offset (first slotlist))))) ; include-skip >=0 ist die Anzahl der bereits von der Teilstruktur --- 591,608 ---- FRANCAIS "~S ~S : La structure incluse ~S doit être du même type ~S.") 'defstruct name subname type-option ) ) ! (setq slotlist ! (nreverse ! (mapcar #'(lambda (slot) ! (setq slot (copy-ds-slot slot)) ! (when (car (ds-slot-initer slot)) ! (setf (ds-slot-initer slot) ! (cons (add-unquote (ds-slot-default slot)) 'NIL) ! ) ) ! slot ! ) ! (svref incl-desc 3) ! ) ) ) ; slotlist ist die umgedrehte Liste der vererbten Slots (when slotlist (setq include-skip (1+ (ds-slot-offset (first slotlist))))) ; include-skip >=0 ist die Anzahl der bereits von der Teilstruktur Many thanks for the report! Bruno From mjkoskin@borg.sci.fi Wed Nov 13 12:20:13 1996 Return-Path: Received: from id4.sci.fi by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18134; Wed, 13 Nov 96 12:20:13 +0100 Received: from Default (CLXVI.dyn.sci.fi [194.215.81.166]) by id4.sci.fi (8.8.2/8.6.11) with SMTP id NAA18804 for ; Wed, 13 Nov 1996 13:18:17 +0200 (EET) Date: Wed, 13 Nov 1996 13:18:17 +0200 (EET) Message-Id: <199611131118.NAA18804@id4.sci.fi> X-Sender: mjkoskin@sci.fi X-Mailer: Windows Eudora Version 1.4.4 Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: mjkoskin@sci.fi (Matti Koskinen) Subject: Win32 clisp question Hello I just joined this list so i don't know what's been going on. But, I can't put the Win32 clisp working. It complained firstly of bash.exe, which was missing. Then info from marcus@sysc.pdx.edu gave me hint that cygnus-win32-programs must be present. I downloaded them and put bash.exe and sh.exe to \bin-directory. Now clisp loads, but it still complains about a missing file, not giving the name, just something like "unix library error, ENOENT." Clisp is running, but it stops in a break and I can't get back to top-level. I must say I don't know much about unix so are there some environment variables or such to be set before clisp runs properly? BTW When I start clisp in my clisp-directory, clisp can't find lispinit.mem, then I put this directory in path and copied lispinit.mem to \bin, now clisp finds it, but still there is some file missing, pity clisp doesn't tell what. Sorry if this is a FAQ, but as a complete newbie I need all the help I can get. My main interest is to use clisp with Common Music. Thanks Matti mjkoskin@sci.fi From clisp@arcangel.dircon.co.uk Wed Nov 13 21:03:48 1996 Return-Path: Received: from felix.dircon.co.uk by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23423; Wed, 13 Nov 96 21:03:48 +0100 Received: by felix.dircon.co.uk id AA25033 (5.67b/IDA-1.5 for ); Wed, 13 Nov 1996 19:23:00 GMT Received: from arcangel.dircon.co.uk(194.112.46.39) by amnesiac via smap (V1.3) id smaa24987; Wed Nov 13 19:22:46 1996 Date: Wed, 13 Nov 1996 17:37:09 +0000 From: Peter Burwood To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Re: Had anybody problems with clisp-1996-07-22 before me? Message-Id: <4e41842c47@arcangel.dircon.co.uk> In-Reply-To: <9610250123.AA08627@ma2s2.mathematik.uni-karlsruhe.de> Organization: At Home X-Mailer: Messenger v0.27 for RISC OS X-Posting-Agent: RISC OS Newsbase 0.55c unk6 wrote: > I am just wondering. I am currently hacking using clisp-1996-07-22 and > it seems to have some problems: > > - Sometimes CLISP dies badly with no appearing reason. Even > evaluating a symbol from the REP could do that. This could be > pretty nice my own code, but I am clueless here. I don't know whether this is the reason, but I recently found a bug in the REP which has been around for a long time. The bug is that the jmpbuf used to store the return point for the REP has gone out of scope, but a lot of compilers might not be bothered since the space may have still been allocated on the stack. Here is the patch (for clisp-1996-07-22, but it should apply to all versions) Pete *** debug.d.old Sun Jul 21 16:04:50 1996 --- debug.d Wed Oct 23 02:43:55 1996 *************** *** 281,295 **** returner_and_data.old_NUM_STACK_normal = NUM_STACK_normal; #endif finish_entry_frame(DRIVER,&!returner_and_data.returner,,;); } - # Hier ist der Einsprungpunkt. - loop - { # (SYS::READ-EVAL-PRINT "> ") ausf|hren: - pushSTACK(O(prompt_string)); # Prompt "> " - funcall(L(read_eval_print),1); - if (eq(value1,T)) break; # EOF gelesen -> Schleife beenden - } - skipSTACK(2); # Driver-Frame auflvsen } # Startet einen untergeordneten Driver (Read-Eval-Print-Loop) --- 281,295 ---- returner_and_data.old_NUM_STACK_normal = NUM_STACK_normal; #endif finish_entry_frame(DRIVER,&!returner_and_data.returner,,;); + # Hier ist der Einsprungpunkt. + loop + { # (SYS::READ-EVAL-PRINT "> ") ausf|hren: + pushSTACK(O(prompt_string)); # Prompt "> " + funcall(L(read_eval_print),1); + if (eq(value1,T)) break; # EOF gelesen -> Schleife beenden + } + skipSTACK(2); # Driver-Frame auflvsen } } # Startet einen untergeordneten Driver (Read-Eval-Print-Loop) From barryb@dots.physics.orst.edu Wed Nov 13 23:34:54 1996 Return-Path: Received: from dots.physics.orst.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA25004; Wed, 13 Nov 96 23:34:54 +0100 Received: (from barryb@localhost) by dots.physics.orst.edu (8.6.11/8.6.9) id OAA18977; Wed, 13 Nov 1996 14:33:35 -0800 Date: Wed, 13 Nov 1996 14:33:35 -0800 (PST) From: Bill Barry To: clisp-list Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII SYSTEM CLISP-LIST lisplist clisp@arcangel.demon.co.uk #UNSUBSCRIBE & CLISP-LIST From litc@music.mcgill.ca Thu Nov 14 04:52:20 1996 Return-Path: Received: from sound.music.mcgill.ca by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA28424; Thu, 14 Nov 96 04:52:20 +0100 Received: from jasper (jasper [132.206.141.10]) by sound.music.mcgill.ca (8.6.10/8.6.6) with SMTP id WAA00140 for ; Wed, 13 Nov 1996 22:47:16 -0500 Date: Wed, 13 Nov 1996 22:47:38 -0500 (EST) From: Li Tang-Chun Subject: need help to install binary irix-5.3 clisp To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII > Hi: > > I ran into problem while installing the clisp binary version for irix 5.3: > > I followed the steps in the README until > > >(cd "base/") > *** - EVAL: undefined function CD > > (saveinitmem) > *** - EVAL: undefined function SAVEINITMEM > > Could anyone help? > > Thanks! > > Tang-Chun Li phone:(514)398-8391 > Music, Media, & Tech Group Fax: (514)398-8061 > Faculty of Music email: litc@music.mcgill.ca > McGill University http://www.music.mcgill.ca/~litc > From marcus@sysc.pdx.edu Thu Nov 14 05:01:31 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA28633; Thu, 14 Nov 96 05:01:31 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.7.5/CATastrophe-2/10/96-P) with SMTP id TAA21350; Wed, 13 Nov 1996 19:59:13 -0800 (PST) for Received: (marcus@localhost) by sayre.sysc.pdx.edu (950911.SGI.8.6.12.PATCH825/CATastrophe-9/18/94-C) id TAA16214; Wed, 13 Nov 1996 19:59:09 -0800 Date: Wed, 13 Nov 1996 19:59:09 -0800 Message-Id: <199611140359.TAA16214@sayre.sysc.pdx.edu> From: Marcus Daniels To: Subject: need help to install binary irix-5.3 clisp In-Reply-To: References: Reply-To: marcus@sysc.pdx.edu >>>>> "litc" == Li Tang-Chun writes: litc>(cd "base/") litc> *** - EVAL: undefined function CD Either you didn't start it with "-M lispinit.mem", or the binary you got is a new one, in which case you'll need to prefix these functions with "LISP:", as they aren't a part of the now-default COMMON-LISP-USER package. From ginkel@oslo.cs.uni-magdeburg.de Mon Nov 18 12:40:20 1996 Return-Path: Received: from oslo.cs.uni-magdeburg.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19108; Mon, 18 Nov 96 12:40:20 +0100 Received: by oslo.cs.uni-magdeburg.de via sendmail with stdio id for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Mon, 18 Nov 1996 12:37:52 +0100 (MET) (Smail-3.2 1996-Jul-4 #8 built DST-Aug-2) Message-Id: Date: Mon, 18 Nov 1996 12:37:52 +0100 (MET) From: ginkel@iik.cs.uni-magdeburg.de ( Martin Ginkel ) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Memory-Limit My OS/2 Version of CLISP strikes with big interpreted code; it seems to be a hard Memory-Limit for lisp-Objects at 16MB of Memory (rounded Image-Size at this State) . My question to the (C-) Hackers: Is there a way to enlarge this memory-size??? I try to port a large piece of Software, I must debug often, that's why I can't compile that stuff. Martin From ginkel@oslo.cs.uni-magdeburg.de Mon Nov 18 12:48:29 1996 Return-Path: Received: from oslo.cs.uni-magdeburg.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19263; Mon, 18 Nov 96 12:48:29 +0100 Received: by oslo.cs.uni-magdeburg.de via sendmail with stdio id for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Mon, 18 Nov 1996 12:46:01 +0100 (MET) (Smail-3.2 1996-Jul-4 #8 built DST-Aug-2) Message-Id: Date: Mon, 18 Nov 1996 12:46:01 +0100 (MET) From: ginkel@iik.cs.uni-magdeburg.de ( Martin Ginkel ) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLISP on Solaris and ULTRA-Sparc If I try to load CLISP (bin-Version 17-04-96) for Solaris2.4 on our ULTRA with Sol2.5 I get the following Error: /usr/local/clisp/bin/lisp.run: initialisation file was not created by this version of LISP I think this is an error with the Hardware, on Sparc5 and Sparc20 are no Problems. Is there a Way to fix it ??? Martin From haible@ilog.fr Mon Nov 18 16:05:33 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA21608; Mon, 18 Nov 96 16:05:33 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA15759; Mon, 18 Nov 1996 16:02:23 +0100 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.6/8.7.3) with SMTP id PAA27779; Mon, 18 Nov 1996 15:13:36 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA26605 for haible@mailhost; Mon, 18 Nov 1996 15:13:37 +0100 Date: Mon, 18 Nov 1996 15:13:37 +0100 Message-Id: <9611181413.AA26605@> To: Subject: Re: CLISP on Solaris and ULTRA-Sparc In-Reply-To: References: Martin Ginkel writes: > > If I try to load CLISP (bin-Version 17-04-96) for Solaris2.4 on our ULTRA > with Sol2.5 I get the following Error: > > /usr/local/clisp/bin/lisp.run: initialisation file was not created by this version of LISP Oh, I see. The format of the lispinit.mem file depends on the hardware page size (a C macro called PAGESIZE under Solaris). We should avoid this. The following patch to the C source should do the trick (untested). *** src/spvw.d.bak Sun Jul 21 20:14:52 1996 --- src/spvw.d Mon Nov 18 15:01:50 1996 *************** *** 9663,9668 **** --- 9663,9673 ---- # UNIX_SUNOS5 hat doch tatsächlich mmap(), aber kein getpagesize() ! #if defined(HAVE_GETPAGESIZE) getpagesize() + #elif defined(UNIX_SUNOS5) && defined(SPARC) + # Normal SPARCs have PAGESIZE=4096, UltraSPARCs have PAGESIZE=8192. + # For compatibility of the .mem files between the architectures, + # choose the same value for both here. + 8192 #elif defined(UNIX_SUNOS5) PAGESIZE # siehe #else *************** *** 9797,9802 **** --- 9802,9809 ---- vm_page_size #elif defined(HAVE_SHM) SHMLBA + #elif defined(UNIX_SUNOS5) && defined(SPARC) + 8192 # for compatibility of the .mem files #elif defined(UNIX_SUNOS5) PAGESIZE # siehe #else > Is there a Way to fix it ??? Without rebuilding the sources, you can generate a lispinit.mem file for UltraSparc this way: - byte-compile all the .lsp files contained in the distribution, (init.lsp etc.), unless they are already byte-compiled, - rename lispinit.mem to lispinit-normalsparc.mem - On the UltraSparc, execute ./lisp.run -m 750KW -x "(load \"init.fas\") (sys::%saveinitmem) (exit)" - rename lispinit.mem to lispinit-ultrasparc.mem Then adapt your /usr/local/bin/clisp shell script to dispatch on `uname -m`. Bruno Haible email: Software Engineer phone: +33-1-49083585 From lambertb@uic.edu Mon Nov 18 17:34:11 1996 Return-Path: Received: from tigger.cc.uic.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22598; Mon, 18 Nov 96 17:34:11 +0100 Received: from [128.248.77.126] (DOC.PMAD.UIC.EDU [128.248.77.126]) by tigger.cc.uic.edu (8.7.6/8.7.6) with SMTP id KAA33042 for ; Mon, 18 Nov 1996 10:29:51 -0600 Message-Id: <199611181629.KAA33042@tigger.cc.uic.edu> X-Sender: u53076@pop3serv1.cc.uic.edu Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Mon, 18 Nov 1996 10:29:54 -0600 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: lambertb@uic.edu (Bruce L. Lambert) Subject: Reading from binary input streams?? Hi everyone, I've got some big data files (mostly integers and floating point numbers, but lots of them) and, for the sake of space efficiency, I'd like to store them as binary rather than as ascii. Unfortunately, as CLtL2 says, "common lisp currently specifies only a very simple faciltiy for binary input [output]" known as read-byte or write-byte respectively. I have a binary file produced by Michael Berry's svdpack system for singular value decomposition. With Perl, one reads the data by saying: #!/usr/local/bin/perl $sizeofDouble = 8; $sizeofLong = 4; $terms = 374; $docs = 82; $factors = 10; open(OUTFILE, "@ARGV[0]"); print("\n\n\n"); read(OUTFILE, $value, $sizeofLong); $value = unpack("l", $value); printf("Length of right s-vector: %4d\n", $value); read(OUTFILE, $value, $sizeofLong); $value = unpack("l", $value); printf("Krylov subspace dimension: %4d\n", $value); read(OUTFILE, $value, $sizeofDouble); $value = unpack("d", $value); printf("Residual tolerance: %g\n", $value); print("\n\n\n"); print("**************** Document Vectors **********************\n"); for($i = 0; $i < $docs; $i++) { print("\nDocument $i\n"); for($j = 0; $j < $factors; $j++) { read(OUTFILE, $value, $sizeofDouble); $value = unpack("d", $value); printf("%4d %12.10f\n", $j, $value); } } but when I say (with-open-file (istream "filename" :direction :input :element-type '(signed-byte 4)) (read-byte istream)) My system (CLISP) says "filename is not an integer file." I've tried multiple values for i in (signed-byte i), but it still doesn't seem to work the way the perl script does. What do I do to read I this binary data? Thanks in advance. -bruce Bruce L. Lambert Department of Pharmacy Administration University of Illinois at Chicago Phone: (312) 996-2411 Fax: (312) 996-3272 email: lambertb@uic.edu From haible@ilog.fr Mon Nov 18 21:12:13 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA24853; Mon, 18 Nov 96 21:12:13 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA05749; Mon, 18 Nov 1996 21:09:06 +0100 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.6/8.7.3) with SMTP id VAA12567; Mon, 18 Nov 1996 21:05:22 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA14784 for haible@mailhost; Mon, 18 Nov 1996 21:05:22 +0100 Date: Mon, 18 Nov 1996 21:05:22 +0100 Message-Id: <9611182005.AA14784@> To: Subject: Re: Reading from binary input streams?? In-Reply-To: <199611181629.KAA33042@tigger.cc.uic.edu> References: <199611181629.KAA33042@tigger.cc.uic.edu> Bruce L. Lambert writes: > but when I say > > (with-open-file (istream "filename" :direction :input :element-type > '(signed-byte 4)) (read-byte istream)) > > My system (CLISP) says "filename is not an integer file." Well. When CLISP opens a file with element-type (signed-byte 4), it does not know whether the number of items in the file is even or odd - because the system's notion of file length is measured in bytes, so you can't decide from the file length whether it contains 2n or 2n-1 elements. To overcome this, CLISP expects 4-byte header in front of the data, giving length (in items) of the file. > What do I do to read I this binary data? Add a 4 byte header to the file, and put in the number of items ... [looking deep into the source] in little-endian format. > "common lisp currently specifies only a very > simple faciltiy for binary input [output]" known as read-byte or write-byte > respectively. Now there is also `read-sequence' in ANSI CL, called `read-byte-sequence' in CLISP. As with `read-byte' the translation unit can be 4-bit numbers. if that's the way you opened the stream. Bruno Haible email: Software Engineer phone: +33-1-49083585 From nathan@pact.srf.ac.uk Tue Nov 19 11:22:35 1996 Return-Path: Received: from hawkweed (hawkweed.bri.st.com) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA04218; Tue, 19 Nov 96 11:22:35 +0100 Received: by hawkweed id KAA26889; Tue, 19 Nov 1996 10:20:05 GMT Received: from finlandia by finlandia.inmos.co.uk; Tue, 19 Nov 1996 10:18:02 GMT Sender: nathan@pact.srf.ac.uk Message-Id: <32918959.7218@pact.srf.ac.uk> Date: Tue, 19 Nov 1996 10:18:01 +0000 From: Nathan Sidwell Organization: Partnership In Advanced Computing Technologies X-Mailer: Mozilla 3.0 (X11; I; SunOS 5.5 sun4u) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: garbage collection granularity References: <32905121.2F37@pact.srf.ac.uk> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hi, This is a question about the granularity of garbage collection. I'm running clisp-30-05-96 on Solaris 2.5. My understanding is that when the available freespace is too small, a garbage collection is invoked. If this GC fails to free up enough memory, more pages are requested from the OS. If the GC frees up lots of pages, these are returned to the OS. I observe the memory size of clisp both increasing and decreasing, which is consistent with this. The effect I'm observing is that as the memory size of the lisp program increases, it spends more and more time garbage collecting. I suspect what is happening is that the garbage collection is being done just as frequently, but is of course taking longer to perform. What I would like to be able to do is say (something like) "when you get or give memory from/to the OS do it in blocks of 1MB" (or some other big number). Then the garbage collections should only occur when this 1MB is exhausted, rather than the page sized block. Ie the frequency of garbage collections should reduce. (It does currently allocate in pages?) I did try the -m memsize command line arg, but as the manual page says, it seemed to be "essentially ignored". Looking through spvw.d, I got confused -- primarily 'cause I can't read German. So I couldn't determine whether it was possible or not. Perhaps I'm way off base, and my theorizing above is incorrect. Anyhow is this possible, or won't it help? nathan -- Nathan Sidwell The windy road is more interesting Chameleon Architecture Group at SGS-Thomson, formerly Inmos http://www.pact.srf.ac.uk/~nathan/ Tel 0117 9707182 nathan@pact.srf.ac.uk or nathan@inmos.co.uk or nathan@bristol.st.com From sfogar@xnet.it Tue Nov 19 13:19:33 1996 Return-Path: Received: from keymaster.xnet.it (dns.xnet.it) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05715; Tue, 19 Nov 96 13:19:33 +0100 Received: from fogaralessandro ([194.184.185.203]) by keymaster.xnet.it (8.6.12/8.6.9) with SMTP id NAA12383; Tue, 19 Nov 1996 13:14:15 +0100 Message-Id: <3291890A.1555@xnet.it> Date: Tue, 19 Nov 1996 11:16:42 +0100 From: Alessandro Fogar Reply-To: sfogar@xnet.it X-Mailer: Mozilla 3.0 (Win95; I) Mime-Version: 1.0 To: haible@ilog.fr Cc: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: CLisp on Win95 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Please, I need HELP ! I'm trying to install CLisp on Win95, I downloaded DOS.ZIP and WIN32.ZIP but: - the CLisp version included in DOS.ZIP doesn't work in a dos window under Win95, the system have to start in DOS mode to work. I'd like to avoid this. - the CLisp version included in WIN32.ZIP doesn't work in Win95, it starts but then it searches for some directories (UNIX directories?) and then go in break mode. Is this normal ? I apologize if this is a common question, I'm new to Lisp and CLisp. Many thanks. Bye. ----------------- Alessandro Fogar Grado (Go) Italy ---------------- From haible@ilog.fr Tue Nov 19 19:52:50 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA09869; Tue, 19 Nov 96 19:52:50 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA06085; Tue, 19 Nov 1996 19:49:34 +0100 (MET) Received: from (halles [192.31.27.96]) by www-public.ilog.fr (8.7.6/8.7.3) with SMTP id TAA22337; Tue, 19 Nov 1996 19:48:12 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA21292 for haible@mailhost; Tue, 19 Nov 1996 19:48:12 +0100 Date: Tue, 19 Nov 1996 19:48:12 +0100 Message-Id: <9611191848.AA21292@> To: Subject: Re: Memory-Limit In-Reply-To: References: Martin Ginkel writes: > > My OS/2 Version of CLISP strikes with big interpreted code; > it seems to be a hard Memory-Limit for lisp-Objects at 16MB of Memory > (rounded Image-Size at this State) . > > My question to the (C-) Hackers: Is there a way to enlarge this > memory-size??? No, there isn't a simple way. The "complicated" way is to recompile CLISP for OS/2, using emx+gcc, and with -DWIDE among the CFLAGS in the makefile. Any volunteer for this needs to have EMX installed on DOS or OS/2. Bruno From ginkel@oslo.cs.uni-magdeburg.de Wed Nov 20 09:04:19 1996 Return-Path: Received: from oslo.cs.uni-magdeburg.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA18133; Wed, 20 Nov 96 09:04:19 +0100 Received: by oslo.cs.uni-magdeburg.de via sendmail with stdio id for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 20 Nov 1996 09:01:31 +0100 (MET) (Smail-3.2 1996-Jul-4 #8 built DST-Aug-2) Message-Id: Date: Wed, 20 Nov 1996 09:01:31 +0100 (MET) From: ginkel@iik.cs.uni-magdeburg.de ( Martin Ginkel ) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Cc: clisp-list@ma2s2.mathematik.uni-karlsruhe.de In-Reply-To: <9611191848.AA21292@> (message from Bruno Haible on Tue, 19 Nov 96 19:58:16 +0100) Subject: CLisp Compile on OS/2 I have emx0.9b on OS2 but I need some help with the sources. I tryed to compile the 1996-07-22. Who has done that the last time??? I have lots of problems when I follow the instructions in os2/INSTALL. I gave up at that: While compiling spvw.c , gcc dont know about a symbol "xxxxx" and runs into parse-errors. I don't have Linux, that's why I can't do the configure-script or makemake. -------------------------------------------------------------------------------- Is there a difference between the OS2 and DOS Versions??? I have testet the last binaries for DOS on OS2 and got a core, but on DOS it isn't better, there is also a core (after a few seconds evaluating *features*). Martin From haible@ilog.fr Thu Nov 28 13:12:18 1996 Return-Path: Received: from relay1.fnet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02473; Thu, 28 Nov 96 13:12:18 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA24605; Thu, 28 Nov 1996 13:07:23 +0100 (MET) Received: from (halles [192.31.27.96]) by ilog.ilog.fr (8.7.6/8.7.3) with SMTP id MAA24132; Thu, 28 Nov 1996 12:30:16 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA01785 for haible@mailhost; Thu, 28 Nov 1996 12:30:17 +0100 Date: Thu, 28 Nov 1996 12:30:17 +0100 Message-Id: <9611281130.AA01785@> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Compilation of CLUE [Message forwarded from Thierry LEMEUNIER . Please CC him in your replies. - Bruno] Hello, I'm a new CLISP's user and I want to use CLX and CLUE. I haven't problem with compiling CLX and use it, but when I want to compile CLUE, it don't work and I've the following message : make clisp -m 5MB -M ../mem/clx.mem -q -i defsystem -x '(compile-clue)' ;; Chargement du fichier /lium/gladia1/drt01/clue/defsystem.fas ... ;; Le fichier /lium/gladia1/drt01/clue/defsystem.fas est chargé. ; Compiling clue.lsp Compilation du fichier /lium/gladia1/drt01/clue/clue.lsp... ** - Continuable Error 1 conflits de nom par USE-PACKAGE de (# #) dans le paquetage #. Pour chaque conflit, vous pouvez choisir à quel symbole donner priorité. À quel symbole de nom "MAKE-PACKAGE" donner priorité dans # ? Choisissez : 1 -- COMMON-LISP 2 -- CLUEI > Could somebody help me ? I'm using CLISP version "1995-12-04 (Décembre 1995)" for SunOS. ------------------------------------------------------------------------- Thierry LEMEUNIER _/ _/ _/_/ _/_/_/ _/ groupe Langue et Dialogue _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ Laboratoire d'Informatique _/ _/_/_/_/ _/ _/ _/ _/_/_/_/ UFR Sciences _/_/_/ _/ _/ _/_/_/ _/_/_/ _/ _/ Universite du Maine Avenue Olivier Messiaen BP535 email : lemeunie@lium.univ-lemans.fr F72017 LE MANS CEDEX web : http://bigiup.univ-lemans.fr/ ------------------------------------------------------------------------- From geoff@codeworks.gen.nz Thu Nov 28 15:12:23 1996 Return-Path: Received: from wws1.ww.co.nz by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03719; Thu, 28 Nov 96 15:12:23 +0100 Received: (from uucp@localhost) by wws1.ww.co.nz (8.6W03/8.6.9) with UUCP id CAA16403 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Fri, 29 Nov 1996 02:56:06 +1300 Received: by codeworks.gen.nz (1.65/waf) via UUCP; Fri, 29 Nov 96 02:54:17 +1200 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: FFI vacall fails check. From: geoff@codeworks.gen.nz (Geoff Reynolds) Message-Id: Date: Fri, 29 Nov 96 02:47:13 +1200 Organization: The Code Works Limited Hi. I'm new to this list, but have checked the mailing-list-archive and can't see any report of this problem: I unpacked the clisp-source (1996-07-22 from linux developers resource sept '96 edition) and did: ./configure i386-unknown-linux At the end of the configuration: [...] gcc -O -I. -I../../ffcall/vacall -c ../../ffcall/vacall/tests.c gcc -O tests.o vacall.o misc.o structcpy.o -o tests ./tests > tests.out uniq -u < tests.out > tests.output.i386-unknown-linux test '!' -s tests.output.i386-unknown-linux make: *** [check] Error 1 To continue building CLISP, the following commands are recommended (cf. unix/INSTALL step 4): cd i386-unknown-linux ./makemake --with-readline > Makefile make make check The contents of the file i386-unknown-linux/vacall/tests.output.i386-unknown-linux: ------------start--------- X f(B,char,double,B):({0.1,(1,2,3}},'^?',0.3,{0.2,{5,4,3}})->{"return val",'^?'} X f(B,char,double,B):({0.1,{1,2,3}},'^?',0.3,{0.2,{5,4,3}})->{"^?",'^?'} ------------end----------- (The '^?' is char 0x7f) I can build clisp using ./makemake --with-readline etc., it passes all the checks and runs perfectly. However I would like to build with the --dynamic-ffi package, to interface with C code. (The avcall and trampoline parts of ffcall compile and check OK, the problem is just with vacall.) I'm using: linux-2.0.12 gcc-2.7.2 (with patch for strength-reduction bug) binutils-2.6.0.14 libc-5.2.18 I'd appreciate hearing from anyone who has built the FFI package without this problem, and what kernel/gcc/binutils version you used. Thanks, Geoff Reynolds -- geoff@codeworks.gen.nz (Geoff Reynolds) The BBS Works -- +64 9 625 2851 NZL New Zealand's Oldest BBS ! From haible@ilog.fr Tue Dec 3 16:48:58 1996 Return-Path: Received: from relay1.fnet.fr ([192.134.192.129]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA06536; Tue, 3 Dec 96 16:48:58 +0100 Received: by relay1.fnet.fr (5.65c8d/96.05.03) via EUnet-France id AA20448; Tue, 3 Dec 1996 16:43:09 +0100 (MET) Received: from (halles [192.31.27.96]) by ilog.ilog.fr (8.7.6/8.7.3) with SMTP id QAA04649; Tue, 3 Dec 1996 16:20:38 +0100 (MET) From: Bruno Haible Received: by (5.x/8.6.12) id AA03410 for haible@mailhost; Tue, 3 Dec 1996 16:20:38 +0100 Date: Tue, 3 Dec 1996 16:20:38 +0100 Message-Id: <9612031520.AA03410@> To: Subject: Re: FFI vacall fails check. In-Reply-To: References: Geoff Reynolds writes: > At the end of the configuration: > [...] > gcc -O -I. -I../../ffcall/vacall -c ../../ffcall/vacall/tests.c > gcc -O tests.o vacall.o misc.o structcpy.o -o tests > ./tests > tests.out > uniq -u < tests.out > tests.output.i386-unknown-linux > test '!' -s tests.output.i386-unknown-linux > make: *** [check] Error 1 The calling convention for C functions returning structures of size > 8 bytes apparently has changed between gcc-2.6.3 and gcc-2.7 (all i386 platforms), and vacall supports only the old one. Since gcc-2.8 will switch back to gcc-2.6.3's calling convention, I won't change ffcall/vacall for this. > However I would like to build with the > --dynamic-ffi package, to interface with C code. To do this, you should temporarily remove the X_BcdB test in ffcall/vacall/tests.c, and retry. Returning structures > 8 bytes by value will not work, however. Bruno From rkirchne@phobos.mathcs.carleton.edu Fri Dec 6 13:42:45 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17867; Fri, 6 Dec 96 13:42:45 +0100 Received: from phobos.mathcs.carleton.edu (actually MathCS.Carleton.edu) by nz11.rz.uni-karlsruhe.de with SMTP (PP); Fri, 6 Dec 1996 13:24:45 +0100 Received: from ritchie.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id GAA22952; Fri, 6 Dec 1996 06:14:14 -0600 From: Roger Kirchner Message-Id: <199612061214.GAA22952@phobos.mathcs.carleton.edu> Received: by ritchie.mathcs.carleton.edu (NX5.67e/NX3.0X) id AA01322; Fri, 6 Dec 96 06:14:13 -0600 Subject: NeXTstep interface To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Fri, 6 Dec 1996 06:14:13 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 258 The NEWS file under 25 April 1995 has * Michael Stoll has written a graphical user interface for CLISP under NeXTstep. The m68k and i386 next binaries don't seem to have any more information. Is the interface available somewhere? Thanks. Roger Kirchner From lemeunie@lium.univ-lemans.fr Fri Dec 6 16:50:45 1996 Return-Path: Received: from keaton.univ-lemans.fr ([193.52.29.131]) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19827; Fri, 6 Dec 96 16:50:45 +0100 Received: from buster.univ-lemans.fr by keaton.univ-lemans.fr (SMI-8.6/SMI-SVR4) id QAA22266; Fri, 6 Dec 1996 16:41:48 GMT Received: by buster.univ-lemans.fr (SMI-8.6/SMI-SVR4) id QAA02312; Fri, 6 Dec 1996 16:43:51 GMT Date: Fri, 6 Dec 1996 16:43:51 GMT From: lemeunie@lium.univ-lemans.fr (Thierry Lemeunier (LIUM)) Message-Id: <199612061643.QAA02312@buster.univ-lemans.fr> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Recursive call of a macro-function X-Sun-Charset: US-ASCII Hello, I want to generalize the next method "construit-ksar" (a method to make ksar on a little blackboard) by using a macro-function. This first method run with only 3 variables (ecs) and I want to make a macro which expand a function for an undefined number of variables. My problem: ----------- The macro-function is recursive and I think there is a big problem with its environment (&environment ??) Has anyone been succesful in using a recursive macro call ? Please help me !!!!!! ; -------------------------------------------------------------------------------------------------------------------- ; The original method for only 3 variables: (defmethod construit-ksar ((oself KSOURCE)) (case (length (ecs-de oself)) (1 (loop for -var in (pile-de (car (ecs-de oself))) when (funcall (condition-de oself) -var) do (cree-ksar :ksource oself :valeurs (list -var) :interet (* (interet-de oself) (interet-de -var))))) (2 (loop for -var1 in (pile-de (car (ecs-de oself))) do (loop for -var2 in (pile-de (cadr (ecs-de oself))) when (funcall (condition-de oself) -var1 -var2) do (cree-ksar :ksource oself :valeurs (list -var1 -var2) :interet (* (interet-de oself) (interet-de -var1) (interet-de -var2)))))) (3 (loop for -var1 in (pile-de (car (ecs-de oself))) do (loop for -var2 in (pile-de (cadr (ecs-de oself))) do (loop for -var3 in (pile-de (caddr (ecs-de oself))) when (funcall (condition-de oself) -var1 -var2 -var3) do (cree-ksar :ksource oself :valeurs (list -var1 -var2 -var3) :interet (* (interet-de oself) (interet-de -var1) (interet-de -var2) (interet-de -var3))))))) (t (error "CONSTRUIT-KSAR: Les sources de connaissance ne doivent pas contenir plus de trois variables")))) ; -------------------------------------------------------------------------------------------------------------------- ; The macro-function that doesn't work: (defmethod construit-ksar ((oself KSOURCE)) (macro-construit-ksar oself (ecs-de oself) (list (gensym)))) (defmacro macro-construit-ksar (-ksource -conditions -variables) (if (cdr -conditions) `(loop for ,(car -variables) in (pile-de ,(car -conditions)) do (macro-construit-ksar ,-ksource (cdr ,-conditions) (cons (gensym) ,-variables))) `(loop for ,(car -variables) in (pile-de ,(car -conditions)) when (funcall (condition-de ,-ksource) ,@-variables) do (cree-ksar :ksource ,-ksource :valeurs ,-variables)))) :interet ,(* (interet-de -ksource) (apply #'* (mapcar #'interet-de -variables))))))) ; -------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------- Thierry LEMEUNIER _/ _/ _/_/ _/_/_/ _/ groupe Langue et Dialogue _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ Laboratoire d'Informatique _/ _/_/_/_/ _/ _/ _/ _/_/_/_/ UFR Sciences _/_/_/ _/ _/ _/_/_/ _/_/_/ _/ _/ Universite du Maine Avenue Olivier Messiaen BP535 email : lemeunie@lium.univ-lemans.fr F72017 LE MANS CEDEX web : http://bigiup.univ-lemans.fr/ ------------------------------------------------------------------------- From yesod@Mlink.NET Fri Dec 6 20:24:52 1996 Return-Path: Received: from zinc.Mlink.NET by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22034; Fri, 6 Dec 96 20:24:52 +0100 Received: from Dyn6.qbc.Mlink.NET (Dyn10.qbc.Mlink.NET [205.236.48.114]) by zinc.Mlink.NET (8.8.2/8.8.2) with SMTP id OAA02210 for ; Fri, 6 Dec 1996 14:18:59 -0500 (EST) Date: Fri, 6 Dec 1996 14:18:59 -0500 (EST) Message-Id: <1.5.4.16.19961206152157.08e7d9d6@POP.Mlink.NET> X-Sender: yesod@POP.Mlink.NET X-Mailer: Windows Eudora Light Version 1.5.4 (16) Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de From: Jean-Philippe Theberge Subject: a small clisp binary Hi, I would like to use Clisp for CGI scripting, but i need to install it on a very small disk space (my home dir). What i am looking for is a small binary, maybe an older version, without any x support, an posibly without doc or lsp files (i can take the one i need from my dos machine and copy them) The machine i need this for is a Sun running Solaris 2.5 JP Theberge yesod@cam.org From rkirchne@phobos.mathcs.carleton.edu Mon Dec 9 16:59:50 1996 Return-Path: Received: from phobos.mathcs.carleton.edu (mathcs.carleton.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA21961; Mon, 9 Dec 96 16:59:50 +0100 Received: from ritchie.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id JAA03683; Mon, 9 Dec 1996 09:47:22 -0600 From: Roger Kirchner Message-Id: <199612091547.JAA03683@phobos.mathcs.carleton.edu> Received: by ritchie.mathcs.carleton.edu (NX5.67e/NX3.0X) id AA02943; Mon, 9 Dec 96 09:47:21 -0600 Subject: clisp README To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de (the clisp-list) Date: Mon, 9 Dec 1996 09:47:21 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 217 The README in ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp doesn't show there are both i386-next and m68k-next binaries in the binaries directory. Also, could the ls-lR be updated? Current version is from 1993. From marcus@sysc.pdx.edu Tue Dec 10 12:07:41 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA03969; Tue, 10 Dec 96 12:07:41 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.8.3/8.8.3) with ESMTP id CAA24006 for ; Tue, 10 Dec 1996 02:59:13 -0800 (PST) Received: (from marcus@localhost) by sayre.sysc.pdx.edu (8.8.3/8.8.3) id KAA02859; Tue, 10 Dec 1996 10:59:08 GMT To: Subject: Re: clisp README References: <199612091547.JAA03683@phobos.mathcs.carleton.edu> From: Marcus Daniels Date: 10 Dec 1996 02:59:07 -0800 In-Reply-To: Roger Kirchner's message of Mon, 9 Dec 96 17:01:22 +0100 Message-Id: Lines: 8 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "RK" == Roger Kirchner writes: RK> The README in ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp RK> doesn't show there are both i386-next and m68k-next binaries in RK> the binaries directory. Also, could the ls-lR be updated? RK> Current version is from 1993. Updated! From geoff@codeworks.gen.nz Tue Dec 10 23:32:31 1996 Return-Path: Received: from wws1.ww.co.nz by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA10911; Tue, 10 Dec 96 23:32:31 +0100 Received: (from uucp@localhost) by wws1.ww.co.nz (8.6W03/8.6.9) with UUCP id LAA24366 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 11 Dec 1996 11:13:27 +1300 Received: by codeworks.gen.nz (1.65/waf) via UUCP; Wed, 11 Dec 96 11:01:35 +1200 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: clisp console output problem From: geoff@codeworks.gen.nz (Geoff Reynolds) Message-Id: Date: Wed, 11 Dec 96 11:01:07 +1200 Organization: The Code Works Limited Hello. I have noticed that when using clisp (1996-07-22) in an emacs buffer or at the console, it produces different (incorrect) output than when connected to a pipe. The problem shows up when printing numbers longer than 8192 digits: $ clisp -q -x "(expt 10 8192) (bye)" | cat produces correct output ('1' followed by 8192 '0's), but: $ clisp -q -x "(expt 10 8192) (bye)" produces '1' followed by 8191 '0's and then a '1'. It seems to happen with any larger number, anything after the first 8192 digits is simply a copy of the first 8192. This is running on linux-2.0.12/libc-5.2.18/emacs-19.32 Geoff. -- geoff@codeworks.gen.nz (Geoff Reynolds) The BBS Works -- +64 9 625 2851 NZL New Zealand's Oldest BBS ! From rkirchne@phobos.mathcs.carleton.edu Wed Dec 11 10:31:31 1996 Return-Path: Received: from phobos.mathcs.carleton.edu (MathCS.Carleton.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA17945; Wed, 11 Dec 96 10:31:31 +0100 Received: from ritchie.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id VAA06817; Tue, 10 Dec 1996 21:18:49 -0600 From: Roger Kirchner Message-Id: <199612110318.VAA06817@phobos.mathcs.carleton.edu> Received: by ritchie.mathcs.carleton.edu (NX5.67e/NX3.0X) id AA04131; Tue, 10 Dec 96 21:18:36 -0600 Subject: Re: clisp README -- can't find NeXTstep interface To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Tue, 10 Dec 1996 21:18:35 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) In-Reply-To: from "Marcus Daniels" at Dec 10, 96 12:14:11 pm X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 1143 > > >>>>> "RK" == Roger Kirchner writes: > > RK> The README in ma2s2.mathematik.uni-karlsruhe.de/pub/lisp/clisp > RK> doesn't show there are both i386-next and m68k-next binaries in > RK> the binaries directory. Also, could the ls-lR be updated? > RK> Current version is from 1993. > > Updated! > Thanks. Previously, I asked about the NeXTstep user interface written by Michael Stoll, and he replied: :It should be in the source tree (in a directory named `nextapp' or so). :There might be some modifications needed w.r.t. the libraries that have :to be linked. ; :I could also make available a binary (for NS 3.2/i386), but the CLISP :version I currently use is (if I remember correctly) from mid-1995. : :Cheers, : Michael Stoll But I can't find any other instances of 'next' in ls-lR except those referning to the binaries. Does anyone have any further info about the NeXTstep interface? There is an interface, Schematik, for black NeXTs which can run clisp instead of Scheme, but would like one for Intel NeXTs which could perhaps also be used for black NeXTs. Thanks. Roger From marcus@sysc.pdx.edu Wed Dec 11 12:32:51 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19279; Wed, 11 Dec 96 12:32:51 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.8.3/8.8.3) with ESMTP id DAA25734 for ; Wed, 11 Dec 1996 03:14:06 -0800 (PST) Received: (from marcus@localhost) by sayre.sysc.pdx.edu (8.8.3/8.8.3) id LAA28613; Wed, 11 Dec 1996 11:14:00 GMT To: Subject: Re: clisp console output problem References: From: Marcus Daniels Date: 11 Dec 1996 03:13:59 -0800 In-Reply-To: geoff@codeworks.gen.nz's message of Tue, 10 Dec 96 23:34:39 +0100 Message-Id: Lines: 11 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "GR" == Geoff Reynolds writes: GR> This is running on linux-2.0.12/libc-5.2.18/emacs-19.32 Wierdly enough, using my current Linux x86 executable and image, I was able to reproduce this, but only with 2.0.12. On 2.0.23 with 5.2.18 (on a 386), 2.0.26 with 5.4.13 (on a 586), and 2.1.13 with 5.2.18 (on a 486), no bug occurs. I don't have a fix yet, but you might try a newer kernel to see what happens. From tkunze@ulysses.stanford.edu Thu Dec 12 04:07:54 1996 Return-Path: Received: from ulysses.stanford.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA29368; Thu, 12 Dec 96 04:07:54 +0100 Received: (from tkunze@localhost) by ulysses.stanford.edu (950413.SGI.8.6.12/950213.SGI.AUTOCF) id TAA01299 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 11 Dec 1996 19:07:37 -0800 From: "Tobias Kunze" Message-Id: <9612111907.ZM1297@ulysses.stanford.edu> Date: Wed, 11 Dec 1996 19:07:36 -0800 Reply-To: t@ulysses.Stanford.EDU X-Url: http://www.stanford.edu/~tkunze X-Mailer: Z-Mail (3.2.3 08feb96 MediaMail) To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: format bug Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii The examples on page 585 of CLtL2 don't work: | > (format nil "~,,' ,4b" #xface) | "1111101011001110" | NIL | > (lisp-implementation-version) | "1996-04-17 (April 1996)" | > (software-version) | "GNU C 2.7.2.f.1" | > Output should be "1111 1010 1100 1110". etc. From marcus@sysc.pdx.edu Thu Dec 12 05:04:41 1996 Return-Path: Received: from sysc.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00172; Thu, 12 Dec 96 05:04:41 +0100 Received: from sayre.sysc.pdx.edu (sayre.sysc.pdx.edu [131.252.30.61]) by sysc.pdx.edu (8.8.3/8.8.3) with ESMTP id TAA26734 for ; Wed, 11 Dec 1996 19:57:25 -0800 (PST) Received: (from marcus@localhost) by sayre.sysc.pdx.edu (8.8.3/8.8.3) id DAA06645; Thu, 12 Dec 1996 03:57:19 GMT To: Subject: Re: format bug References: <9612111907.ZM1297@ulysses.stanford.edu> From: Marcus Daniels Date: 11 Dec 1996 19:57:18 -0800 In-Reply-To: "Tobias Kunze"'s message of Thu, 12 Dec 96 04:09:46 +0100 Message-Id: Lines: 25 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "TK" == Tobias Kunze writes: TK> The examples on page 585 of CLtL2 don't work: | > (format nil "~,,' ,4b" #xface) | "1111101011001110" | NIL I'm not so sure the examples are right, note that CLtL2 does say: "The : modifier causes commas to be printed between groups of three digits." and in dpANS I don't see this particular example; the similiar examples all use the `:'. CLISP does obey the `:': > (format nil "~,,' ,4:B" #xface) "1111 1010 1100 1110" I think if the fourth parameter implied a `:', it would be a nuisance if format strings were being generated by a program. From tkunze@ulysses.stanford.edu Thu Dec 12 05:19:01 1996 Return-Path: Received: from ulysses.stanford.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA00492; Thu, 12 Dec 96 05:19:01 +0100 Received: (from tkunze@localhost) by ulysses.stanford.edu (950413.SGI.8.6.12/950213.SGI.AUTOCF) id UAA01567 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 11 Dec 1996 20:18:43 -0800 From: "Tobias Kunze" Message-Id: <9612112018.ZM1565@ulysses.stanford.edu> Date: Wed, 11 Dec 1996 20:18:42 -0800 In-Reply-To: Marcus Daniels "Re: format bug" (Dec 12, 5:11am) References: Reply-To: t@ulysses.Stanford.EDU X-Url: http://www.stanford.edu/~tkunze X-Mailer: Z-Mail (3.2.3 08feb96 MediaMail) To: Subject: Re: format bug Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Aha. I should have checked back with the ANSI draft standard. :) BTW: both versions break in ACL 4.3: | [6] CM(20): (format t "~,,' ,4b" #xface) | Error: formatter found unsyntactic format string: | Too many parameters | ~,,' ,4b | | | | | [7] CM(23): (format nil "~,,' ,4:B" #xface) | Error: formatter found unsyntactic format string: | Too many parameters | ~,,' ,4:B | | | | | [8] CM(21): (software-version) | | "IRIX ulysses 6.2 03131015 IP22" | [8] CM(22): (lisp-implementation-version) | "4.3 [Silicon Graphics Iris 4D; R1] (4/5/96 18:43)" although *features* contains :DRAFT-ANSI-CL-2 and :ANSI-CL ... From hoehle@zeus.gmd.de Thu Dec 19 12:22:10 1996 Return-Path: Received: from diva.gmd.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA02380; Thu, 19 Dec 96 12:22:10 +0100 Received: by diva.gmd.de with UUCP id AA01125 (5.67b8/IDA-1.5 for clisp-list@[129.13.115.2]); Thu, 19 Dec 1996 12:13:24 +0100 Date: Thu, 19 Dec 1996 12:13:24 +0100 Message-Id: <199612191113.AA01125@diva.gmd.de> From: hoehle@zeus.gmd.de (Joerg Hoehle) To: clisp-list@[129.13.115.2] Subject: why two readlines in clisp/source? Hello, could somebody comment on why there are two readline libraries for CLISP and why they differ, e.g. what for a difference it makes as far as CLISP is concerned? src/readline/ a modified GNU readline library, gdb-4.13 based FTP: /pub/lisp/clisp/source/clispsrc-readline.tar.z src/newreadline/ another modified GNU readline library, bash-1.14.5 based FTP: /pub/lisp/clisp/source/clispsrc-newreadline.tar.z Is there any more info on "official" readline versions? Thanks, Jo"rg Ho"hle. Joerg.Hoehle@gmd.de From rkirchne@phobos.mathcs.carleton.edu Thu Dec 19 17:21:59 1996 Return-Path: Received: from phobos.mathcs.carleton.edu (mathcs.carleton.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA05509; Thu, 19 Dec 96 17:21:59 +0100 Received: from ritchie.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id KAA13501; Thu, 19 Dec 1996 10:08:12 -0600 From: Roger Kirchner Message-Id: <199612191608.KAA13501@phobos.mathcs.carleton.edu> Received: by ritchie.mathcs.carleton.edu (NX5.67e/NX3.0X) id AA07339; Thu, 19 Dec 96 10:08:09 -0600 Subject: Trying to build Lisp.app To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Thu, 19 Dec 1996 10:08:08 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) In-Reply-To: <199612191113.AA01125@diva.gmd.de> from "Joerg Hoehle" at Dec 19, 96 12:27:30 pm X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 2179 I got clispsrc.tar.gz from http://sayre.sysc.pdx.edu:8001/clisp/. It unpacks to clisp-1996-08-29. I tried to build Lisp.app on my black NeXT using the source and instructions in nextapp. I followed nextapp/INSTALL. Everything went smoothly, but the Lisp.app build failed with some undefined symbols: ld: Undefined symbols: _vacall _alloc_trampoline _is_trampoline _trampoline_address _trampoline_variable _trampoline_data _free_trampoline ___structcpy ___builtin_avcall ___va_error2 ___va_struct_buffer ___va_error1 _vacall_function *** Exit 1 Stop. *** Exit 1 Stop. I was even less successful on an Intel NeXT. The configure failed with test '!' -s tests.output.i386-next-nextstep3 gcc -O -c vacall-i386.s vacall-i386.c:14:Alignment too large: 15. assumed. vacall-i386.c:16:Unknown pseudo-op: .type vacall-i386.c:16:Rest of line ignored. 1st junk character valued 118 (v). vacall-i386.c:34:Alignment too large: 15. assumed. ... vacall-i386.c:147:Unknown pseudo-op: .size vacall-i386.c:147:Rest of line ignored. 1st junk character valued 118 (v). make: *** [vacall-i386.o] Error 1 To continue building CLISP, the following commands are recommended (cf. unix/INSTALL step 4): cd /private/Net/charon/research/plresearch/clisp/clisp-1996-08-29/i386 ./makemake --disable-nls --with-noreadline > Makefile make make check I went ahead with the makemake, put .SUFFIXES: in the Makefile and did 'make all modular' as instructed in nextapp/INSTALL. But... ritchie% make all modular test -d linkkit || ln -s . linkkit test -d base || ln -s . base test -d bindings || mkdir bindings gcc -O -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -fomit-frame-pointer -O2 -DNO_READLINE -x none spvw.o spvwtabf.o spvwtabs.o spvwtabo.o eval.o control.o pathname.o stream.o socket.o io.o array.o hashtabl.o list.o package.o record.o sequence.o charstrg.o debug.o error.o misc.o time.o predtype.o symbol.o lisparit.o graph.o unixaux.o ari80386.o modules.o -ltermcap -o lisp.run ld: can't locate file for: -ltermcap make: *** [lisp.run] Error 1 ritchie% Can anyone tell from this what I should do? I used make 3.75 and gcc 2.7.2.1. Thanks. Roger Kirchner From marcus@ee.pdx.edu Mon Dec 23 06:53:23 1996 Return-Path: Received: from ursula.ee.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA15955; Mon, 23 Dec 96 06:53:23 +0100 Received: from nakoma.ee.pdx.edu (nakoma.ee.pdx.edu [204.203.65.52]) by ursula.ee.pdx.edu (8.8.3/8.8.3) with ESMTP id VAA10137 for ; Sun, 22 Dec 1996 21:44:09 -0800 (PST) Received: (from marcus@localhost) by nakoma.ee.pdx.edu (8.8.3/8.8.3) id VAA17597; Sun, 22 Dec 1996 21:44:03 -0800 (PST) To: Subject: Re: Trying to build Lisp.app References: <199612191608.KAA13501@phobos.mathcs.carleton.edu> From: Marcus Daniels Date: 22 Dec 1996 21:44:01 -0800 In-Reply-To: Roger Kirchner's message of Thu, 19 Dec 96 17:26:06 +0100 Message-Id: Lines: 11 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "RK" == Roger Kirchner writes: RK> I followed nextapp/INSTALL. Everything went smoothly, but the RK> Lisp.app build failed with some undefined symbols When building with the dynamic-ffi support or the gettext support, what is needed is a `Makefile.preamble' file that tells Project Builder where to find the support libraries. Something like: CLISP_BUILD = /build/clisp OTHER_LDFLAGS = -L$(CLISP_BUILD)/avcall -L$(CLISP_BUILD)/trampoline -L$(CLISP_BUILD)/vacall -L$(CLISP_BUILD)/gettext/intl From rkirchne@phobos.mathcs.carleton.edu Mon Dec 23 15:06:07 1996 Return-Path: Received: from phobos.mathcs.carleton.edu (mathcs.carleton.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20733; Mon, 23 Dec 96 15:06:07 +0100 Received: from hamming.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id HAA03972; Mon, 23 Dec 1996 07:51:09 -0600 From: Roger Kirchner Message-Id: <199612231351.HAA03972@phobos.mathcs.carleton.edu> Received: by hamming.mathcs.carleton.edu (8.6.12/NX3.0X) id HAA25873; Mon, 23 Dec 1996 07:51:08 -0600 Subject: Re: Trying to build Lisp.app To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 23 Dec 1996 07:51:07 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) In-Reply-To: from "Marcus Daniels" at Dec 23, 96 06:59:15 am X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 1669 > > >>>>> "RK" == Roger Kirchner writes: > > RK> I followed nextapp/INSTALL. Everything went smoothly, but the > RK> Lisp.app build failed with some undefined symbols > > When building with the dynamic-ffi support or the gettext support, > what is needed is a `Makefile.preamble' file that tells Project Builder > where to find the support libraries. Something like: > > CLISP_BUILD = /build/clisp > OTHER_LDFLAGS = -L$(CLISP_BUILD)/avcall -L$(CLISP_BUILD)/trampoline -L$(CLISP_BUILD)/vacall -L$(CLISP_BUILD)/gettext/intl > > I created a Makefile.preamble with CLISP_BUILD = /Roger/clisp-1996-08-29/m68k OTHER_LDFLAGS = -L$(CLISP_BUILD)/avcall -L$(CLISP_BUILD)/trampoline -L$(CLISP_B\ UILD)/vacall (I didn't have a gettext directory.) But the symbols still aren't being found. Do I need to redo some steps? cc -g -O -Wall -I./sym -arch m68k -ObjC -L/Roger/clisp-1996-08-29/m68k/avcall -L/Roger/clisp-1996-08-29/m68k/trampoline -L/Roger/clisp-1996-08-29/m68k/vacall -sectcreate __ICON __header Lisp.iconheader -segprot __ICON r r -sectcreate __ICON app Lisp3.tiff -o Lisp.app/Lisp m68k_obj/BreakManager.o m68k_obj/CommandScroll.o m68k_obj/Coordinator.o m68k_obj/LispPreferencesPanel.o m68k_obj/LispServer.o m68k_obj/LispText.o m68k_obj/MyPanel.o m68k_obj/Lisp_main.o m68k_obj/nxterminal.o lisp.o modules.o -lMedia_s -lNeXT_s -ltermcap ld: Undefined symbols: _vacall _alloc_trampoline _is_trampoline _trampoline_address _trampoline_variable _trampoline_data _free_trampoline ___structcpy ___builtin_avcall ___va_error2 ___va_struct_buffer ___va_error1 _vacall_function *** Exit 1 Stop. *** Exit 1 Stop. Thanks, Roger From marcus@ee.pdx.edu Mon Dec 23 18:02:01 1996 Return-Path: Received: from ursula.ee.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22446; Mon, 23 Dec 96 18:02:01 +0100 Received: from rafiki.ee.pdx.edu (rafiki.ee.pdx.edu [204.203.65.106]) by ursula.ee.pdx.edu (8.8.3/8.8.3) with ESMTP id IAA15792 for ; Mon, 23 Dec 1996 08:52:42 -0800 (PST) Received: (from marcus@localhost) by rafiki.ee.pdx.edu (8.8.3/8.8.3) id IAA27855; Mon, 23 Dec 1996 08:52:40 -0800 (PST) To: Subject: Re: Trying to build Lisp.app References: <199612231351.HAA03972@phobos.mathcs.carleton.edu> From: Marcus Daniels Date: 23 Dec 1996 08:52:38 -0800 In-Reply-To: Roger Kirchner's message of Mon, 23 Dec 96 15:08:55 +0100 Message-Id: Lines: 10 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "RK" == Roger Kirchner writes: RK> (I didn't have a gettext directory.) But the symbols still aren't RK> being found. Do I need to redo some steps? You need to add the extra libraries to Project Builder's `Libraries' (to see, click the `Files' button). The existing libraries are probably Media_s, NeXT_s, and termcap. For the FFI, add libavcall.a, libtrampoline.a, and libvacall.a; for gettext, add libintl.a. From donc@ISI.EDU Mon Dec 23 19:22:12 1996 Return-Path: Received: from darkstar.isi.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA23306; Mon, 23 Dec 96 19:22:12 +0100 Received: from darkstar.isi.edu by darkstar.isi.edu (5.65c/5.61+local-23) id ; Mon, 23 Dec 1996 10:12:50 -0800 Message-Id: <199612231812.AA29834@darkstar.isi.edu> To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: load time value problem Date: Mon, 23 Dec 96 10:12:50 PST From: Don Cohen Here's a piece of code that I try to compile: (DEFUN |Normal-Delete-FOO| (&REST ARGLIST &AUX (COPY (COPY-LIST ARGLIST))) (COMPILED-UPDATE-BODY 'NIL (THEAP5RELATION FOO) COPY (LOAD-TIME-VALUE (LOOP FOR S IN '((LAMBDA (R X Y) (DELSTRUCTPROP-INTERNAL R X Y #'EQL)) (LAMBDA (REL &REST TUPLE) (DELETE1BASETUPLE REL TUPLE #'(LAMBDA (TUPLE DATA) (FMEMB3 TUPLE DATA #,(DBO RELATION FOO)))))) ;; the #,(dbo ...) is coming from a print function for a structure ;; and evaluates to the right thing in the load time environment COLLECT (IF (CONSP S) (COMPILE NIL S) (COERCE S 'FUNCTION)))) 'NIL '(#) (CONS 'FOO COPY) '|Test-FOO|)) Here's the corresponding piece of compiled file: #Y(#:TOP-LEVEL-FORM-2-3-5-2-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) |Normal-Delete-FOO| SYSTEM::REMOVE-OLD-DEFINITIONS #Y(|Normal-Delete-FOO| #24Y(00 00 00 00 01 16 AB 70 A2 62 D8 AC D9 62 DA DB A2 79 DC 2C 08 05 19 03 ) #.(RELATIONP-ERR 'FOO) #.(LOOP FOR S IN '((LAMBDA (R X Y) (DELSTRUCTPROP-INTERNAL R X Y #'EQL)) (LAMBDA (REL &REST TUPLE) (DELETE1BASETUPLE REL TUPLE #'(LAMBDA (TUPLE DATA) (FMEMB3 TUPLE DATA #1="#,(DBO RELATION FOO)") ;;; Turns into a string!! ) ) ) ) COLLECT (IF (CONSP S) (COMPILE NIL S) (COERCE S 'FUNCTION)) ) (#2=#Y(NIL #33Y(03 00 00 00 00 04 62 AD AA 8C 96 03 02 19 06 86 00 01 82 00 93 01 D8 AB 31 35 16 01 1B 6A 00 19 06 ) DBOBJECT ) ) FOO |Test-FOO| COMPILED-UPDATE-BODY ) ) Of course, the compiled code does not load. I'm trying to figure out why my #,(dbo ...) turned into a a string in the .fas file. Anybody have any ideas? From jacsib@lutecium.fr Tue Dec 24 00:49:44 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA26492; Tue, 24 Dec 96 00:49:44 +0100 Received: from chleuasme.francenet.fr by nz11.rz.uni-karlsruhe.de with SMTP (PP); Tue, 24 Dec 1996 00:39:11 +0100 Received: (from uuluteci@localhost) by chleuasme.francenet.fr (8.6.9/8.6.9) with UUCP id AAA02042 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Tue, 24 Dec 1996 00:08:44 +0100 Received: from Lutecium (jacsib@localhost [127.0.0.1]) by lutecium.fr (8.7.5/8.7.3) with SMTP id XAA00704 for ; Mon, 23 Dec 1996 23:02:21 GMT Sender: jacsib@lutecium.fr Message-Id: <32BF0F7B.1CEEC165@lutecium.fr> Date: Mon, 23 Dec 1996 23:02:19 +0000 From: "Jacques B. Siboni" Organization: Lutecium, Paris, France X-Mailer: Mozilla 3.0 (X11; I; Linux 2.0.0 i486) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: [Fwd: Problem with elf version of clisp] Content-Type: multipart/mixed; boundary="------------1C8989BBAD5C8E667474A25" This is a multi-part message in MIME format. --------------1C8989BBAD5C8E667474A25 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit dear all, Here is another question I have. Thanks in advance for any help Jacques Jacques B. Siboni wrote: > > Dear Mr Haible, > > I have another problem, I tried to install the clisp-linux-elf > version. > > When I run (compile-file "src/config"), I receive the following > message: > > > (compile-file "src/config") > > *** - nonexistent directory: #"/proc/1/[0813]:2/" > 1. Break> > > Do you know what I can do about it? > > Thanks in advance > > Jacques -- Dr. Jacques B. Siboni 8 pass. Charles Albert, F75018 Paris, France Tel. & Fax: (33 1) 42 28 76 78 --------------1C8989BBAD5C8E667474A25 Content-Type: message/rfc822 Content-Transfer-Encoding: 7bit Content-Disposition: inline Message-ID: <32BEE4CF.1BFF5F88@lutecium.fr> Date: Mon, 23 Dec 1996 20:00:15 +0000 From: "Jacques B. Siboni" Organization: Lutecium, Paris, France X-Mailer: Mozilla 3.0 (X11; I; Linux 2.0.0 i486) MIME-Version: 1.0 To: haible@ma2s2.mathematik.uni-karlsruhe.de Subject: Problem with elf version of clisp References: <32BDCA5A.285689CA@lutecium.fr> <32BEC052.44ECB5CF@lutecium.fr> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Dear Mr Haible, I have another problem, I tried to install the clisp-linux-elf version. When I run (compile-file "src/config"), I receive the following message: > (compile-file "src/config") *** - nonexistent directory: #"/proc/1/[0813]:2/" 1. Break> Do you know what I can do about it? Thanks in advance Jacques -- Dr. Jacques B. Siboni 8 pass. Charles Albert, F75018 Paris, France Tel. & Fax: (33 1) 42 28 76 78 --------------1C8989BBAD5C8E667474A25-- From jacsib@lutecium.fr Tue Dec 24 00:49:45 1996 Return-Path: Received: from nz11 by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AB26492; Tue, 24 Dec 96 00:49:45 +0100 Received: from chleuasme.francenet.fr by nz11.rz.uni-karlsruhe.de with SMTP (PP); Tue, 24 Dec 1996 00:39:22 +0100 Received: (from uuluteci@localhost) by chleuasme.francenet.fr (8.6.9/8.6.9) with UUCP id AAA02041 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Tue, 24 Dec 1996 00:08:44 +0100 Received: from Lutecium (jacsib@localhost [127.0.0.1]) by lutecium.fr (8.7.5/8.7.3) with SMTP id WAA00696 for ; Mon, 23 Dec 1996 22:58:07 GMT Sender: jacsib@lutecium.fr Message-Id: <32BF0E7C.111223CE@lutecium.fr> Date: Mon, 23 Dec 1996 22:58:04 +0000 From: "Jacques B. Siboni" Organization: Lutecium, Paris, France X-Mailer: Mozilla 3.0 (X11; I; Linux 2.0.0 i486) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: [Fwd: Problem in clisp configure: vacall] Content-Type: multipart/mixed; boundary="------------50FEC71236C17C0BE981D75" This is a multi-part message in MIME format. --------------50FEC71236C17C0BE981D75 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Dear all, Since I subscribe to the clisp list, I submit the question to anyone who can help me. Thanks in advance Jacques Jacques B. Siboni wrote: > > Dear Mr haible, > > I run linux 2.0.0 an use gcc 2.7.2. > When I run ./configure to install clisp, tests fail on directory > vacall, here is the uniq generated file > > X f(B,char,double,B):({0.1,{1,2,3}},'\x7f',0.3, > {0.2,{5,4,3}})->{"return val",'\x7f'} > > X f(B,char,double,B):({0.1,{1,2,3}},'\x7f',0.3, > {0.2,{5,4,3}})->{"\x7f",'\x7f'} > > the strings \x7f indicate that there is actually 0x7f value in the > actual file > > If I understand the test, some of the 0x7f should be the letter 'R' > > What do you suggest? > > Thanks in advance > > Jacques -- Dr. Jacques B. Siboni 8 pass. Charles Albert, F75018 Paris, France Tel. & Fax: (33 1) 42 28 76 78 --------------50FEC71236C17C0BE981D75 Content-Type: message/rfc822 Content-Transfer-Encoding: 7bit Content-Disposition: inline Message-ID: <32BEC052.44ECB5CF@lutecium.fr> Date: Mon, 23 Dec 1996 17:24:34 +0000 From: "Jacques B. Siboni" Organization: Lutecium, Paris, France X-Mailer: Mozilla 3.0 (X11; I; Linux 2.0.0 i486) MIME-Version: 1.0 To: haible@ma2s2.mathematik.uni-karlsruhe.de Subject: Problem in clisp configure: vacall References: <32BDCA5A.285689CA@lutecium.fr> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Dear Mr haible, I run linux 2.0.0 an use gcc 2.7.2. When I run ./configure to install clisp, tests fail on directory vacall, here is the uniq generated file X f(B,char,double,B):({0.1,{1,2,3}},'\x7f',0.3,{0.2,{5,4,3}})->{"return val",'\x7f'} X f(B,char,double,B):({0.1,{1,2,3}},'\x7f',0.3,{0.2,{5,4,3}})->{"\x7f",'\x7f'} the strings \x7f indicate that there is actually 0x7f value in the actual file If I understand the test, some of the 0x7f should be the letter 'R' What do you suggest? Thanks in advance Jacques -- Dr. Jacques B. Siboni 8 pass. Charles Albert, F75018 Paris, France Tel. & Fax: (33 1) 42 28 76 78 --------------50FEC71236C17C0BE981D75-- From rkirchne@phobos.mathcs.carleton.edu Tue Dec 24 02:29:10 1996 Return-Path: Received: from phobos.mathcs.carleton.edu (MathCS.Carleton.edu) by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA27641; Tue, 24 Dec 96 02:29:10 +0100 Received: from hamming.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id TAA05056; Mon, 23 Dec 1996 19:14:38 -0600 From: Roger Kirchner Message-Id: <199612240114.TAA05056@phobos.mathcs.carleton.edu> Received: by hamming.mathcs.carleton.edu (8.6.12/NX3.0X) id TAA26704; Mon, 23 Dec 1996 19:14:38 -0600 Subject: Lisp.app builds! To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 23 Dec 1996 19:14:37 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) In-Reply-To: from "Marcus Daniels" at Dec 23, 96 06:07:17 pm X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 1688 > > >>>>> "RK" == Roger Kirchner writes: > > > RK> (I didn't have a gettext directory.) But the symbols still aren't > RK> being found. Do I need to redo some steps? > > You need to add the extra libraries to Project Builder's `Libraries' > (to see, click the `Files' button). The existing libraries are > probably Media_s, NeXT_s, and termcap. For the FFI, add libavcall.a, > libtrampoline.a, and libvacall.a; for gettext, add libintl.a. > > This did the trick. Now I have another problem. Code for "AI a Modern Approach", Russell and Norvig (http://www.cs.berkeley.edu/~russell/aima.html) compiled using 1996-06-26 NeXT binaries, but I get an error in compiling with Lisp.app, built using 1996-08-29 source. After (load "aima.lisp"), (aima-compile) compiles number of files. ... ;; Loading file /Roger/aima/code/utilities/cltl2.fas ... ;; Loading of file /Roger/aima/code/utilities/cltl2.fas is finished. Compiling file /Roger/aima/code/agents/basic-env.lisp ... Compilation of file /Roger/aima/code/agents/basic-env.lisp is finished. 0 errors, 0 warnings ;; Loading file /Roger/aima/code/agents/basic-env.fas ... ;; Loading of file /Roger/aima/code/agents/basic-env.fas is finished. Compiling file /Roger/aima/code/agents/grid-env.lisp ... *** - PRINT: Despite of *PRINT-READABLY*, # cannot be printed readably. 1. Break> I don't see DEFAULT-LOC in the code, although it occurs in grid-env.fas created by the 6-26 version. #Y(DEFAULT-LOC #12Y(00 00 00 00 00 01 D8 D8 2F 01 19 01) 1. @) MAKE-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS I'm not giving anyone much to go on, but any ideas? Roger From jacsib@lutecium.fr Wed Dec 25 15:10:44 1996 Return-Path: Received: from chleuasme.francenet.fr by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA19599; Wed, 25 Dec 96 15:10:44 +0100 Received: (from uuluteci@localhost) by chleuasme.francenet.fr (8.6.9/8.6.9) with UUCP id OAA27262 for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Wed, 25 Dec 1996 14:49:08 +0100 Received: from Lutecium (jacsib@localhost [127.0.0.1]) by lutecium.fr (8.7.5/8.7.3) with SMTP id NAA00411 for ; Wed, 25 Dec 1996 13:40:23 GMT Sender: jacsib@lutecium.fr Message-Id: <32C12EC4.331C331A@lutecium.fr> Date: Wed, 25 Dec 1996 13:40:20 +0000 From: "Jacques B. Siboni" Organization: Lutecium, Paris, France X-Mailer: Mozilla 3.0 (X11; I; Linux 2.0.0 i486) Mime-Version: 1.0 To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Subject: Problem installing CLX References: <32BF0E7C.111223CE@lutecium.fr> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Merry Christmas to you all, When I try to install CLX on clisp, I get the following message: clisp -m 4MB -q -i defsystem -x '(load-clx "" :macrosp t) (saveinitmem)' ;; Loading file /usr/local/src/clx/defsystem.fas ... ;; Loading of file /usr/local/src/clx/defsystem.fas is finished. ;; Loading file /usr/local/src/clx/package.fas ... ;; Loading of file /usr/local/src/clx/package.fas is finished. ;; Loading file /usr/local/src/clx/depdefs.fas ... ;; Loading of file /usr/local/src/clx/depdefs.fas is finished. ;; Loading file /usr/local/src/clx/clx.fas ... ;; Loading file /usr/local/src/clx/dependent.fas ... ** - Continuable Error Redefining the COMMON LISP macro WITH-STANDARD-IO-SYNTAX The old definition will be lost ;; Loading of file /usr/local/src/clx/dependent.fas is finished. ;; Loading file /usr/local/src/clx/macros.fas ... ;; Loading of file /usr/local/src/clx/macros.fas is finished. ;; Loading file /usr/local/src/clx/bufmac.fas ... ;; Loading of file /usr/local/src/clx/bufmac.fas is finished. ;; Loading file /usr/local/src/clx/buffer.fas ... ;; Loading of file /usr/local/src/clx/buffer.fas is finished. ;; Loading file /usr/local/src/clx/display.fas ... ;; Loading of file /usr/local/src/clx/display.fas is finished. ;; Loading file /usr/local/src/clx/gcontext.fas ... ;; Loading of file /usr/local/src/clx/gcontext.fas is finished. ;; Loading file /usr/local/src/clx/input.fas ... WARNING: The generic function # is being modified, but has already been called. *** - handle_fault error6 ! protection = 3 SIGSEGV cannot be cured. Fault address = 0x1000FCE8. make: *** [clx.mem] Segmentation fault (core dumped) Did someone encountered the same problem? I run Linux 2.0.0 Thanks in advance Jacques -- Dr. Jacques B. Siboni 8 pass. Charles Albert, F75018 Paris, France Tel. & Fax: (33 1) 42 28 76 78 From clinares@delicias.dia.fi.upm.es Fri Dec 27 17:21:30 1996 Return-Path: Received: from GOOFY.FI.UPM.ES by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20377; Fri, 27 Dec 96 17:21:30 +0100 Received: from recoletos.dia.fi.upm.es by relay.fi.upm.es (PMDF V5.1-5 #15665) with SMTP id <01IDIGBLRL2W0009BZ@relay.fi.upm.es> for clisp-list@ma2s2.mathematik.uni-karlsruhe.de; Fri, 27 Dec 1996 17:10:22 MET Received: from recoletos (localhost) by recoletos.dia.fi.upm.es (4.1/FI-3.3) Fri, 27 Dec 96 17:10:18 +0100 Date: Fri, 27 Dec 1996 17:10:16 +0100 From: Carlos Linares Subject: Spanish Translation of CLisp Sender: clinares@recoletos.dia.fi.upm.es To: Lista de correo de CLisp Cc: clinares@recoletos.dia.fi.upm.es Message-Id: <32C3F4E7.41C67EA6@delicias.dia.fi.upm.es> Organization: Artificial Intelligence Laboratory Mime-Version: 1.0 X-Mailer: Mozilla 3.01 (X11; I; SunOS 4.1.3_U1 sun4c) Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Hi there: This is my first post to the mailing list so, let me introduce myself before treating the main reason of this mail: I'm a computer engineer and I work on Artificial Intelligence. I use to program in C and Lisp. As I'm 'in love with GNU philosophy', I work with gcc and clisp (I do not like gcl so much as clisp). Moreover, when I teach Common Lisp I always distribute CLisp (the last available version, sometimes for DOS, other times for Unix OS). On the other hand, I belong to the Spanish GNU Translation Team. As you might know, the GNU Translation Team take progs and extract all its messages, which are written to other file that everybody calls '.po'. All the sentences of this file can be translated, one by one (a great job!). Ok! I offered myself for translating CLisp (version 1996-03-31) and I need a little help: please, if you could, read this and tell me, ... The main idea is to translate clisp to Spanish. That means that all messages could be seen in Spanish (but the language will be unaltered, of course; on the other hand, all the copyright remains the same and I'll never take part in them). However, I have some difficulties: * Sometimes I've found messages that I don't understand at all (what's about 'Mach'?) * Other terms are very difficult to translate (for instance, what's a multihop?). * If the messages will be seen in Spanish but *all* the commands remain in english, what about yes-or-no-p? (for instance). If I write: > (yes-or-no-p) h Please, answer yes or no: ..., what should be seen in Spanish? > (yes-or-no-p) h Por favor, responda yes(si) o no(no): Hmmmm, it doesn't look well! :( Then, I ought to modify certain parts of the code and add a new option to the #L directive (ESPAÑOL). Although permissions are granted for doing it (CLisp is GNU, isn't it?), I need to know if you would maintain such changes, ..., this is, ftp'in the new releases in Spanish in your ftp server and helping as much as possible (that doesn't mean that you ought to work on it, but simply answering my silly questions, ...) At last but not least, I need people who would like to review my work (this is specially intended for the spanish spoken members of this list, ... -I know you are there ;) ). Anyway, I'd like to know if you are interested in this and if you could help. Please, notice it won't take you a long. I do not need people working at home, but some answers to some questions pertaining the translations (of course, if you want to review the '.po' file, that would be great!!!!) I'd like to hear from you. If you do, I'ld post a file with all the questions I have till this time. It is not expected you would speak in Spanish for answering the questions, ... Consider that I've translated 522 messages of 1300!! So, this is a serious work! :) You can see!! :) Bye, (and Merry Christmas!) -- Carlos Linares Lopez ------------------------------------------------------------------------ Artificial Intelligence Laboratory Facultad de Informatica Universidad Politecnica de Madrid Espana (Spain) ------------------------------------------------------------------------ clinares@delicias.dia.fi.upm.es http://delicias.dia.fi.upm.es/miembros/clinares_CV_Esp.html ------------------------------------------------------------------------ From marcus@ee.pdx.edu Fri Dec 27 18:02:08 1996 Return-Path: Received: from ursula.ee.pdx.edu by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA20851; Fri, 27 Dec 96 18:02:08 +0100 Received: from willow.ee.pdx.edu (willow.ee.pdx.edu [204.203.65.55]) by ursula.ee.pdx.edu (8.8.3/8.8.3) with ESMTP id IAA07460; Fri, 27 Dec 1996 08:52:00 -0800 (PST) Received: (from marcus@localhost) by willow.ee.pdx.edu (8.8.3/8.8.3) id IAA01645; Fri, 27 Dec 1996 08:51:52 -0800 (PST) To: Carlos Linares Cc: Subject: Re: Spanish Translation of CLisp References: <32C3F4E7.41C67EA6@delicias.dia.fi.upm.es> From: Marcus Daniels Date: 27 Dec 1996 08:51:51 -0800 In-Reply-To: Carlos Linares's message of Fri, 27 Dec 96 17:22:54 +0100 Message-Id: Lines: 47 X-Mailer: Gnus v5.3/Emacs 19.34 >>>>> "CL" == Carlos Linares writes: CL> * Sometimes I've found messages that I don't understand at all CL> (what's about 'Mach'?) CLISP includes some support for memory allocation primitives provided by the Mach microkernel; so "Mach" would remain as is. CL> * Other terms are very difficult to translate CL> (for instance, what's a multihop?). That's a system-call diagnostic code. Here's what the Solaris 2.5.1 manpage (man -s 2 intro) has to say: 74 EMULTIHOP Multihop attempted This error is RFS specific. It occurs when users try to access remote resources which are not directly accessible. CL> * If the messages will be seen in Spanish but *all* the commands CL> remain in english, what about yes-or-no-p? (for instance). If I write: > (yes-or-no-p) Please, answer yes or no: CL> .., what should be seen in Spanish? > (yes-or-no-p) Por favor, responda yes(si) o no(no): CL> Hmmmm, it doesn't look well! :( Then, I ought to modify certain CL> parts of the code and add a new option to the #L directive CL> (ESPAÑOL). If simple lexical substitution following the CLISP code as it is results in awkward Spanish, just tell me how you would like it to look, and I'll make the changes (or if it is easier, hack it yourself and I'll tweak it afterward if necessary). CL> I need to know if you would maintain such changes, ... Absolutely! CL> Consider that I've translated 522 messages of 1300!! Wow!!!! From rkirchne@phobos.mathcs.carleton.edu Mon Dec 30 17:56:09 1996 Return-Path: Received: from nz11.rz.uni-karlsruhe.de by ma2s2.mathematik.uni-karlsruhe.de (4.1/SMI-4.0) id AA22493; Mon, 30 Dec 96 17:56:09 +0100 Received: from phobos.mathcs.carleton.edu (actually MathCS.Carleton.edu) by nz11.rz.uni-karlsruhe.de with SMTP (PP); Mon, 30 Dec 1996 17:45:33 +0100 Received: from hamming.mathcs.carleton.edu by phobos.mathcs.carleton.edu (8.6.12/NX3.0M) id KAA13891; Mon, 30 Dec 1996 10:39:01 -0600 From: Roger Kirchner Message-Id: <199612301639.KAA13891@phobos.mathcs.carleton.edu> Received: by hamming.mathcs.carleton.edu (8.6.12/NX3.0X) id KAA15767; Mon, 30 Dec 1996 10:38:56 -0600 Subject: versions of .fas files To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de Date: Mon, 30 Dec 1996 10:38:54 -0600 (CST) Cc: rkirchne@phobos.mathcs.carleton.edu (Roger Kirchner) In-Reply-To: from "Marcus Daniels" at Dec 27, 96 06:08:12 pm X-Mailer: ELM [version 2.4 PL23] Content-Type: text Content-Length: 606 I compiled the same clisp source (1996-5-30) on m68k and i386 NeXTs and find that the two clisps produce incompatible .fas files. A clispm68k .fas files begins with (SYSTEM::VERSION '(SYSTEM::CLISP2 39. LISP:T 130695.)) and a clispi386 .fas begins with (SYSTEM::VERSION '(SYSTEM::CLISP2 18. LISP:NIL 130695.)) I get *** - This file was produced by another lisp version, must be recompiled. errors. I was hoping to be able to use the same .fas files from both either a black or white NeXT. Is there anyway to do that? I was able to build both black and white versions of Lisp.app. Roger Kirchner