Move exports from autoloads.lisp to the respective defining files.

Also, delete JVM-COMPILE-PACKAGE, which hasn't been used in our
sources for ages and doesn't seem to serve an external purpose.
parent e0a201ee
......@@ -54,47 +54,13 @@
;; Extensions.
(in-package "EXTENSIONS")
(export 'simple-search)
(export 'run-shell-command)
(autoload 'run-shell-command)
(export 'run-program)
(autoload 'run-program)
(export 'process) ;; Not a function, but a DEFSTRUCT
(export 'process-p)
(autoload 'process-p "run-program")
(export 'process-input)
;; due to the macro-expansion of DEFSTRUCT,
;; slot accessors aren't being "detected"
(autoload 'process-input "run-program")
(export 'process-output)
(autoload 'process-output "run-program")
(export 'process-error)
(autoload 'process-error "run-program")
(export 'process-alive-p)
(autoload 'process-alive-p "run-program")
(export 'process-wait)
(autoload 'process-wait "run-program")
(export 'process-exit-code)
(autoload 'process-exit-code "run-program")
(export 'process-kill)
(autoload 'process-kill "run-program")
(export '(grovel-java-definitions compile-system))
(export 'aver)
(export 'collect)
(export 'compile-file-if-needed)
(export 'describe-compiler-policy)
(export 'macroexpand-all)
(export '*gui-backend*)
(export 'init-gui)
(export 'make-dialog-prompt-stream)
;; JVM compiler.
(in-package "JVM")
(export '(jvm-compile-package))
(in-package "LISP")
(export 'compiler-let)
(in-package "SYSTEM")
......
......@@ -33,6 +33,8 @@
(in-package "SYSTEM")
(export 'aver)
(defun %failed-aver (expr-as-string)
(error 'simple-error
:format-control "Failed AVER: ~S"
......
......@@ -33,6 +33,9 @@
(require "COMPILER-PASS2")
(export 'compile-file-if-needed)
(defvar *fbound-names*)
(defvar *class-number*)
......
......@@ -35,6 +35,9 @@
(require "COLLECT")
(require "COMPILE-FILE")
(export '(grovel-java-definitions-in-file compile-system))
(defun check-lisp-home ()
(loop
(cond ((and *lisp-home*
......
......@@ -7558,16 +7558,6 @@ generated class."
(defun jvm-compile-package (package-designator)
(let ((pkg (if (packagep package-designator)
package-designator
(find-package package-designator))))
(dolist (sym (sys::package-symbols pkg))
(when (fboundp sym)
(unless (or (special-operator-p sym) (macro-function sym))
(jvm-compile sym)))))
t)
(defun initialize-p2-handlers ()
(mapc #'install-p2-handler '(declare
multiple-value-call
......
......@@ -30,6 +30,8 @@
(in-package "SYSTEM")
(export 'describe-compiler-policy)
(defun describe-compiler-policy ()
(format t "~&; Compiler policy: safety ~D, space ~D, speed ~D, debug ~D~%"
*safety* *space* *speed* *debug*)
......
......@@ -2,6 +2,9 @@
(require :java)
(export '(*gui-backend* init-gui make-dialog-prompt-stream))
(defvar *gui-backend* :swing)
(defun init-gui ()
......@@ -15,8 +18,8 @@
(defmethod %make-dialog-prompt-stream ((gui-backend (eql :swing)))
(java:jnew (java:jconstructor
"org.armedbear.lisp.java.swing.SwingDialogPromptStream")))
"org.armedbear.lisp.java.swing.SwingDialogPromptStream")))
(defmethod %make-dialog-prompt-stream ((gui-backend (eql :awt)))
(java:jnew (java:jconstructor
"org.armedbear.lisp.java.awt.AwtDialogPromptStream")))
\ No newline at end of file
"org.armedbear.lisp.java.awt.AwtDialogPromptStream")))
......@@ -31,8 +31,7 @@
(in-package "JVM")
(export '(compile-defun *catch-errors* jvm-compile-package
derive-compiler-type))
(export '(compile-defun *catch-errors* derive-compiler-type))
(require "JVM-CLASS-FILE")
......
......@@ -1050,11 +1050,16 @@
(export '(precompile-form))
(in-package #:ext)
(export 'macroexpand-all)
(defun macroexpand-all (form &optional env)
(precompiler:precompile-form form t env))
(in-package #:lisp)
(export '(compiler-let))
(defmacro compiler-let (bindings &body forms &environment env)
(let ((bindings (mapcar #'(lambda (binding)
(if (atom binding) (list binding) binding))
......
......@@ -33,6 +33,10 @@
(require "JAVA")
(export '(run-program process process-p process-input process-output
process-error process-alive-p process-wait process-exit-code
process-kill))
;;; Vaguely inspired by sb-ext:run-program in SBCL.
;;;
;;; See <http://www.sbcl.org/manual/Running-external-programs.html>.
......
......@@ -31,5 +31,7 @@
(in-package "SYSTEM")
(export '(run-shell-command))
(defun run-shell-command (command &key directory (output *standard-output*))
(%run-shell-command command directory output))
......@@ -33,6 +33,9 @@
(require "EXTENSIBLE-SEQUENCES-BASE")
(export '(simple-search))
;; From CMUCL.
(eval-when (:compile-toplevel :execute)
......
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