clisp-cvs Digest, Vol 27, Issue 40

View: New views
1 Messages — Rating Filter:   Alert me  

clisp-cvs Digest, Vol 27, Issue 40

by clisp-cvs-request :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

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

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
        clisp-cvs-request@...

You can reach the person managing the list at
        clisp-cvs-owner@...

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.6417,1.6418 stream.d,1.613,1.614
      (Sam Steingold)
   2. clisp/src ChangeLog,1.6418,1.6419 time.d,1.64,1.65 (Sam Steingold)
   3. clisp/utils clispload.lsp,1.57,1.58 (Sam Steingold)
   4. clisp/src ChangeLog, 1.6419, 1.6420 NEWS, 1.475, 1.476
      debug.d, 1.119, 1.120 lispbibl.d, 1.804, 1.805 room.lisp, 1.6,
      1.7 time.d, 1.65, 1.66 (Sam Steingold)
   5. clisp/doc impbody.xml,1.525,1.526 (Sam Steingold)
   6. clisp/src ChangeLog,1.6420,1.6421 spvw_sigsegv.d,1.26,1.27
      (Sam Steingold)
   7. clisp/utils clispload.lsp,1.58,1.59 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Tue, 22 Jul 2008 17:03:12 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6417,1.6418 stream.d,1.613,1.614
To: clisp-cvs@...
Message-ID: <E1KLLGb-0001uA-Tx@...>

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

Modified Files:
        ChangeLog stream.d
Log Message:
(MAKE-PIPE-IO-STREAM): use STACK_to_mv instead of L(values)


Index: stream.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/stream.d,v
retrieving revision 1.613
retrieving revision 1.614
diff -u -d -r1.613 -r1.614
--- stream.d 21 Jul 2008 21:00:56 -0000 1.613
+++ stream.d 22 Jul 2008 17:03:07 -0000 1.614
@@ -13193,7 +13193,7 @@
   /* 3 values:
    (make-two-way-stream input-stream output-stream), input-stream, output-stream. */
   STACK_2 = make_twoway_stream(STACK_1,STACK_0);
-  funcall(L(values),3);
+  STACK_to_mv(3);
   skipSTACK(4);
 }
 

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6417
retrieving revision 1.6418
diff -u -d -r1.6417 -r1.6418
--- ChangeLog 22 Jul 2008 17:02:21 -0000 1.6417
+++ ChangeLog 22 Jul 2008 17:03:06 -0000 1.6418
@@ -1,6 +1,7 @@
 2008-07-22  Sam Steingold  <sds@...>
 
  * eval.d (SUBR-INFO): use STACK_to_mv instead of L(values)
+ * stream.d (MAKE-PIPE-IO-STREAM): ditto
 
 2008-07-22  Sam Steingold  <sds@...>
 




------------------------------

Message: 2
Date: Tue, 22 Jul 2008 17:04:21 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6418,1.6419 time.d,1.64,1.65
To: clisp-cvs@...
Message-ID: <E1KLLHj-0002Wh-Ly@...>

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

Modified Files:
        ChangeLog time.d
Log Message:
(%%TIME): use STACK_to_mv instead of L(values)


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6418
retrieving revision 1.6419
diff -u -d -r1.6418 -r1.6419
--- ChangeLog 22 Jul 2008 17:03:06 -0000 1.6418
+++ ChangeLog 22 Jul 2008 17:04:18 -0000 1.6419
@@ -2,6 +2,7 @@
 
  * eval.d (SUBR-INFO): use STACK_to_mv instead of L(values)
  * stream.d (MAKE-PIPE-IO-STREAM): ditto
+ * time.d (%%TIME): ditto
 
 2008-07-22  Sam Steingold  <sds@...>
 

Index: time.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/time.d,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- time.d 22 Apr 2008 17:31:33 -0000 1.64
+++ time.d 22 Jul 2008 17:04:19 -0000 1.65
@@ -835,7 +835,7 @@
  #endif
   /* last value: GC count */
   pushSTACK(fixnum(tm.gccount));
-  funcall(L(values),9);       /* return 9 values */
+  STACK_to_mv(9);               /* return 9 values */
 }
 
 /* (SYS::DELTA4 n1 n2 o1 o2 shift)




------------------------------

Message: 3
Date: Tue, 22 Jul 2008 17:10:28 +0000
From: Sam Steingold <sds@...>
Subject: clisp/utils clispload.lsp,1.57,1.58
To: clisp-cvs@...
Message-ID: <E1KLLNe-0000J3-GV@...>

Update of /cvsroot/clisp/clisp/utils
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv30604/utils

Modified Files:
        clispload.lsp
Log Message:
ROOM now prints some GC statistics and returns the same values as GC.


Index: clispload.lsp
===================================================================
RCS file: /cvsroot/clisp/clisp/utils/clispload.lsp,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- clispload.lsp 22 Jul 2008 15:26:53 -0000 1.57
+++ clispload.lsp 22 Jul 2008 17:10:25 -0000 1.58
@@ -145,10 +145,6 @@
   SYNTAX.SHARP-A.4 SYNTAX.SHARP-A.6 SYNTAX.SHARP-A.7 SYNTAX.SHARP-A.22
   SYNTAX.SHARP-A.23
 
-  ;; Paul Dietz assumes that (ROOM NIL) prints non-empty information.
-  ;; In CLISP, it prints an empty information and returns some values.
-  ROOM.2
-
   ;; The interaction between TRACE and generic functions needs to be fixed.
   TRACE.13 TRACE.14
 




------------------------------

Message: 4
Date: Tue, 22 Jul 2008 17:10:28 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog, 1.6419, 1.6420 NEWS, 1.475, 1.476
        debug.d, 1.119, 1.120 lispbibl.d, 1.804, 1.805 room.lisp, 1.6, 1.7
        time.d, 1.65, 1.66
To: clisp-cvs@...
Message-ID: <E1KLLNo-0000Pu-7j@...>

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

Modified Files:
        ChangeLog NEWS debug.d lispbibl.d room.lisp time.d
Log Message:
ROOM now prints some GC statistics and returns the same values as GC.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6419
retrieving revision 1.6420
diff -u -d -r1.6419 -r1.6420
--- ChangeLog 22 Jul 2008 17:04:18 -0000 1.6419
+++ ChangeLog 22 Jul 2008 17:10:23 -0000 1.6420
@@ -1,5 +1,12 @@
 2008-07-22  Sam Steingold  <sds@...>
 
+ * debug.d (%ROOM): additionally return gc_count, gc_space, gc_time
+ * lispbibl.d (internal_time_to_I): declare extern
+ * time.d (internal_time_to_I): make global
+ * room.lisp (room): return the same values as gc, print gc stats
+
+2008-07-22  Sam Steingold  <sds@...>
+
  * eval.d (SUBR-INFO): use STACK_to_mv instead of L(values)
  * stream.d (MAKE-PIPE-IO-STREAM): ditto
  * time.d (%%TIME): ditto

Index: debug.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/debug.d,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -d -r1.119 -r1.120
--- debug.d 10 Jul 2008 15:07:19 -0000 1.119
+++ debug.d 22 Jul 2008 17:10:24 -0000 1.120
@@ -1553,18 +1553,25 @@
 }
 
 LISPFUNN(proom,0)
-{ /* (SYSTEM::%ROOM), returns 3 values:
+{ /* (SYSTEM::%ROOM), returns 6 values:
      - room occupied by LISP-objects
      - room free for LISP-objects
      - room statically occupied by LISP-objects
+     - GC count
+     - total space freed by GC
+     - total time spent in GC
      do it in more detail at SPVW_PAGES?? */
-  var uintM n1 = used_space();
-  var uintM n2 = free_space();
-  var uintM n3 = static_space();
-  pushSTACK(uintM_to_I(n1));
-  pushSTACK(uintM_to_I(n2));
-  pushSTACK(uintM_to_I(n3));
-  STACK_to_mv(3);
+  pushSTACK(uintM_to_I(used_space()));
+  pushSTACK(uintM_to_I(free_space()));
+  pushSTACK(uintM_to_I(static_space()));
+  pushSTACK(UL_to_I(gc_count));
+ #ifdef intQsize
+  pushSTACK(UQ_to_I(gc_space));
+ #else
+  pushSTACK(UL2_to_I(gc_space));
+ #endif
+  pushSTACK(internal_time_to_I(&gc_time));
+  STACK_to_mv(6);
 }
 
 LISPFUN(gc,seclass_default,0,1,norest,nokey,0,NIL)

Index: time.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/time.d,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- time.d 22 Jul 2008 17:04:19 -0000 1.65
+++ time.d 22 Jul 2008 17:10:25 -0000 1.66
@@ -282,11 +282,11 @@
   tm->gcfreed = gc_space;
 }
 
-#if TIME_METHOD == 2
 /* Converts an internal_time_t to a Lisp integer.
  internal_time_to_I(&it) */
-local object internal_time_to_I (const internal_time_t* tp)
+global object internal_time_to_I (const internal_time_t* tp)
 {
+#if TIME_METHOD == 2
  #ifdef TIME_UNIX
   /* Convert to microseconds: tp->tv_sec * ticks_per_second + tp->tv_usec */
   #ifdef intQsize
@@ -302,8 +302,12 @@
  #ifdef TIME_WIN32
   return L2_to_I(tp->dwHighDateTime,tp->dwLowDateTime);
  #endif
-}
+#elif TIME_METHOD = 1
+  return UL_to_I(*tp);
+#else
+#error internal_time_to_I: invalid TIME_METHOD
 #endif
+}
 
 LISPFUNNR(get_internal_real_time,0)
 { /* (GET-INTERNAL-REAL-TIME), CLTL p. 446 */

Index: room.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/room.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- room.lisp 21 Oct 2004 11:18:39 -0000 1.6
+++ room.lisp 22 Jul 2008 17:10:25 -0000 1.7
@@ -15,13 +15,12 @@
 (defun room (&optional (kind :default))
   (unless (or (eq kind 'nil) (eq kind ':default) (eq kind 't))
     (error (TEXT "~S: argument must be ~S, ~S or ~S, not ~S")
-           'room 'nil 't ':default kind
-  ) )
-  ; Get the figures now, because (heap-statistics) causes heap allocation.
-  (multiple-value-bind (used room static) (sys::%room)
+           'room 'nil 't ':default kind))
+  ;; Get the figures now, because (heap-statistics) causes heap allocation.
+  (multiple-value-bind (used room static gc-count gc-space gc-time) (sys::%room)
     (when (eq kind 't)
       (let ((stat (heap-statistics)))
-        ; stat = #( ... (classname num-instances . num-bytes) ...)
+        ;; stat = #( ... (classname num-instances . num-bytes) ...)
         (setq stat (sort stat #'> :key #'cddr))
         (let* ((localinfo (localized 'room-format))
                (header-line (first localinfo))
@@ -42,27 +41,27 @@
                 (prin1 classname)
                 (format t data-line midcol
                           instances bytes
-                          (/ (float bytes 0d0) instances)
-                )
+                          (/ (float bytes 0d0) instances))
                 (incf total-instances instances)
-                (incf total-bytes bytes)
-          ) ) )
+                (incf total-bytes bytes))))
           (format t separator-line midcol)
-          (write-string (TEXT "Total")
-          )
+          (write-string (TEXT "Total"))
           (format t data-line midcol
                     total-instances total-bytes
-                    (/ (float total-bytes 0d0) total-instances)
-          )
-    ) ) )
+                    (/ (float total-bytes 0d0) total-instances)))))
+    (terpri)
     (unless (eq kind 'nil)
-      (terpri)
-      (format t (TEXT "Bytes permanently allocated:   ~9D~%Bytes currently in use:        ~9D~%Bytes available until next GC: ~9D")
-                static used room)
-      (terpri)
-    )
-    (values used room)
-) )
+      (format t (TEXT "Number of garbage collections: ~12:D~%~
+                       Bytes freed by GC:             ~12:D~%~
+                       Time spent in GC:              ~12:D")
+              gc-count gc-space gc-time)
+      (terpri))
+    (format t (TEXT "Bytes permanently allocated:   ~12:D~%~
+                     Bytes currently in use:        ~12:D~%~
+                     Bytes available until next GC: ~12:D")
+            static used room)
+    (terpri)
+    (values used room static gc-count gc-space gc-time)))
 
 ;;-----------------------------------------------------------------------------
 ;; SPACE

Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.475
retrieving revision 1.476
diff -u -d -r1.475 -r1.476
--- NEWS 22 Jul 2008 03:02:21 -0000 1.475
+++ NEWS 22 Jul 2008 17:10:24 -0000 1.476
@@ -18,6 +18,9 @@
   attack whereas CLISP would not start if a file with a name
   incompatible with *PATHNAME-ENCODING* is present in USER-HOMEDIR-PATHNAME.
 
+* ROOM now prints some GC statistics and returns the same values as GC.
+  See <http://clisp.cons.org/impnotes/environment-enq.html#room> for details.
+
 * Bug fixes:
   + Comparison of floats and rationals never underflows. [ 2014262 ]
   + When failing to convert a huge LONG-FLOAT to a RATIONAL, signal an

Index: lispbibl.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v
retrieving revision 1.804
retrieving revision 1.805
diff -u -d -r1.804 -r1.805
--- lispbibl.d 22 Jul 2008 16:07:19 -0000 1.804
+++ lispbibl.d 22 Jul 2008 17:10:24 -0000 1.805
@@ -8766,6 +8766,11 @@
 extern void get_running_times (timescore_t*);
 /* is used by TIME */
 
+/* Converts an internal_time_t to a Lisp integer.
+ internal_time_to_I(&it) */
+extern object internal_time_to_I (const internal_time_t* tp);
+/* used by TIME, DEBUG */
+
 /* UP: yields the run-time
  get_running_time(runtime);
  < runtime: Run-time (in Ticks) */




------------------------------

Message: 5
Date: Tue, 22 Jul 2008 17:10:25 +0000
From: Sam Steingold <sds@...>
Subject: clisp/doc impbody.xml,1.525,1.526
To: clisp-cvs@...
Message-ID: <E1KLLO4-0000cA-7a@...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv30604/doc

Modified Files:
        impbody.xml
Log Message:
ROOM now prints some GC statistics and returns the same values as GC.


Index: impbody.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v
retrieving revision 1.525
retrieving revision 1.526
diff -u -d -r1.525 -r1.526
--- impbody.xml 21 Jul 2008 17:57:41 -0000 1.525
+++ impbody.xml 22 Jul 2008 17:10:22 -0000 1.526
@@ -5904,9 +5904,19 @@
 <para>The function <firstterm>&room;
   <indexterm id="room-func" significance="preferred">
    <primary><function>ROOM</function></primary></indexterm></firstterm>
-  returns two values: the number of bytes currently occupied by Lisp
-  objects, and the number of bytes that can be allocated before the next
-  regular &gc;ion occurs.</para>
+  returns five values:<orderedlist>
+  <listitem><simpara>space occupied by Lisp objects (in
+    bytes)</simpara></listitem>
+  <listitem><simpara>space available for allocating Lisp objects until
+    the next &gc;ion is triggered (in bytes)</simpara></listitem>
+  <listitem><simpara>space permanently allocated (in
+    bytes)</simpara></listitem>
+  <listitem><simpara>the number of times &gc;ion was done in this
+    &clisp; session</simpara></listitem>
+  <listitem><simpara>the cumulative space freed by all the &gc;ions in
+    this &clisp; session (in bytes)</simpara></listitem>
+  <listitem><simpara>the total time (in &internal-time-units-per-second;)
+    spent collecting garbage</simpara></listitem></orderedlist></para>
 </section>
 
 <section id="gc-sect"><title>Function <function>EXT:GC</function></title>
@@ -5914,11 +5924,7 @@
  <firstterm><link linkend="gc"><function>EXT:GC</function></link>
   <indexterm id="gc-func" significance="preferred">
    <primary><function>GC</function></primary></indexterm></firstterm>
- starts a global &gc;ion and returns three values:<orderedlist>
-  <listitem><simpara>room occupied by Lisp objects</simpara></listitem>
-  <listitem><simpara>room available for Lisp objects</simpara></listitem>
-  <listitem><simpara>room permanently allocated</simpara></listitem>
-</orderedlist></para>
+ starts a global &gc;ion and returns the same values as &room;.</para>
 <para>When the optional parameter is non-&nil; also invalidates
  just-in-time compiled objects.</para>
 </section>




------------------------------

Message: 6
Date: Tue, 22 Jul 2008 17:32:45 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6420,1.6421 spvw_sigsegv.d,1.26,1.27
To: clisp-cvs@...
Message-ID: <E1KLLjE-0000us-O2@...>

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

Modified Files:
        ChangeLog spvw_sigsegv.d
Log Message:
(print_mem_stats): also print a timescore_t


Index: spvw_sigsegv.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw_sigsegv.d,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- spvw_sigsegv.d 25 May 2008 09:11:40 -0000 1.26
+++ spvw_sigsegv.d 22 Jul 2008 17:32:43 -0000 1.27
@@ -20,6 +20,37 @@
 
 #if defined(GENERATIONAL_GC) || defined(NOCOST_SP_CHECK)
 local void print_mem_stats (void) {
+  var timescore_t tm;
+  get_running_times(&tm);
+  fprintf(stderr,GETTEXTL("GC count: %lu"),tm.gccount);
+  fputs("\n",stderr);
+  fputs(GETTEXTL("Space collected by GC:"),stderr);
+ #if defined(intQsize)
+  fprintf(stderr," %lu",tm.gcfreed);
+ #else
+  fprintf(stderr," %lu %lu",tm.gcfreed.hi,tm.gcfreed.lo);
+ #endif
+  fputs("\n",stderr);
+#if TIME_METHOD == 1
+ #define PRINT_INTERNAL_TIME(t) fprintf(stderr," %lu",t)
+#elif  TIME_METHOD == 2
+ #if defined(TIME_UNIX)
+  #define PRINT_INTERNAL_TIME(t) fprintf(stderr," %lu %lu",t.tv_sec,t.tv_usec)
+ #elif defined(TIME_WIN32)
+  #define PRINT_INTERNAL_TIME(t) fprintf(stderr," %lu %lu",t.dwHighDateTime,t.dwLowDateTime)
+ #else
+  #error print_mem_stats: TIME_METHOD == 2
+ #endif
+#else
+ #error print_mem_stats: TIME_METHOD == ???
+#endif
+  fputs(GETTEXTL("Run time:"),stderr);
+  PRINT_INTERNAL_TIME(tm.runtime); fputs("\n",stderr);
+  fputs(GETTEXTL("Real time:"),stderr);
+  PRINT_INTERNAL_TIME(tm.realtime); fputs("\n",stderr);
+  fputs(GETTEXTL("GC time:"),stderr);
+  PRINT_INTERNAL_TIME(tm.gctime); fputs("\n",stderr);
+ #undef PRINT_INTERNAL_TIME
   fprintf(stderr,GETTEXTL("Permanently allocated: %lu bytes."),
           (unsigned long) static_space());
   fputs("\n",stderr);

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6420
retrieving revision 1.6421
diff -u -d -r1.6420 -r1.6421
--- ChangeLog 22 Jul 2008 17:10:23 -0000 1.6420
+++ ChangeLog 22 Jul 2008 17:32:43 -0000 1.6421
@@ -1,5 +1,9 @@
 2008-07-22  Sam Steingold  <sds@...>
 
+ * spvw_sigsegv.d (print_mem_stats): also print a timescore_t
+
+2008-07-22  Sam Steingold  <sds@...>
+
  * debug.d (%ROOM): additionally return gc_count, gc_space, gc_time
  * lispbibl.d (internal_time_to_I): declare extern
  * time.d (internal_time_to_I): make global




------------------------------

Message: 7
Date: Tue, 22 Jul 2008 18:13:36 +0000
From: Sam Steingold <sds@...>
Subject: clisp/utils clispload.lsp,1.58,1.59
To: clisp-cvs@...
Message-ID: <E1KLMMj-00008X-UY@...>

Update of /cvsroot/clisp/clisp/utils
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv21689/utils

Modified Files:
        clispload.lsp
Log Message:
1.57 was too aggressive


Index: clispload.lsp
===================================================================
RCS file: /cvsroot/clisp/clisp/utils/clispload.lsp,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- clispload.lsp 22 Jul 2008 17:10:25 -0000 1.58
+++ clispload.lsp 22 Jul 2008 18:13:33 -0000 1.59
@@ -133,8 +133,10 @@
   ;; CLISP treats all gap types equally.
   FORMAT.JUSTIFY.8
 
-  ;; CLISP bugs
-  FORMATTER.COND.14 |FORMATTER.COND:.7|
+  ;; Paul Dietz assumes that FORMAT ~V[ consumes two arguments.
+  ;; However, ANSI CL 22.3.7.2. says that "the parameter is used instead of
+  ;; an argument"; so only one argument is consumed (by the V, not by ~[).
+  FORMAT.COND.14 FORMATTER.COND.14 |FORMAT.COND:.7| |FORMATTER.COND:.7|
 
   ;; Paul Dietz assumes that the reader constructs an array of element type T
   ;; for #1a"abcd" and #1a#*000110. This could be what ANSI CL 2.4.8.12 is
@@ -202,7 +204,8 @@
   FORMAT./.12 FORMAT./.13 FORMAT./.14 FORMAT./.15 FORMAT./.16 FORMAT./.17
   FORMAT./.18 |FORMAT.:T.5| |FORMAT.:T.5A| |FORMAT.:T.7| |FORMAT.:T.8|
   |FORMAT.:T.9| |FORMAT.:T.10| |FORMAT.:T.12| |FORMAT.:T.ERROR.1|
-  |FORMAT.:T.ERROR.2| |FORMAT.:T.ERROR.3| |FORMAT.:@T.2| |FORMAT.:@T.3|
+  |FORMAT.:T.ERROR.2| |FORMAT.:T.ERROR.3| |FORMAT.:@T.1| |FORMAT.:@T.1A|
+  |FORMAT.:@T.1B| |FORMAT.:@T.1C| |FORMAT.:@T.1D| |FORMAT.:@T.2| |FORMAT.:@T.3|
   |FORMAT.:@T.4| |FORMAT.:@T.5| FORMAT.JUSTIFY.ERROR.W.1
   FORMAT.JUSTIFY.ERROR.W.2 FORMAT.JUSTIFY.ERROR.W.3 FORMAT.JUSTIFY.ERROR._.1
   FORMAT.JUSTIFY.ERROR._.2 FORMAT.JUSTIFY.ERROR._.3 FORMAT.JUSTIFY.ERROR.I.1




------------------------------

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/

------------------------------

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


End of clisp-cvs Digest, Vol 27, Issue 40
*****************************************

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel
LightInTheBox - Buy quality products at wholesale price