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

Symbol GC moved from package COMMON-LISP to SYSTEM (and imported into CL-USER).

Browse source
This commit is contained in:
jjgarcia 2003-03-13 13:10:15 +00:00
parent b7ced3d4ba
commit a767dd4939
5 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -1278,6 +1278,8 @@ ECLS 0.9
- (SETF #:GXXX), where #:GXXX is any uninterned symbol, should be a
valid function name.
- Symbol GC moved from the COMMON-LISP package, to SI and CL-USER.
TODO:
=====

2
src/c/alloc_2.d
View file

@ -281,7 +281,7 @@ ecl_register_root(cl_object *p)
}
cl_object
cl_gc(cl_object area)
si_gc(cl_object area)
{
GC_gcollect();
@(return)

4
src/c/symbols_list.h
View file

@ -1158,11 +1158,11 @@ cl_symbols[] = {
#endif
#ifdef GBC_BOEHM
{"GC", CL_ORDINARY, cl_gc, 1},
{"SI::GC", SI_ORDINARY, si_gc, 1},
#endif
#if !defined(GBC_BOEHM)
{"GC", CL_ORDINARY, cl_gc, -1},
{"SI::GC", SI_ORDINARY, si_gc, -1},
{"SI::ALLOCATE", SI_ORDINARY, si_allocate, -1},
{"SI::ALLOCATED-PAGES", SI_ORDINARY, si_allocated_pages, -1},
{"SI::MAXIMUM-ALLOCATABLE-PAGES", SI_ORDINARY, si_maximum_allocatable_pages, -1},

4
src/h/external.h
View file

@ -26,7 +26,7 @@ extern cl_object cl_alloc_instance(cl_index slots);
extern cl_object make_cons(cl_object a, cl_object d);
extern void cl_dealloc(void *p, cl_index s);
#ifdef GBC_BOEHM
extern cl_object cl_gc(cl_object area);
extern cl_object si_gc(cl_object area);
extern void *GC_malloc(size_t size);
extern void *GC_malloc_atomic_ignore_off_page(size_t size);
extern void GC_free(void *);
@ -394,7 +394,7 @@ extern void init_format(void);
extern cl_object si_room_report _ARGS((int narg));
extern cl_object si_reset_gc_count _ARGS((int narg));
extern cl_object si_gc_time _ARGS((int narg));
extern cl_object cl_gc(cl_object area);
extern cl_object si_gc(cl_object area);
#define GC_enabled() GC_enable
#define GC_enable() GC_enable = TRUE;
#define GC_disable() GC_enable = FALSE;

2
src/lsp/autoload.lsp
View file

@ -248,7 +248,7 @@ NIL, then all packages are searched."
;;; Import functions which are useful for user interaction
(in-package "CL-USER")
(import '(sys::help sys::help* #-boehm-gc sys::room))
(import '(sys::help sys::help* #-boehm-gc sys::room sys::gc))
;;; Pretty-print-formats.
;;;