clisp-cvs digest, Vol 1 #354 - 23 msgs

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. "clisp/src ChangeLog,1.2566,1.2567" (sd...@us...)
   2. "clisp/modules/pcre cpcre.c,1.5,1.6 configure.in,1.1,1.2" (sd...@us...)
   3. "clisp/modules/pcre configure,1.1,1.2 config.h.in,1.1,1.2" (sd...@us...)
   4. "clisp/modules/pcre cpcre.c,1.6,1.7" (sd...@us...)
   5. "clisp/src makemake.in,1.398,1.399 ChangeLog,1.2567,1.2568" (sd...@us...)
   6. "clisp/modules/berkeley-db dbi.lisp,1.1,1.2" (sd...@us...)
   7. "clisp/src ChangeLog,1.2568,1.2569" (sd...@us...)
   8. "clisp clisp.spec,1.26,1.27" (sd...@us...)
   9. "clisp SUMMARY,1.16,1.17" (sd...@us...)
  10. "clisp/tests streams.tst,1.12,1.13" (sd...@us...)
  11. "clisp/src stream.d,1.399,1.400 ChangeLog,1.2569,1.2570" (sd...@us...)
  12. "clisp/tests strings.tst,1.11,1.12" (sd...@us...)
  13. "clisp/src error.d,1.87,1.88 charstrg.d,1.91,1.92 ChangeLog,1.2570,1.2571" (sd...@us...)
  14. "clisp/src stream.d,1.399,1.400" (sd...@us...)
  15. "clisp/tests streams.tst,1.13,1.14" (sd...@us...)
  16. "clisp/src stream.d,1.400,1.401 ChangeLog,1.2571,1.2572" (sd...@us...)
  17. "clisp/tests streams.tst,1.14,1.15" (sd...@us...)
  18. "clisp/src macros2.lisp,1.16,1.17 ChangeLog,1.2572,1.2573" (sd...@us...)
  19. "clisp/tests clos.tst,1.31,1.32" (sd...@us...)
  20. "clisp/src clos.lisp,1.63,1.64 ChangeLog,1.2573,1.2574" (sd...@us...)
  21. "clisp/tests streams.tst,1.15,1.16" (sd...@us...)
  22. "clisp/src stream.d,1.401,1.402 ChangeLog,1.2574,1.2575" (sd...@us...)
  23. "clisp/src stream.d,1.401,1.402" (sd...@us...)

--__--__--

Message: 1
From: sd...@us...
To: cli...@li...
Subject: "clisp/src ChangeLog,1.2566,1.2567"
Date: Wed, 11 Feb 2004 11:30:52 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3848/src

Modified Files:
	ChangeLog 
Log Message:
<pcre.h> may be actually <pcre/pcre.h>


Couldn't generate diff; no version number found in filespec: ChangeLog,1.2566,1.2567"


--__--__--

Message: 2
From: sd...@us...
To: cli...@li...
Subject: "clisp/modules/pcre cpcre.c,1.5,1.6 configure.in,1.1,1.2"
Date: Wed, 11 Feb 2004 11:30:52 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/modules/pcre
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3848/modules/pcre

Modified Files:
	cpcre.c configure.in 
Log Message:
<pcre.h> may be actually <pcre/pcre.h>


Index: cpcre.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/pcre/cpcre.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6

--- cpcre.c	16 Jan 2004 16:54:39 -0000	1.5
+++ cpcre.c	11 Feb 2004 19:30:50 -0000	1.6
@@ -6,7 +6,13 @@
  */
 
 #include "config.h"
-#include <pcre.h>
+#if defined(HAVE_PCRE_H)
+# include <pcre.h>
+#elif defined(HAVE_PCRE_PCRE_H)
+# include <pcre/pcre.h>
+#else
+# error No PCRE headers!
+#endif
 
 #include "clisp.h"
 
@@ -17,6 +23,10 @@
 #error to CFLAGS make variable and rebuild CLISP before coming back here.
 #endif
 
+#if defined(STDC_HEADERS)
+# include <string.h>            /* for memcpy(3) */
+#endif
+
 DEFMODULE(pcre,"PCRE");
 
 DEFUN(PCRE::PCRE-VERSION,)

Couldn't generate diff; no version number found in filespec: configure.in,1.1,1.2"


--__--__--

Message: 3
From: sd...@us...
To: cli...@li...
Subject: "clisp/modules/pcre configure,1.1,1.2 config.h.in,1.1,1.2"
Date: Wed, 11 Feb 2004 11:31:18 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/modules/pcre
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4028/modules/pcre

Modified Files:
	configure config.h.in 
Log Message:
regenerated


Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/pcre/configure,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- configure	15 Dec 2003 22:35:19 -0000	1.1
+++ configure	11 Feb 2004 19:31:15 -0000	1.2
@@ -2728,7 +2728,8 @@
 
 
 
-for ac_header in pcre.h
+
+for ac_header in pcre.h pcre/pcre.h
 do
 as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh`
 if eval "test \"\${$as_ac_Header+set}\" = set"; then
@@ -2872,13 +2873,13 @@
   cat >>confdefs.h <<_ACEOF
 #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
-
+ break
 fi
 
 done
 
-if test "$ac_cv_header_pcre_h" = "no"; then
-  { { echo "$as_me:$LINENO: error: cannot find PCRE headers" >&5
+if test "$ac_cv_header_pcre_h" = "no" -a "$ac_cv_header_pcre_pcre_h" = "no";
+then { { echo "$as_me:$LINENO: error: cannot find PCRE headers" >&5
 echo "$as_me: error: cannot find PCRE headers" >&2;}
    { (exit 1); exit 1; }; }
 fi

Couldn't generate diff; no version number found in filespec: config.h.in,1.1,1.2"


--__--__--

Message: 4
From: sd...@us...
To: cli...@li...
Subject: "clisp/modules/pcre cpcre.c,1.6,1.7"
Date: Wed, 11 Feb 2004 13:26:28 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/modules/pcre
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1032

Modified Files:
	cpcre.c 
Log Message:
(pcre_error): PCRE_ERROR_BADUTF8_OFFSET might not be defined


Couldn't generate diff; no version number found in filespec: cpcre.c,1.6,1.7"


--__--__--

Message: 5
From: sd...@us...
To: cli...@li...
Subject: "clisp/src makemake.in,1.398,1.399 ChangeLog,1.2567,1.2568"
Date: Wed, 11 Feb 2004 13:28:28 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1504/src

Modified Files:
	makemake.in ChangeLog 
Log Message:
fixed cygwin package creation
(VERSION, CLISP_VERSION, CLISP_RELEASE): new make variables
(setup.hint): mention $(MODULES) and allow testing releases


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.398
retrieving revision 1.399
diff -u -d -r1.398 -r1.399
--- makemake.in	5 Feb 2004 20:49:04 -0000	1.398
+++ makemake.in	11 Feb 2004 21:28:24 -0000	1.399
@@ -1,7 +1,7 @@
 # -*- coding: utf-8; mode: shell-script -*-
 # Creation of the Makefile used for compiling CLISP
-# Bruno Haible 1991-2003
-# Sam Steingold 1999-2003
+# Bruno Haible 1991-2004
+# Sam Steingold 1999-2004
 
 # Simple usage:
 #        ./makemake [--with-PACKAGE] [debug] > Makefile
@@ -1494,6 +1494,8 @@
   esac
 fi
 
+echol "VERSION="`cat VERSION`
+echol "CLISP_VERSION=clisp-\$(VERSION)"
 echol '# Directories used by "make install":'
 echol "prefix = ${PREFIX}"
 echol "exec_prefix = ${EXEC_PREFIX}"
@@ -1506,7 +1508,7 @@
     echol "lispdocdir = \$(docdir)${NEXT_}packages${NEXT_}clisp"
     ;;
   redhat)
-    echol "lispdocdir = \$(docdir)${NEXT_}clisp-\`cat ${SRCDIR}VERSION\`"
+    echol "lispdocdir = \$(docdir)${NEXT_}\$(CLISP_VERSION)"
     ;;
   debian | gnu_ext | *bsd)
     echol "lispdocdir = \$(docdir)${NEXT_}clisp"
@@ -1869,7 +1871,7 @@
   echol "unixconf.h : unixconf.h.in config.status"
   echotab "sh config.status --header=unixconf.h"
   echol
-  echol "Makefile : makemake"
+  echol "Makefile : makemake VERSION"
   echotab "$0$makemake_args > Makefile.tmp"
   echotab "\$(MV) Makefile Makefile~"
   echotab "\$(MV) Makefile.tmp Makefile"
@@ -3089,12 +3091,18 @@
 if [ ${HSYSOS} = cygwin ]; then
   echol "full/lisp.exe : full"
   echol
-  echol "setup.hint : full/lisp.exe"
-  echotab "echo 'sdesc: \"an ANSI Common Lisp implementation\"' > setup.hint"
+  echol "CLISP_RELEASE=1"
+  echol "setup.hint : " # full/lisp.exe
+  echotab "\$(RM) setup.hint"
+  echotab "if test \$(CLISP_RELEASE) != 1; then echo 'test: \$(VERSION)-\$(CLISP_RELEASE)' >> setup.hint; echo 'curr: \$(VERSION)-1' >> setup.hint; fi"
+  echotab "echo 'sdesc: \"an ANSI Common Lisp implementation\"' >> setup.hint"
   echotab "echo 'category: Devel Interpreters Math Shells' >> setup.hint"
   echotab 'REQ=''; for f in `cygcheck full/lisp.exe`; do echo "* "$$f; f=`cygpath -u $$f`; REQ=$${REQ}" "`cygcheck -f $$f|sed "s/-.*//"`; done; echo "="$${REQ}; echo "requires:"$${REQ} >> setup.hint'
   echotab "echo 'ldesc: \"' >> setup.hint"
   echotab "cat SUMMARY >> setup.hint"
+  echotab "echo >> setup.hint"
+  echotab "echo 'This binary distribution was built with the following modules:' >> setup.hint"
+  echotab "echo ' '\$(MODULES) >> setup.hint"
   echotab "echo '\"' >> setup.hint"
   echol
   echol "cygwin.README : setup.hint makemake"
@@ -3110,27 +3118,27 @@
   echotab "echo '' >> cygwin.README"
   echotab "cat SUMMARY >> cygwin.README"
   echol
-  CLISP_VERSION="clisp-\`cat VERSION\`"
-  CLISP_SCRIPT=${CLISP_VERSION}-1.sh
-  CLISP_CYGWIN=${CLISP_VERSION}-cygwin-`uname -r|sed 's/(.*)//g'`.tar.bz2
+  echol "CLISP_VR=\$(CLISP_VERSION)-\$(CLISP_RELEASE)"
+  echol "CLISP_SCRIPT=\$(CLISP_VR).sh"
+  echol "CLISP_CYGWIN=\$(CLISP_VERSION)-cygwin-"`uname -r|sed 's/(.*)//g'`.tar.bz2
   echol "DEST_TMP='`pwd`/.install'"
   echol "distrib : setup.hint cygwin.README force"
   echotab "\$(RMRF) \$(DEST_TMP); mkdir -p \$(DEST_TMP)"
   echotab "\$(MAKE) install prefix=/usr DESTDIR=\$(DEST_TMP)"
-  echotab "cd \$(DEST_TMP); tar cvfj ../${CLISP_CYGWIN} *"
-  echotab "ln ${CLISP_CYGWIN} ${CLISP_VERSION}-1.tar.bz2"
+  echotab "cd \$(DEST_TMP); tar cvfj ../\$(CLISP_CYGWIN) *"
+  echotab "ln \$(CLISP_CYGWIN) \$(CLISP_VR).tar.bz2"
   echotab "\$(RMRF) \$(DEST_TMP)"
   echol
-  echol "TAR_SRC=\"../../archives/${CLISP_VERSION}.tar.bz2\""
+  echol "TAR_SRC=\"../../archives/\$(CLISP_VERSION).tar.bz2\""
   echol "cygwin-src : setup.hint force"
-  echotab "touch ${CLISP_VERSION}-1.patch"
-  echotab "echo '#!/bin/sh' > ${CLISP_SCRIPT}"
-  echotab "echo './configure$makemake_args --build build-cygwin' >> ${CLISP_SCRIPT}"
-  echotab "echo 'cd build-cygwin' >> ${CLISP_SCRIPT}"
-  echotab "echo 'make distrib' >> ${CLISP_SCRIPT}"
-  echotab "ln -s \$(TAR_SRC) ${CLISP_VERSION}.tar.bz2"
-  echotab "tar cvfjh ${CLISP_VERSION}-1-src.tar.bz2 ${CLISP_VERSION}.tar.bz2 ${CLISP_SCRIPT} ${CLISP_VERSION}-1.patch setup.hint cygwin.README"
-  echotab "\$(RMRF) ${CLISP_VERSION}.tar.bz2 ${CLISP_SCRIPT} ${CLISP_VERSION}-1.patch"
+  echotab "touch \$(CLISP_VR).patch"
+  echotab "echo '#!/bin/sh' > \$(CLISP_SCRIPT)"
+  echotab "echo './configure$makemake_args --build build-cygwin' >> \$(CLISP_SCRIPT)"
+  echotab "echo 'cd build-cygwin' >> \$(CLISP_SCRIPT)"
+  echotab "echo 'make distrib' >> \$(CLISP_SCRIPT)"
+  echotab "ln -s \$(TAR_SRC) ."
+  echotab "tar cvfjh \$(CLISP_VR)-src.tar.bz2 \$(CLISP_VERSION).tar.bz2 \$(CLISP_SCRIPT) \$(CLISP_VR).patch setup.hint cygwin.README"
+  echotab "\$(RMRF) \$(CLISP_VERSION).tar.bz2 \$(CLISP_SCRIPT) \$(CLISP_VR).patch"
   echol
 elif [ ${HOS} = unix ] ; then   # but not cygwin!
 cat <<!!

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2567,1.2568"


--__--__--

Message: 6
From: sd...@us...
To: cli...@li...
Subject: "clisp/modules/berkeley-db dbi.lisp,1.1,1.2"
Date: Wed, 11 Feb 2004 13:34:18 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/modules/berkeley-db
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3043/modules/berkeley-db

Modified Files:
	dbi.lisp 
Log Message:
(with-open-db): do not pass environment to PARSE-BODY


Couldn't generate diff; no version number found in filespec: dbi.lisp,1.1,1.2"


--__--__--

Message: 7
From: sd...@us...
To: cli...@li...
Subject: "clisp/src ChangeLog,1.2568,1.2569"
Date: Wed, 11 Feb 2004 13:34:17 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3043/src

Modified Files:
	ChangeLog 
Log Message:
(with-open-db): do not pass environment to PARSE-BODY


Couldn't generate diff; no version number found in filespec: ChangeLog,1.2568,1.2569"


--__--__--

Message: 8
From: sd...@us...
To: cli...@li...
Subject: "clisp clisp.spec,1.26,1.27"
Date: Wed, 11 Feb 2004 14:31:30 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16853

Modified Files:
	clisp.spec 
Log Message:
(modules): use variable to list the modules in the package info and build


Couldn't generate diff; no version number found in filespec: clisp.spec,1.26,1.27"


--__--__--

Message: 9
From: sd...@us...
To: cli...@li...
Subject: "clisp SUMMARY,1.16,1.17"
Date: Wed, 11 Feb 2004 14:34:52 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17692

Modified Files:
	SUMMARY 
Log Message:
clisp now has all of CLOS


Couldn't generate diff; no version number found in filespec: SUMMARY,1.16,1.17"


--__--__--

Message: 10
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests streams.tst,1.12,1.13"
Date: Thu, 12 Feb 2004 13:08:22 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7962/tests

Modified Files:
	streams.tst 
Log Message:
(input_stream_p, output_stream_p): for SYNONYM-STREAMs,
return the value for the underlying stream


Couldn't generate diff; no version number found in filespec: streams.tst,1.12,1.13"


--__--__--

Message: 11
From: sd...@us...
To: cli...@li...
Subject: "clisp/src stream.d,1.399,1.400 ChangeLog,1.2569,1.2570"
Date: Thu, 12 Feb 2004 13:08:30 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7962/src

Modified Files:
	stream.d ChangeLog 
Log Message:
(input_stream_p, output_stream_p): for SYNONYM-STREAMs,
return the value for the underlying stream


Index: stream.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/stream.d,v
retrieving revision 1.399
retrieving revision 1.400
diff -u -d -r1.399 -r1.400
--- stream.d	20 Jan 2004 11:32:04 -0000	1.399
+++ stream.d	12 Feb 2004 21:08:20 -0000	1.400
@@ -959,21 +959,26 @@
   };
 }
 
+/* forward declaration */
+local object resolve_synonym_stream (object stream);
+
 # Function: Tests whether an object is an input-stream.
 # input_stream_p(stream)
 # > stream: object
-local inline bool input_stream_p (object stream) {
-  return (builtin_stream_p(stream) ?
-          (TheStream(stream)->strmflags & strmflags_rd_B) != 0
+local bool input_stream_p (object stream) {
+  return (builtin_stream_p(stream)
+          ? (TheStream(resolve_synonym_stream(stream))->strmflags
+             & strmflags_rd_B) != 0
           : instanceof(stream,O(class_fundamental_input_stream)));
 }
 
 # Function: Tests whether an object is an output-stream.
 # output_stream_p(stream)
 # > stream: object
-local inline bool output_stream_p (object stream) {
-  return (builtin_stream_p(stream) ?
-          (TheStream(stream)->strmflags & strmflags_wr_B) != 0
+local bool output_stream_p (object stream) {
+  return (builtin_stream_p(stream)
+          ? (TheStream(resolve_synonym_stream(stream))->strmflags
+             & strmflags_wr_B) != 0
           : instanceof(stream,O(class_fundamental_output_stream)));
 }
 

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2569,1.2570"


--__--__--

Message: 12
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests strings.tst,1.11,1.12"
Date: Thu, 12 Feb 2004 13:44:07 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15857/tests

Modified Files:
	strings.tst 
Log Message:
(VECTOR NIL) is a string, so #A(NIL (0)) is acceptable instead of ""


Couldn't generate diff; no version number found in filespec: strings.tst,1.11,1.12"


--__--__--

Message: 13
From: sd...@us...
To: cli...@li...
Subject: "clisp/src error.d,1.87,1.88 charstrg.d,1.91,1.92 ChangeLog,1.2570,1.2571"
Date: Thu, 12 Feb 2004 13:44:23 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15857/src

Modified Files:
	error.d charstrg.d ChangeLog 
Log Message:
(VECTOR NIL) is a string, so #A(NIL (0)) is acceptable instead of ""


Index: error.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/error.d,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- error.d	20 Jan 2004 11:32:03 -0000	1.87
+++ error.d	12 Feb 2004 21:44:05 -0000	1.88
@@ -908,6 +908,12 @@
  > obj: the erroneous argument */
 global object check_string (object obj) {
   while (!stringp(obj)) {
+    /* (VECTOR NIL) is a string, so #A(NIL (0)) is acceptable instead of "" */
+    if (vectorp(obj)
+        && (Array_type(obj) == Array_type_nilvector ||
+            Array_type(obj) == Array_type_snilvector)
+        && (vector_length(obj) == 0))
+      return O(empty_string);
     pushSTACK(NIL); /* no PLACE */
     pushSTACK(obj);       /* TYPE-ERROR slot DATUM */
     pushSTACK(S(string)); /* TYPE-ERROR slot EXPECTED-TYPE */

Index: charstrg.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/charstrg.d,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -d -r1.91 -r1.92
--- charstrg.d	5 Feb 2004 20:43:26 -0000	1.91
+++ charstrg.d	12 Feb 2004 21:44:05 -0000	1.92
@@ -2192,6 +2192,12 @@
     TheSstring(new_string)->data[0] = char_code(obj);
     return new_string;
   }
+  /* (VECTOR NIL) is a string, so #A(NIL (0)) is acceptable instead of "" */
+  if (vectorp(obj)
+      && (Array_type(obj) == Array_type_nilvector ||
+          Array_type(obj) == Array_type_snilvector)
+      && (vector_length(obj) == 0))
+    return O(empty_string);
   pushSTACK(NIL); /* no PLACE */
   pushSTACK(obj); /* TYPE-ERROR slot DATUM */
   pushSTACK(O(type_stringsymchar)); /* TYPE-ERROR slot EXPECTED-TYPE */

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2570,1.2571"


--__--__--

Message: 14
From: sd...@us...
To: cli...@li...
Subject: "clisp/src stream.d,1.399,1.400"
Date: Thu, 12 Feb 2004 14:28:58 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27370

Modified Files:
	stream.d 
Log Message:
(input_stream_p, output_stream_p): for SYNONYM-STREAMs,
return the value for the underlying stream


Couldn't generate diff; no version number found in filespec: stream.d,1.399,1.400"


--__--__--

Message: 15
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests streams.tst,1.13,1.14"
Date: Thu, 12 Feb 2004 14:41:40 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29868/tests

Modified Files:
	streams.tst 
Log Message:
(STREAM-EXTERNAL-FORMAT): handle empty BROADCAST-STREAMs


Couldn't generate diff; no version number found in filespec: streams.tst,1.13,1.14"


--__--__--

Message: 16
From: sd...@us...
To: cli...@li...
Subject: "clisp/src stream.d,1.400,1.401 ChangeLog,1.2571,1.2572"
Date: Thu, 12 Feb 2004 14:41:41 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29868/src

Modified Files:
	stream.d ChangeLog 
Log Message:
(STREAM-EXTERNAL-FORMAT): handle empty BROADCAST-STREAMs


Index: stream.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/stream.d,v
retrieving revision 1.400
retrieving revision 1.401
diff -u -d -r1.400 -r1.401
--- stream.d	12 Feb 2004 22:28:56 -0000	1.400
+++ stream.d	12 Feb 2004 22:41:38 -0000	1.401
@@ -14852,9 +14852,11 @@
      #endif
         VALUES1(TheStream(stream)->strm_encoding); break;
       case strmtype_broad:
-        pushSTACK(broadcast_stream_last(stream));
-        funcall(L(stream_external_format),1);
-        return;
+        stream = broadcast_stream_last(stream);
+        if (streamp(stream)) {
+          pushSTACK(stream); funcall(L(stream_external_format),1);
+          return;
+        } /* empty => FALLTHROUGH*/
       default:
         VALUES1(S(Kdefault)); break;
     }

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2571,1.2572"


--__--__--

Message: 17
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests streams.tst,1.14,1.15"
Date: Thu, 12 Feb 2004 14:43:20 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30343/tests

Modified Files:
	streams.tst 
Log Message:
(with-output-to-string): wrap declarations properly


Couldn't generate diff; no version number found in filespec: streams.tst,1.14,1.15"


--__--__--

Message: 18
From: sd...@us...
To: cli...@li...
Subject: "clisp/src macros2.lisp,1.16,1.17 ChangeLog,1.2572,1.2573"
Date: Thu, 12 Feb 2004 14:43:21 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30343/src

Modified Files:
	macros2.lisp ChangeLog 
Log Message:
(with-output-to-string): wrap declarations properly


Index: macros2.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/macros2.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- macros2.lisp	20 Jan 2004 11:32:09 -0000	1.16
+++ macros2.lisp	12 Feb 2004 22:43:18 -0000	1.17
@@ -298,7 +298,7 @@
            (PROGN ,element-type ,@(or body-rest '(NIL)))
            (CLOSE ,var)))
       `(LET ((,var (MAKE-STRING-OUTPUT-STREAM :ELEMENT-TYPE ,element-type)))
-         ,@declarations
+         (DECLARE ,@declarations)
          (UNWIND-PROTECT
            (PROGN ,@body-rest (GET-OUTPUT-STREAM-STRING ,var))
            (CLOSE ,var))))))

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2572,1.2573"


--__--__--

Message: 19
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests clos.tst,1.31,1.32"
Date: Thu, 12 Feb 2004 14:52:18 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32122/tests

Modified Files:
	clos.tst 
Log Message:
ensure that DEFMETHOD returns what is actually saved into GF
(standard-method): do not create a copier
(std-add-method): do not copy the method


Couldn't generate diff; no version number found in filespec: clos.tst,1.31,1.32"


--__--__--

Message: 20
From: sd...@us...
To: cli...@li...
Subject: "clisp/src clos.lisp,1.63,1.64 ChangeLog,1.2573,1.2574"
Date: Thu, 12 Feb 2004 14:52:18 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32122/src

Modified Files:
	clos.lisp ChangeLog 
Log Message:
ensure that DEFMETHOD returns what is actually saved into GF
(standard-method): do not create a copier
(std-add-method): do not copy the method


Index: clos.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos.lisp,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -d -r1.63 -r1.64
--- clos.lisp	9 Feb 2004 22:28:19 -0000	1.63
+++ clos.lisp	12 Feb 2004 22:52:16 -0000	1.64
@@ -1481,7 +1481,8 @@
 
 (defstruct (method (:predicate nil) (:copier nil) (:constructor nil)))
 
-(defstruct (standard-method (:include method) (:conc-name "STD-METHOD-")) ; (:print-object print-std-method)
+(defstruct (standard-method (:include method) (:conc-name "STD-METHOD-")
+                            (:copier nil)) ; (:print-object print-std-method)
   function               ; the function
   wants-next-method-p    ; flag, if the NEXT-METHOD (as function with all
                          ; arguments) resp. NIL is to be passed as first argument
@@ -2620,11 +2621,8 @@
 ;; Add a method to a generic function
 (defun std-add-method (gf method)
   (check-signature-congruence gf method)
-  ;; copy method, so that one can enter gf:
-  (when (std-method-wants-next-method-p method)
-    (setq method (copy-standard-method method))
-    (setf (std-method-function method) nil)
-    (setf (std-method-gf method) gf))
+  (setf (std-method-function method) nil
+        (std-method-gf method) gf)
   ;; determine function from initfunction:
   (when (null (std-method-function method))
     (let ((h (funcall (std-method-initfunction method) method)))

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2573,1.2574"


--__--__--

Message: 21
From: sd...@us...
To: cli...@li...
Subject: "clisp/tests streams.tst,1.15,1.16"
Date: Thu, 12 Feb 2004 16:13:50 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17419/tests

Modified Files:
	streams.tst 
Log Message:
(make_buffered_stream): :PROBE streams are closed right away


Couldn't generate diff; no version number found in filespec: streams.tst,1.15,1.16"


--__--__--

Message: 22
From: sd...@us...
To: cli...@li...
Subject: "clisp/src stream.d,1.401,1.402 ChangeLog,1.2574,1.2575"
Date: Thu, 12 Feb 2004 16:13:51 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17419/src

Modified Files:
	stream.d ChangeLog 
Log Message:
(make_buffered_stream): :PROBE streams are closed right away


Index: stream.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/stream.d,v
retrieving revision 1.401
retrieving revision 1.402
diff -u -d -r1.401 -r1.402
--- stream.d	12 Feb 2004 22:41:38 -0000	1.401
+++ stream.d	13 Feb 2004 00:13:48 -0000	1.402
@@ -7360,6 +7360,8 @@
   }
   # allocate Stream:
   var object stream = allocate_stream(flags,type,strm_channel_len,xlen);
+  if (direction == DIRECTION_PROBE) /* close stream right away */
+    TheStream(stream)->strmflags &= ~strmflags_open_B;
   # and fill:
   TheStream(stream)->strm_encoding = STACK_2;
   fill_pseudofuns_buffered(stream,eltype);

Couldn't generate diff; no version number found in filespec: ChangeLog,1.2574,1.2575"


--__--__--

Message: 23
From: sd...@us...
To: cli...@li...
Subject: "clisp/src stream.d,1.401,1.402"
Date: Fri, 13 Feb 2004 05:33:54 -0800
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31475/src

Modified Files:
	stream.d 
Log Message:
(make_buffered_stream): :PROBE streams are closed right away


Couldn't generate diff; no version number found in filespec: stream.d,1.401,1.402"



--__--__--

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest


