clisp-cvs Digest, Vol 46, Issue 4

[<cli...@li...>]

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.7241,1.7242 condition.lisp,1.102,1.103
      (Sam Steingold)
   2. clisp/tests ChangeLog,1.647,1.648 conditions.tst,1.52,1.53
      (Sam Steingold)


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

Message: 1
Date: Thu, 11 Feb 2010 19:47:43 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7241,1.7242 condition.lisp,1.102,1.103
To: cli...@li...
Message-ID: <E1N...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5455/src

Modified Files:
	ChangeLog condition.lisp 
Log Message:
(c-warning): do not concat (C-CURRENT-LOCATION)
to the FORMAT-STRING because the former may contain "~"
Reported by Gabriel Dos Reis <gd...@in...>


Index: condition.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/condition.lisp,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -d -r1.102 -r1.103
--- condition.lisp	2 Nov 2009 02:56:44 -0000	1.102
+++ condition.lisp	11 Feb 2010 19:47:41 -0000	1.103
@@ -1669,9 +1669,8 @@
 ;; for X3J13 Issue COMPILER-DIAGNOSTICS:USE-HANDLER
 (defun c-warning (type format-string &rest args)
   (let ((*error-output* *c-error-output*))
-    (apply #'warn-of-type type
-           (string-concat (c-current-location) format-string)
-           args)))
+    (apply #'warn-of-type type (string-concat "~A" format-string)
+           (c-current-location) args)))
 
 (defun c-cerror (location detail format-string &rest args)
   (let ((*error-output* *c-error-output*))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7241
retrieving revision 1.7242
diff -u -d -r1.7241 -r1.7242
--- ChangeLog	5 Feb 2010 20:23:42 -0000	1.7241
+++ ChangeLog	11 Feb 2010 19:47:41 -0000	1.7242
@@ -1,3 +1,9 @@
+2010-02-11  Sam Steingold  <sd...@gn...>
+
+	* condition.lisp (c-warning): do not concat (C-CURRENT-LOCATION)
+	to the FORMAT-STRING because the former may contain "~"
+	Reported by Gabriel Dos Reis <gd...@in...>
+
 2010-02-05  Sam Steingold  <sd...@gn...>
 
 	* makemake.in (build-aux): when LN_S is "cp", use "cp -r"




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

Message: 2
Date: Thu, 11 Feb 2010 19:47:43 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests ChangeLog,1.647,1.648 conditions.tst,1.52,1.53
To: cli...@li...
Message-ID: <E1N...@sf...>

Update of /cvsroot/clisp/clisp/tests
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5455/tests

Modified Files:
	ChangeLog conditions.tst 
Log Message:
(c-warning): do not concat (C-CURRENT-LOCATION)
to the FORMAT-STRING because the former may contain "~"
Reported by Gabriel Dos Reis <gd...@in...>


Index: conditions.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/conditions.tst,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- conditions.tst	30 Sep 2007 05:32:43 -0000	1.52
+++ conditions.tst	11 Feb 2010 19:47:41 -0000	1.53
@@ -545,6 +545,15 @@
     (read-from-string ",1")))
 T
 
+;; <http://article.gmane.org/gmane.lisp.clisp.devel/21281>
+(block nil
+  (handler-bind ((style-warning
+                  (lambda (c)
+                    (princ-error c)
+                    (return t))))
+    (defun test~ (b $) #+clisp (declare (compile)) (cond (b nil) (t t)))))
+T
+
 ;; process-declarations is not called in interpreted code
 (let (bad)
   (declare (optimize safety))
@@ -565,3 +574,14 @@
       (push tp bad))))
 NIL
 
+(progn ; Clean up.
+  (symbol-cleanup 'my-cpl)
+  (symbol-cleanup 'check-superclasses)
+  (symbol-cleanup 'test)
+  (symbol-cleanup 'test2)
+  (symbol-cleanup 'test3)
+  (symbol-cleanup 'test4)
+  (symbol-cleanup 'test5)
+  (symbol-cleanup 'test6)
+  (symbol-cleanup 'test~))
+T

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.647
retrieving revision 1.648
diff -u -d -r1.647 -r1.648
--- ChangeLog	28 Jan 2010 15:46:05 -0000	1.647
+++ ChangeLog	11 Feb 2010 19:47:41 -0000	1.648
@@ -1,3 +1,7 @@
+2010-02-11  Sam Steingold  <sd...@gn...>
+
+	* conditions.tst: test "~" in function names
+
 2010-01-28  Sam Steingold  <sd...@gn...>
 
 	* restarts.tst: fix bug #[ 2941408 ]: segfault after giving




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

------------------------------------------------------------------------------
SOLARIS 10 is the OS for Data Centers - provides features such as DTrace,
Predictive Self Healing and Award Winning ZFS. Get Solaris 10 NOW
http://p.sf.net/sfu/solaris-dev2dev

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

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


End of clisp-cvs Digest, Vol 46, Issue 4
****************************************