mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typos (R.J.Alcantara)

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-08-23 11:24:44 +02:00
parent 215647b3d0
commit d6b3e9ff67
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/alloc_2.d
View file

@ -197,7 +197,7 @@ ecl_object_byte_size(cl_type t)
FEerror("ecl_object_byte_size invoked with an immediate type ~D",
1, ecl_make_fixnum(1));
if (t >= t_end)
FEerror("ecl_object_byte_size invoked with an unkown type ~D",
FEerror("ecl_object_byte_size invoked with an unknown type ~D",
1, ecl_make_fixnum(1));
return type_info[t].size;
}

2
src/clx/image.lisp
View file

@ -2647,7 +2647,7 @@
(unless (= depth image-depth)
(if (= image-depth 1)
(unless gcontext (xlib::required-arg gcontext))
(error "Pixmap depth ~d incompatable with image depth ~d"
(error "Pixmap depth ~d incompatible with image depth ~d"
depth image-depth)))
(put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1)
gcontext))