mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 19:22:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed two typos regarding FORMAT-ERROR.

Browse source
This commit is contained in:
jjgarcia 2003-11-25 15:56:27 +00:00
parent 02fddd850d
commit f6d910d0db
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbols_list.h
View file

@ -1229,7 +1229,7 @@ cl_symbols[] = {
{KEY_ "CATCHALL", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "CIRCLE", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "COMPILE-TOPLEVEL", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "CONTROL-STRING", CL_ORDINARY, NULL, -1, OBJNULL},
{KEY_ "CONTROL-STRING", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "CREATE", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DATUM", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DEFAULT", KEYWORD, NULL, -1, OBJNULL},

6
src/clos/conditions.lsp
View file

@ -606,7 +606,7 @@ returns with NIL."
;;;
(define-condition simple-program-error (simple-condition program-error) ())
(define-condition format-error (error)
(define-condition format-error (simple-error)
((control-string :reader format-error-control-string
:initarg :control-string
#+cmu-format :initform
@ -621,8 +621,8 @@ returns with NIL."
"~:[~;Error in format: ~]~
~?~@[~% ~A~% ~V@T^~]"
(format-error-print-banner condition)
(simple-error-format-control condition)
(simple-error-format-arguments condition)
(simple-condition-format-control condition)
(simple-condition-format-arguments condition)
(format-error-control-string condition)
(format-error-offset condition)))))