Commit 0a841482 authored by Samium Gromoff's avatar Samium Gromoff Committed by Juan Jose Garcia Ripoll
Browse files

SIMPLE-CONDITION's initarg is called :FORMAT-ARGUMENTS

parent bd85fecd
......@@ -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."
......
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment