[armedbear-cvs] r14121 - trunk/abcl/src/org/armedbear/lisp
ehuelsmann at common-lisp.net
ehuelsmann at common-lisp.net
Sat Aug 18 11:37:35 UTC 2012
Author: ehuelsmann
Date: Sat Aug 18 04:37:34 2012
New Revision: 14121
Log:
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.
Modified:
trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
trunk/abcl/src/org/armedbear/lisp/aver.lisp
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp
trunk/abcl/src/org/armedbear/lisp/gui.lisp
trunk/abcl/src/org/armedbear/lisp/jvm.lisp
trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
trunk/abcl/src/org/armedbear/lisp/run-program.lisp
trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp
trunk/abcl/src/org/armedbear/lisp/search.lisp
Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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")
Modified: trunk/abcl/src/org/armedbear/lisp/aver.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/aver.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/aver.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -33,6 +33,8 @@
(in-package "SYSTEM")
+(export 'aver)
+
(defun %failed-aver (expr-as-string)
(error 'simple-error
:format-control "Failed AVER: ~S"
Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -33,6 +33,9 @@
(require "COMPILER-PASS2")
+
+(export 'compile-file-if-needed)
+
(defvar *fbound-names*)
(defvar *class-number*)
Modified: trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-system.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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*
Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -7558,16 +7558,6 @@
-(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
Modified: trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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*)
Modified: trunk/abcl/src/org/armedbear/lisp/gui.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/gui.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/gui.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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")))
Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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")
Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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))
Modified: trunk/abcl/src/org/armedbear/lisp/run-program.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/run-program.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/run-program.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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>.
Modified: trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -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))
Modified: trunk/abcl/src/org/armedbear/lisp/search.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/search.lisp Sat Aug 18 04:06:14 2012 (r14120)
+++ trunk/abcl/src/org/armedbear/lisp/search.lisp Sat Aug 18 04:37:34 2012 (r14121)
@@ -33,6 +33,9 @@
(require "EXTENSIBLE-SEQUENCES-BASE")
+(export '(simple-search))
+
+
;; From CMUCL.
(eval-when (:compile-toplevel :execute)
More information about the armedbear-cvs
mailing list