From 0a841482dc5496b2bb91d98069ed02f6b189bac6 Mon Sep 17 00:00:00 2001 From: Samium Gromoff Date: Tue, 14 Apr 2009 00:56:19 +0400 Subject: [PATCH] SIMPLE-CONDITION's initarg is called :FORMAT-ARGUMENTS --- src/clos/standard.lsp | 2 +- src/cmp/cmpnum.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp index 436b2ac66..20d873d91 100644 --- a/src/clos/standard.lsp +++ b/src/clos/standard.lsp @@ -362,7 +362,7 @@ because it contains a reference to the undefined class~% ~A" (unless (eql loc1 loc2) (error 'simple-error :format-control "You have specified two conflicting slot locations:~%~D and ~F~%for slot ~A" - :format-args (list loc1 loc2 name))) + :format-arguments (list loc1 loc2 name))) (progn #+(or) (format t "~%Assigning a default location ~D for ~A in ~A." diff --git a/src/cmp/cmpnum.lsp b/src/cmp/cmpnum.lsp index bc471df4e..1264efcc0 100644 --- a/src/cmp/cmpnum.lsp +++ b/src/cmp/cmpnum.lsp @@ -35,7 +35,7 @@ 0) (t (error 'simple-program-error :format-error "Wrong number of arguments for operator ~a in ~a" - :format-args (list operators (or whole (list* operator args)))))))) + :format-arguments (list operators (or whole (list* operator args)))))))) (define-compiler-macro * (&whole all &rest args) (simplify-arithmetic '* args all))