[Sbcl-commits] CVS: sbcl/src/code condition.lisp,1.84,1.85

[William H. N. <wn...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5103/src/code

Modified Files:
	condition.lisp 
Log Message:
1.0.11.3: belatedly recognizing STREAM-ERROR and PARSE-ERROR printing is OK
	* (In my 1.0.9.60 patch, I fixed a READER-ERROR printing bug and
	  wrote that parallel PARSE-ERROR and STREAM-ERROR printing bugs
	  remained and that I would fix them. Now finally returning to
	  fix them, I find that they were fixed already, the tests work 
	  with with no additional fixes needed.)
	* so I just un-#+NILed-out the tests
        * also made a few trivial rearrangements in 
          src/code/condition.lisp, moving things around without changing 
          meaning


Index: condition.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/condition.lisp,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- condition.lisp	18 Oct 2007 13:23:13 -0000	1.84
+++ condition.lisp	26 Oct 2007 12:48:14 -0000	1.85
@@ -619,9 +619,6 @@
 
 (define-condition simple-error (simple-condition error) ())
 
-;;; not specified by ANSI, but too useful not to have around.
-(define-condition simple-style-warning (simple-condition style-warning) ())
-
 (define-condition storage-condition (serious-condition) ())
 
 (define-condition type-error (error)
@@ -634,6 +631,8 @@
              (type-error-datum condition)
              (type-error-expected-type condition)))))
 
+;;; not specified by ANSI, but too useful not to have around.
+(define-condition simple-style-warning (simple-condition style-warning) ())
 (define-condition simple-type-error (simple-condition type-error) ())
 
 (define-condition program-error (error) ())
@@ -815,7 +814,8 @@
               <http://sbcl.sourceforge.net/>.~:@>"
              '((fmakunbound 'compile))))))
 
-(define-condition simple-storage-condition (storage-condition simple-condition) ())
+(define-condition simple-storage-condition (storage-condition simple-condition)
+  ())
 
 ;;; a condition for use in stubs for operations which aren't supported
 ;;; on some platforms