comparison src/ChangeLog @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 4f1c7a4ac1e6
children 16ff693bd768
comparison
equal deleted inserted replaced
616:4f1c7a4ac1e6 617:af57a77cbc92
1 2001-06-17 Ben Wing <ben@xemacs.org>
2
3 ---------------------------------------------------------------
4 DOCUMENTATION FIXES:
5 ---------------------------------------------------------------
6
7 * eval.c (Ffunction_min_args):
8 * eval.c (Ffunction_max_args):
9 Correct documentation.
10
11 * elhash.c (Fremhash): Doc correction.
12
13 ---------------------------------------------------------------
14 LISP OBJECT CLEANUP:
15 ---------------------------------------------------------------
16
17 * bytecode.h (wrap_compiled_function):
18 * buffer.h (wrap_buffer):
19 * casetab.h (wrap_case_table):
20 * chartab.h (wrap_char_table_entry):
21 * chartab.h (wrap_char_table):
22 * console-msw.h (wrap_devmode):
23 * console-msw.h (wrap_mswindows_dialog_id):
24 * console.h (wrap_console):
25 * database.c (wrap_database):
26 * device.h (wrap_device):
27 * eldap.h (wrap_ldap):
28 * elhash.h (wrap_hash_table):
29 * events.h (wrap_timeout):
30 * events.h (wrap_event):
31 * extents.h (wrap_extent):
32 * extents.h (wrap_extent_auxiliary):
33 * extents.h (wrap_extent_info):
34 * faces.h (wrap_face):
35 * file-coding.h (wrap_coding_system):
36 * frame.h (wrap_frame):
37 * glyphs.h (wrap_image_instance):
38 * glyphs.h (wrap_glyph):
39 * gui-x.h (wrap_popup_data):
40 * gui.h (wrap_gui_item):
41 * keymap.h (wrap_keymap):
42 * lisp-disunion.h (wrap_pointer_1):
43 * lisp-union.h (wrap_pointer_1):
44 * lisp.h (wrap_cons):
45 * lisp.h (wrap_string):
46 * lisp.h (wrap_vector):
47 * lisp.h (wrap_bit_vector):
48 * lisp.h (wrap_symbol):
49 * lisp.h (wrap_subr):
50 * lisp.h (wrap_marker):
51 * lisp.h (wrap_float):
52 * lisp.h (wrap_weak_list):
53 * lisp.h (wrap_lcrecord_list):
54 * lrecord.h (wrap_record_1):
55 * lstream.h (wrap_lstream):
56 * mule-charset.h (wrap_charset):
57 * objects.h (wrap_color_instance):
58 * objects.h (wrap_font_instance):
59 * opaque.h (wrap_opaque):
60 * opaque.h (wrap_opaque_ptr):
61 * postgresql.h (wrap_pgconn):
62 * postgresql.h (wrap_pgresult):
63 * process.h (wrap_process):
64 * rangetab.h (wrap_range_table):
65 * specifier.h (wrap_specifier):
66 * toolbar.h (wrap_toolbar_button):
67 * tooltalk.h (wrap_tooltalk_message):
68 * tooltalk.h (wrap_tooltalk_pattern):
69 * ui-gtk.h (wrap_emacs_ffi):
70 * ui-gtk.h (wrap_emacs_gtk_object):
71 * ui-gtk.h (wrap_emacs_gtk_boxed):
72 * lstream.h (wrap_lstream):
73 * device.h (wrap_device): New.
74 * frame.h (wrap_frame): New.
75 * lisp-disunion.h (wrap_object):
76 * lisp-disunion.h (XSETOBJ):
77 * lrecord.h:
78 Add wrap_* to all objects (it was already there for a few of them)
79 -- an expression to encapsulate a pointer into a Lisp object,
80 rather than the inconvenient XSET*. "wrap" was chosen because
81 "make" as in make_int(), make_char() is not appropriate. (It
82 implies allocation. The issue does not exist for ints and chars
83 because they are not allocated.)
84
85 Full error checking has been added to these expressions. When
86 used without error checking, non-union build, use of these
87 expressions will incur no loss of efficiency. (In fact, XSET* is
88 now defined in terms of wrap_* in a non-union build.) In a union
89 build, you will also get no loss of efficiency provided that you
90 have a decent optimizing compiler, and a compiler that either
91 understands inlines or automatically inlines those particular
92 functions. (And since people don't normally do their production
93 builds on union, it doesn't matter.)
94
95 Update the sample Lisp object definition in lrecord.h accordingly.
96
97 * dumper.c (pdump_dump_root_objects):
98 * dumper.c (pdump_load_finish):
99 Fix places in dumper that referenced wrap_object to reference
100 its new name, wrap_pointer_1.
101
102 * buffer.c (mark_buffer):
103 * buffer.c (reset_buffer_local_variables):
104 * buffer.c (Fbuffer_local_variables):
105 * buffer.c (nuke_all_buffer_slots):
106 * buffer.c (complex_vars_of_buffer):
107 * bufslots.h:
108 * conslots.h:
109 * console.c:
110 * console.c (mark_console):
111 * console.c (nuke_all_console_slots):
112 * console.c (delete_console_internal):
113 * console.c (common_init_complex_vars_of_console):
114 * console.c (complex_vars_of_console):
115 * console.h (struct console):
116 * devslots.h: NEW FILE.
117 * device.c:
118 * device.c (MARKED_SLOT):
119 * device.c (mark_device):
120 * device.c (nuke_all_device_slots):
121 * device.c (allocate_device):
122 * device.c (Fset_device_selected_frame):
123 * device.c (delete_device_internal):
124 * device.c (vars_of_device):
125 * device.h (struct device):
126 * device.h (MARKED_SLOT):
127 * frame.c (nuke_all_frame_slots):
128 * frame.c (allocate_frame_core):
129 * frame.c (delete_frame_internal):
130 * frame.h (struct frame):
131 * frame.h (FRAME_LIVE_P):
132 * frameslots.h:
133 * window.c (mark_window):
134 * window.c (WINDOW_SLOT):
135 * window.c (allocate_window):
136 * window.c (mark_window_as_deleted):
137 * window.c (wrap_window_configuration):
138 * window.c (Fset_window_configuration):
139 * window.h:
140 * window.h (struct window):
141 * window.h (WINDOW_SLOT):
142 * winslots.h:
143 -- Extract out the Lisp objects of `struct device' into devslots.h,
144 just like for the other structures.
145 -- Extract out the remaining (not copied into the window config)
146 Lisp objects in `struct window' into winslots.h; use different
147 macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them.
148 -- Eliminate the `dead' flag of `struct frame', since it
149 duplicates information already available in `framemeths', and fix
150 FRAME_LIVE_P accordingly. (Devices and consoles already work this
151 way.)
152 -- In *slots.h, switch to system where MARKED_SLOT is automatically
153 undef'd at the end of the file. (Follows what winslots.h already
154 does.)
155 -- Update the comments at the beginning of *slots.h to be accurate.
156 -- When making any of the above objects dead, zero it out entirely
157 and reset all Lisp object slots to Qnil. (We were already doing
158 this somewhat, but not consistently.) This (1) Eliminates the
159 possibility of extra objects hanging around that ought to be
160 GC'd, (2) Causes an immediate crash if anyone tries to access a
161 structure in one of these objects, (3) Ensures consistent behavior
162 wrt dead objects.
163
164 * dialog-msw.c:
165 Use internal_object_printer, since this object should not escape.
166
167 ---------------------------------------------------------------
168 FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR):
169 ---------------------------------------------------------------
170
171 * eval.c (unwind_to_catch):
172 * eval.c (condition_bind_unwind):
173 * eval.c (condition_case_unwind):
174 * eval.c (condition_case_1):
175 Fix up some comments about the FSF implementation.
176 Fix two nasty bugs:
177
178 (1) condition_case_unwind frees the conses sitting in the
179 catch->tag slot too quickly, resulting in a crash that I hit.
180 (2) catches need to be unwound one at a time when calling
181 unwind-protect code, rather than all at once at the end; otherwise,
182 incorrect behavior can result. (A comment shows exactly how.)
183
184 * backtrace.h:
185 Improve comment about FSF differences in the handler stack.
186
187 ---------------------------------------------------------------
188 FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL
189 UNDER MSWINDOWS:
190 ---------------------------------------------------------------
191
192 Basic idea: My crash is due either to a dead, non-marked,
193 GC-collected frame inside of a window mirror, or a prematurely
194 freed window mirror. We need to mark the Lisp objects inside of
195 window mirrors. Tracking the lifespan of window mirrors and
196 scrollbar instances is extremely hard, and there may well be
197 lurking bugs where such objects are freed too soon. The only safe
198 way to fix these problems (and it fixes both problems at once) is
199 to make both of these structures Lisp objects.
200
201 * lrecord.h (lrecord_type):
202 * emacs.c (main_1):
203 * inline.c:
204 * scrollbar-gtk.c (gtk_create_scrollbar_instance):
205 * scrollbar-gtk.c (find_scrollbar_window_mirror):
206 * scrollbar-gtk.c (scrollbar_cb):
207 * scrollbar-gtk.c (gtk_scrollbar_pointer_changed_in_window):
208 * scrollbar-gtk.c (gtk_update_frame_scrollbars):
209 * scrollbar-msw.c:
210 * scrollbar-msw.c (mswindows_create_scrollbar_instance):
211 * scrollbar-msw.c (mswindows_free_scrollbar_instance):
212 * scrollbar-msw.c (mswindows_update_scrollbar_instance_values):
213 * scrollbar-msw.c (mswindows_handle_scrollbar_event):
214 * scrollbar-msw.c (syms_of_scrollbar_mswindows):
215 * scrollbar-msw.c (vars_of_scrollbar_mswindows):
216 * scrollbar-msw.c (complex_vars_of_scrollbar_mswindows):
217 * scrollbar-x.c (find_scrollbar_window_mirror):
218 * scrollbar-x.c (x_update_frame_scrollbars):
219 * scrollbar.c:
220 * scrollbar.c (mark_scrollbar_instance):
221 * scrollbar.c (free_scrollbar_instance):
222 * scrollbar.c (free_frame_scrollbars):
223 * scrollbar.c (create_scrollbar_instance):
224 * scrollbar.c (syms_of_scrollbar):
225 * scrollbar.h:
226 * scrollbar.h (struct scrollbar_instance):
227 * symsinit.h:
228 Make scrollbar instances actual Lisp objects. Mark the window
229 mirrors in them. inline.c needs to know about scrollbar.h now.
230 Record the new type in lrecord.h. Fix up scrollbar-*.c
231 appropriately. Create a hash table in scrollbar-msw.c so that the
232 scrollbar instances stored in scrollbar HWND's are properly
233 GC-protected. Create complex_vars_of_scrollbar_mswindows() to
234 create the hash table at startup, and call it from emacs.c. Don't
235 store the scrollbar instance as a property of the GTK scrollbar,
236 as it's not used and if we did this, we'd have to separately
237 GC-protect it in a hash table, like in MS Windows.
238
239 * lrecord.h (lrecord_type):
240 * frame.h (struct frame):
241 * frame.c (delete_frame_internal):
242 * frameslots.h:
243 * redisplay.c:
244 * window.c:
245 * window.c (mark_window_mirror):
246 * window.c (new_window_mirror):
247 * window.c (update_frame_window_mirror):
248 * window.c (free_window_mirror):
249 * window.c (find_window_mirror):
250 * window.c (syms_of_window):
251 * window.c (real_window):
252 * window.h (struct window_mirror):
253 Move mark_window_mirror from redisplay.c to window.c. Make window
254 mirrors actual Lisp objects. Tell lrecord.h about them. Change
255 the window mirror member of struct frame from a pointer to a Lisp
256 object, and add XWINDOW_MIRROR in appropriate places. Mark the
257 scrollbar instances in the window mirror.
258
259 * redisplay.c:
260 * redisplay.h:
261 * alloc.c (garbage_collect_1):
262 Delete mark_redisplay. Don't call mark_redisplay. We now mark
263 frame-specific structures in mark_frame.
264
265 NOTE: I also deleted an extremely questionable call to
266 update_frame_window_mirrors(). It was extremely questionable
267 before, and now totally impossible, since it will create
268 Lisp objects during redisplay.
269
270 * frame.c (mark_frame):
271 Mark the scrollbar instances, which are now Lisp objects.
272 Call mark_gutter() here, not in mark_redisplay().
273
274 * gutter.c:
275 Update comments about correct marking.
276
277 ---------------------------------------------------------------
278 ISSUES BROUGHT UP BY MARTIN:
279 ---------------------------------------------------------------
280
281 * buffer.h (DFC_C_STRING_ALLOCA_USE_CONVERTED_DATA):
282 Put back these macros the way Steve T and I think they ought to be.
283 I already explained in a previous changelog entry why I think these
284 macros should be the way I'd defined them. Once again:
285
286 We fix these macros so they don't care about the type of their
287 lvalues. The non-C-string equivalents of these already function
288 in the same way, and it's correct because it should be OK to pass
289 in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *,
290 etc. The whole reason for these different types is to work around
291 errors caused by signed-vs-unsigned non-matching types. Any
292 possible error that might be caught in a DFC macro would also be
293 caught wherever the argument is used elsewhere. So creating
294 multiple macro versions would add no useful error-checking and
295 just further complicate an already complicated area.
296
297 As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing
298 clean and probably never will be. Unless the board agrees to
299 change XEmacs in this way (and we really don't want to go down
300 that road), this is not a bug.
301
302 * sound.h (sound_perror):
303 Undo Martin's type change.
304
305 * signal.c (qxe_setitimer):
306 Fix problem identified by Martin with Linux and g++ due to
307 non-standard declaration of setitimer().
308
309 * systime.h:
310 Update the docs for "qxe_" to point out why making the
311 encapsulation explicit is always the right way to go. (setitimer()
312 itself serves as an example.)
313
1 2001-06-11 Martin Buchholz <martin@xemacs.org> 314 2001-06-11 Martin Buchholz <martin@xemacs.org>
2 315
3 * buffer.h (DFC_C_STRING_ALLOCA_USE_CONVERTED_DATA): 316 * buffer.h (DFC_C_STRING_ALLOCA_USE_CONVERTED_DATA):
4 * buffer.h (DFC_C_STRING_MALLOC_USE_CONVERTED_DATA): 317 * buffer.h (DFC_C_STRING_MALLOC_USE_CONVERTED_DATA):
5 Revert to doing type-checking on `sink'. 318 Revert to doing type-checking on `sink'.
1404 * lread.c (reader_nextchar): 1717 * lread.c (reader_nextchar):
1405 * lread.c (read_list_conser): 1718 * lread.c (read_list_conser):
1406 * lread.c (syms_of_lread): 1719 * lread.c (syms_of_lread):
1407 * lread.c (vars_of_lread): 1720 * lread.c (vars_of_lread):
1408 * lstream.c (Lstream_internal_error): 1721 * lstream.c (Lstream_internal_error):
1409 * lstream.h (wrap_lstream):
1410 * macros.c (Fstart_kbd_macro): 1722 * macros.c (Fstart_kbd_macro):
1411 * macros.c (Fend_kbd_macro): 1723 * macros.c (Fend_kbd_macro):
1412 * macros.c (pop_kbd_macro_event): 1724 * macros.c (pop_kbd_macro_event):
1413 * macros.c (Fcall_last_kbd_macro): 1725 * macros.c (Fcall_last_kbd_macro):
1414 * macros.c (Fexecute_kbd_macro): 1726 * macros.c (Fexecute_kbd_macro):
5919 * device-x.c (Fx_valid_keysym_name_p): 6231 * device-x.c (Fx_valid_keysym_name_p):
5920 * device-x.c (Fx_set_font_path): 6232 * device-x.c (Fx_set_font_path):
5921 [6]. 6233 [6].
5922 [7]. 6234 [7].
5923 6235
5924 * device.h (wrap_device): New.
5925 First of its kind; meant to replace XSETDEVICE. 6236 First of its kind; meant to replace XSETDEVICE.
5926 6237
5927 * dialog-msw.c: Many file-dialog symbols. 6238 * dialog-msw.c: Many file-dialog symbols.
5928 6239
5929 * dialog-msw.c (mswindows_register_popup_frame): New. 6240 * dialog-msw.c (mswindows_register_popup_frame): New.
6162 [7]. 6473 [7].
6163 6474
6164 * frame.c: 6475 * frame.c:
6165 * frame.c (Fmouse_pixel_position): Minor doc fixes. 6476 * frame.c (Fmouse_pixel_position): Minor doc fixes.
6166 6477
6167 * frame.h (wrap_frame): New.
6168 Macro like wrap_device. 6478 Macro like wrap_device.
6169 6479
6170 * general.c: 6480 * general.c:
6171 * general.c (SYMBOL): 6481 * general.c (SYMBOL):
6172 * general.c (syms_of_general): 6482 * general.c (syms_of_general):
6236 * keymap.c (ensure_meta_prefix_char_keymapp): 6546 * keymap.c (ensure_meta_prefix_char_keymapp):
6237 * keymap.c (describe_map): 6547 * keymap.c (describe_map):
6238 * keymap.h: 6548 * keymap.h:
6239 Support new button modifiers. 6549 Support new button modifiers.
6240 6550
6241 * lisp-disunion.h (wrap_object):
6242 * lisp-disunion.h (XSETOBJ): 6551 * lisp-disunion.h (XSETOBJ):
6243 Rename make_obj to wrap_object. 6552 Rename make_obj to wrap_object.
6244 6553
6245 * lisp-union.h: 6554 * lisp-union.h:
6246 * lisp-union.h (make_int): 6555 * lisp-union.h (make_int):