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

*** empty log message ***

Browse source
This commit is contained in:
jjgarcia 2003-11-24 16:39:04 +00:00
parent 686de488d2
commit c09dd1a588
3 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bare.lsp.in
View file

@ -33,6 +33,9 @@
;;;
;;; * Load the compiler.
;;;
#-threads
(defmacro c::with-lock ((lock) &body body)
(print `(progn ,@body)) )
(load #+(or cross ecl-min) "@abs_builddir@/cmp/load.lsp"
#-(or cross ecl-min) "@abs_builddir@/cmp.so")

2
src/cmp/cmpdefs.lsp
View file

@ -14,7 +14,7 @@
(defpackage "C"
(:nicknames "COMPILER")
(:use "FFI" "CL")
(:use "FFI" "CL" #+threads "MP")
(:export "*COMPILER-BREAK-ENABLE*"
"*COMPILE-PRINT*"
"*COMPILE-TO-LINKING-CALL*"

8
src/cmp/cmpmain.lsp
View file

@ -350,7 +350,7 @@ Cannot compile ~a."
(shared-data-pathname (get-output-pathname o-pathname shared-data-file
:sdata)))
(mp:with-lock (mp::+load-compile-lock+)
(with-lock (+load-compile-lock+)
(init-env)
(when (probe-file "./cmpinit.lsp")
@ -432,7 +432,7 @@ Cannot compile ~a."
(setq *error-p* t)
(values nil t t))
))
) ; mp:with-lock
) ; with-lock
)
#-dlopen
@ -494,7 +494,7 @@ Cannot compile ~a."
(o-pathname (compile-file-pathname data-pathname :type :object))
(so-pathname (compile-file-pathname data-pathname)))
(mp:with-lock (mp::+load-compile-lock+)
(with-lock (+load-compile-lock+)
(init-env)
(data-init)
(t1expr form)
@ -571,7 +571,7 @@ Cannot compile ~a."
(*error-count* 0)
(t3local-fun (symbol-function 'T3LOCAL-FUN))
(t3fun (get-sysprop 'DEFUN 'T3)))
(mp:with-lock (mp::+load-compile-lock+)
(with-lock (+load-compile-lock+)
(unwind-protect
(progn
(put-sysprop 'DEFUN 'T3