Changeset 14121

Timestamp:

08/18/12 11:37:34 (11 years ago)

Author:

ehuelsmann

Message:

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.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• autoloads.lisp (modified) (1 diff)
• aver.lisp (modified) (1 diff)
• compile-file.lisp (modified) (1 diff)
• compile-system.lisp (modified) (1 diff)
• compiler-pass2.lisp (modified) (1 diff)
• describe-compiler-policy.lisp (modified) (1 diff)
• gui.lisp (modified) (2 diffs)
• jvm.lisp (modified) (1 diff)
• precompiler.lisp (modified) (1 diff)
• run-program.lisp (modified) (1 diff)
• run-shell-command.lisp (modified) (1 diff)
• search.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

@@ -55 +55 @@
 ;; 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)
 
 

trunk/abcl/src/org/armedbear/lisp/aver.lisp

@@ -34 +34 @@
 (in-package "SYSTEM")
 
+(export 'aver)
+
 (defun %failed-aver (expr-as-string)
   (error 'simple-error

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -33 +33 @@
 
 (require "COMPILER-PASS2")
+
+
+(export 'compile-file-if-needed)
 
 (defvar *fbound-names*)

trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

@@ -35 +35 @@
 (require "COLLECT")
 (require "COMPILE-FILE")
+
+(export '(grovel-java-definitions-in-file compile-system))
+
 
 (defun check-lisp-home ()

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -7559 +7559 @@
 
 
-(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

trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp

@@ -31 +31 @@
 (in-package "SYSTEM")
 
+(export 'describe-compiler-policy)
+
 (defun describe-compiler-policy ()
   (format t "~&; Compiler policy: safety ~D, space ~D, speed ~D, debug ~D~%"

trunk/abcl/src/org/armedbear/lisp/gui.lisp

@@ -2 +2 @@
 
 (require :java)
+
+(export '(*gui-backend* init-gui make-dialog-prompt-stream))
+
 
 (defvar *gui-backend* :swing)
@@ -16 +19 @@
 (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")))
+              "org.armedbear.lisp.java.awt.AwtDialogPromptStream")))

trunk/abcl/src/org/armedbear/lisp/jvm.lisp

@@ -32 +32 @@
 (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")

trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

@@ -1051 +1051 @@
 
 (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)

trunk/abcl/src/org/armedbear/lisp/run-program.lisp

@@ -33 +33 @@
 
 (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. 

trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp

@@ -32 +32 @@
 (in-package "SYSTEM")
 
+(export '(run-shell-command))
+
 (defun run-shell-command (command &key directory (output *standard-output*))
   (%run-shell-command command directory output))

trunk/abcl/src/org/armedbear/lisp/search.lisp

@@ -33 +33 @@
 
 (require "EXTENSIBLE-SEQUENCES-BASE")
+
+(export '(simple-search))
+
 
 ;; From CMUCL.