From 9ec8acc5e599bcd1773a3de2317b68f3758ddb35 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 15 May 1992 17:51:49 +0000
Subject: [PATCH] Changed uses of DEFINE-CONDITION to use the new syntax.

---
 code/format.lisp   | 12 ++++++------
 code/pathname.lisp | 10 +++++-----
 code/reader.lisp   |  6 +++---
 code/wire.lisp     |  6 +++---
 4 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/code/format.lisp b/code/format.lisp
index 3c30db067..15f7fe1cc 100644
--- a/code/format.lisp
+++ b/code/format.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.23 1992/02/12 16:10:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.24 1992/05/15 17:51:24 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -62,11 +62,11 @@
 (defvar *default-format-error-offset* nil)
 
 (define-condition format-error (error)
-  ((complaint (required-argument))
-   (arguments nil)
-   (control-string *default-format-error-control-string*)
-   (offset *default-format-error-offset*)
-   (print-banner t))
+  ((complaint)
+   (arguments :init-form nil)
+   (control-string :init-form *default-format-error-control-string*)
+   (offset :init-form *default-format-error-offset*)
+   (print-banner :init-form t))
   (:report %print-format-error))
 
 
diff --git a/code/pathname.lisp b/code/pathname.lisp
index ce8f9a20f..6f7b42e31 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.9 1992/03/10 15:06:59 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.10 1992/05/15 17:51:47 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -210,10 +210,10 @@
 	  (namestring-parse-error-offset condition)))
 
 (define-condition namestring-parse-error (error)
-  ((complaint (required-argument))
-   (arguments nil)
-   (namestring (required-argument))
-   (offset (required-argument)))
+  ((complaint :init-form (required-argument))
+   (arguments :init-form nil)
+   (namestring :init-form (required-argument))
+   (offset :init-form (required-argument)))
   (:report %print-namestring-parse-error))
 
 (defun %parse-namestring (namestr start end host junk-allowed)
diff --git a/code/reader.lisp b/code/reader.lisp
index 3f78fb19e..514bc068a 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.14 1992/04/17 16:00:48 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.15 1992/05/15 17:51:49 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -41,7 +41,7 @@
 
 (define-condition reader-error (stream-error)
   (format-control
-   (format-arguments ()))
+   (format-arguments :init-form ()))
   (:report
    (lambda (condition stream)
      (let ((error-stream (stream-error-stream condition)))
@@ -592,7 +592,7 @@
 		 (file-position stream))
 	   (values))
 	  (t
-	   (%reader-error stream "Unmatched close parenthesis.")))))
+	   (%reader-error stream "Unmatched close parenthesis."))))
 
 ;;; INTERNAL-READ-EXTENDED-TOKEN  --  Internal
 ;;;
diff --git a/code/wire.lisp b/code/wire.lisp
index b0bb42bf4..d7daa7512 100644
--- a/code/wire.lisp
+++ b/code/wire.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.8 1992/02/18 16:56:49 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.9 1992/05/15 17:51:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -115,8 +115,8 @@
 		     (wire-eof-wire condition)))))
 
 (define-condition wire-io-error (wire-error)
-  ((when "using")
-   (msg "Failed."))
+  ((when :init-form "using")
+   (msg :init-form "Failed."))
   (:report (lambda (condition stream)
 	     (format stream "Error ~A ~A: ~A."
 		     (wire-io-error-when condition)
-- 
GitLab