mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Samium Gromoff 2009-04-14 00:56:19 +04:00 • committed by Juan Jose Garcia Ripoll
parent bd85fecd4a
commit 0a841482dc
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/standard.lsp
View file

@ -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."

2
src/cmp/cmpnum.lsp
View file

@ -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))