clisp-cvs Digest, Vol 43, Issue 6

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

clisp-cvs Digest, Vol 43, Issue 6

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.7192, 1.7193 compiler.lisp, 1.353,
      1.354 deprecated.lisp, 1.10, 1.11 (Sam Steingold)


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

Message: 1
Date: Thu, 05 Nov 2009 17:19:54 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog, 1.7192, 1.7193 compiler.lisp, 1.353,
        1.354 deprecated.lisp, 1.10, 1.11
To: clisp-cvs@...
Message-ID: <E1N6602-0005QI-EF@...>

Update of /cvsroot/clisp/clisp/src
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv20833/src

Modified Files:
        ChangeLog compiler.lisp deprecated.lisp
Log Message:
* compiler.lisp (note-function-used): use STYLE-WARNING for
deprecated functions because WARNING implies non-NIL 3rd return
value (failure-p) from COMPILE which is an overkill
* deprecated.lisp (type-expand-1): ditto


Index: deprecated.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/deprecated.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- deprecated.lisp 28 Oct 2009 15:38:01 -0000 1.10
+++ deprecated.lisp 5 Nov 2009 17:19:52 -0000 1.11
@@ -22,9 +22,9 @@
 #+compiler
 (define-compiler-macro type-expand-1 (typespec)
   (let ((ret `(type-expand ,typespec t)))
-    (c-warn "~s is deprecated and will be removed in a future release.
-Use ~s instead"
-            'type-expand-1 ret)
+    (c-style-warn "~S is deprecated and will be removed in a future release.
+Use ~S instead."
+                  'type-expand-1 ret)
     ret))
 
 ;; ------------------------------------------------

Index: compiler.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v
retrieving revision 1.353
retrieving revision 1.354
diff -u -d -r1.353 -r1.354
--- compiler.lisp 2 Nov 2009 02:56:44 -0000 1.353
+++ compiler.lisp 5 Nov 2009 17:19:52 -0000 1.354
@@ -3320,9 +3320,10 @@
     (when deprecation-info
       (if *compiling-from-file*
         (pushnew name *deprecated-functions* :test #'eq)
-        (apply #'c-warn (string-concat
-                         (TEXT "Function ~S is deprecated.") " ~@?")
-                        deprecation-info)))))
+        ;; WARNING implies non-NIL 3rd return value (failure-p) from COMPILE
+        (apply #'c-style-warn (string-concat
+                               (TEXT "Function ~S is deprecated.") " ~@?")
+               deprecation-info)))))
 
 ;; note global OPTIMIZE proclamations
 ;; used by c-PROCLAIM and PROCLAIM in control.d

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7192
retrieving revision 1.7193
diff -u -d -r1.7192 -r1.7193
--- ChangeLog 4 Nov 2009 22:10:13 -0000 1.7192
+++ ChangeLog 5 Nov 2009 17:19:51 -0000 1.7193
@@ -1,3 +1,10 @@
+2009-11-05  Sam Steingold  <sds@...>
+
+ * compiler.lisp (note-function-used): use STYLE-WARNING for
+ deprecated functions because WARNING implies non-NIL 3rd return
+ value (failure-p) from COMPILE which is an overkill
+ * deprecated.lisp (type-expand-1): ditto
+
 2009-11-05  Vladimir Tzankov  <vtzankov@...>
 
  * zthread.d (initialize_thread_bindings): allocate per thread value




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

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july

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

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


End of clisp-cvs Digest, Vol 43, Issue 6
****************************************

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel