Commit 407b3108 authored by ram's avatar ram
Browse files

When NO-RUNTIME feature is absent, compile various subsystems byte-coded as

well as native coded so that we can choose at system build time.
parent cb39cda7
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.65 1993/08/31 13:40:41 hallgren Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.66 1994/02/11 13:39:14 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -182,17 +182,21 @@ ...@@ -182,17 +182,21 @@
(comf "target:code/stream") (comf "target:code/stream")
(comf "target:code/print") (comf "target:code/print")
(comf "target:code/pprint") (comf "target:code/pprint")
#-no-runtime (comf "target:code/pprint" :byte-compile t)
(comf "target:code/format") (comf "target:code/format")
#-no-runtime (comf "target:code/format" :byte-compile t)
(comf "target:code/package") (comf "target:code/package")
(comf "target:code/reader") (comf "target:code/reader")
#-no-runtime (comf "target:code/reader" :byte-compile t)
(comf "target:code/sharpm" :byte-compile *byte-compile*) (comf "target:code/sharpm" :byte-compile *byte-compile*)
(comf "target:code/backq" :byte-compile *byte-compile*) (comf "target:code/backq" :byte-compile *byte-compile*)
(comf "target:code/serve-event") (comf "target:code/serve-event")
(comf "target:code/fd-stream") (comf "target:code/fd-stream")
(comf "target:code/pathname") (comf "target:code/pathname")
#-no-runtime (comf "target:code/pathname" :byte-compile t)
(comf "target:code/filesys") (comf "target:code/filesys")
#-no-runtime (comf "target:code/filesys" :byte-compile t)
(comf "target:code/load") (comf "target:code/load")
(comf "target:code/module" :byte-compile *byte-compile*) (comf "target:code/module" :byte-compile *byte-compile*)
...@@ -220,7 +224,10 @@ ...@@ -220,7 +224,10 @@
(comf "target:code/tty-inspect" :byte-compile *byte-compile*) (comf "target:code/tty-inspect" :byte-compile *byte-compile*)
(comf "target:code/format-time") (comf "target:code/format-time")
#-no-runtime (comf "target:code/format-time")
(comf "target:code/parse-time") (comf "target:code/parse-time")
#-no-runtime (comf "target:code/parse-time")
(comf "target:code/run-program") (comf "target:code/run-program")
(comf "target:code/loop" :byte-compile *byte-compile*) (comf "target:code/loop" :byte-compile *byte-compile*)
...@@ -245,8 +252,8 @@ ...@@ -245,8 +252,8 @@
(comf "target:code/defstruct") (comf "target:code/defstruct")
(comf "target:code/defmacro" :byte-compile *byte-compile*) (comf "target:code/defmacro" :byte-compile *byte-compile*)
(comf "target:compiler/globaldb") (comf "target:compiler/globaldb")
;; We can't compile anything after macros, 'cause it breaks the running lisp. (comf "target:code/macros")
(comf "target:code/macros")) #-no-runtime (comf "target:code/macros" :byte-compile t))
); let *byte-compile-top-level* ); let *byte-compile-top-level*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment