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