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

ECL is compiled without automatic generation of argument checks.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-28 21:37:48 +02:00
parent 2cacf0aefc
commit 086ae2e5d1
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/bare.lsp.in
View file

@ -16,7 +16,8 @@
;;;")
(sys:*make-constant '+ecl-optimization-settings+
'(optimize (safety 2) (speed 1) (debug 1) (space 1)))
'((optimize (safety 2) (speed 1) (debug 1) (space 1))
(ext:no-check-arguments-type)))
(sys:*make-constant '+ecl-unsafe-declarations+
'(optimize (safety 0) (speed 3) (debug 0) (space 0)))
(sys:*make-constant '+ecl-safe-declarations+
@ -152,7 +153,7 @@
(defun build-module (name sources &key additional-files
(builtin nil) (dir "build:")
((:prefix si::*init-function-prefix*) "EXT"))
(proclaim +ecl-optimization-settings+)
(mapc #'proclaim +ecl-optimization-settings+)
(let* ((name (string-downcase name)))
(when additional-files
(setf *module-files* (append additional-files *module-files*)))

6
src/compile.lsp.in
View file

@ -71,7 +71,7 @@
;;; * Compile and link Common-Lisp base library
;;;
(setq si::*keep-documentation* nil)
(proclaim +ecl-optimization-settings+)
(mapc #'proclaim +ecl-optimization-settings+)
(let* ((c::*cc-flags* (concatenate 'string "-DECL_API -I\"@true_builddir@/c\" " c::*cc-flags*))
(lsp-objects (compile-if-old "build:lsp;" +lisp-module-files+
:system-p t :c-file t :data-file t :h-file t
@ -79,7 +79,7 @@
)))
#+CLOS
(let* ((c::*compile-to-linking-call* nil))
(proclaim +ecl-optimization-settings+)
(mapc #'proclaim +ecl-optimization-settings+)
(setq lsp-objects (append lsp-objects
(compile-if-old "build:clos;" +clos-module-files+
:system-p t :c-file t :data-file t :h-file t
@ -128,7 +128,7 @@
;;;
;;; * Compile and link Common-Lisp to C compiler
;;;
(proclaim +ecl-optimization-settings+)
(mapc #'proclaim +ecl-optimization-settings+)
(si::pathname-translations "SYS" '(("**;*.*.*" "@ecldir\@/**/*.*")))