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

Export both EXT:INSTALL-BYTECODES-COMPILER and EXT:INSTALL-C-COMPILER

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-01 18:53:45 +02:00
parent f53d22e57d
commit 2c5b024036
3 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/symbols_list.h
View file

@ -2241,5 +2241,8 @@ cl_symbols[] = {
{EXT_ "TRULY-THE", EXT_ORDINARY, NULL, -1, OBJNULL},
{EXT_ "CHECKED-VALUE", EXT_ORDINARY, NULL, -1, OBJNULL},
{EXT_ "INSTALL-BYTECODES-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL},
{EXT_ "INSTALL-C-COMPILER", EXT_ORDINARY, NULL, -1, OBJNULL},
/* Tag for end of list */
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};

3
src/c/symbols_list2.h
View file

@ -2241,5 +2241,8 @@ cl_symbols[] = {
{EXT_ "TRULY-THE",NULL},
{EXT_ "CHECKED-VALUE",NULL},
{EXT_ "INSTALL-BYTECODES-COMPILER",NULL},
{EXT_ "INSTALL-C-COMPILER",NULL},
/* Tag for end of list */
{NULL,NULL}};

2
src/cmp/cmpmain.lsp
View file

@ -960,7 +960,7 @@ from the C language code. NIL means \"do not create the file\"."
(disassemble #'disassemble)
(compile-file #'compile-file)
(compile-file-pathname #'compile-file-pathname))
(defun install-c-compiler ()
(defun ext:install-c-compiler ()
(ext::package-lock (find-package :cl) nil)
(setf *features* (delete :ecl-bytecmp *features*))
(setf (fdefinition 'disassemble) disassemble