Changeset 14121


Ignore:
Timestamp:
08/18/12 11:37:34 (8 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:
12 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r14120 r14121  
    5555;; Extensions.
    5656(in-package "EXTENSIONS")
    57 (export 'simple-search)
    58 (export 'run-shell-command)
    59 (autoload 'run-shell-command)
    60 (export 'run-program)
    61 (autoload 'run-program)
    62 (export 'process) ;; Not a function, but a DEFSTRUCT
    63 (export 'process-p)
    64 (autoload 'process-p "run-program")
    65 (export 'process-input)
     57
     58;; due to the macro-expansion of DEFSTRUCT,
     59;; slot accessors aren't being "detected"
    6660(autoload 'process-input "run-program")
    67 (export 'process-output)
    6861(autoload 'process-output "run-program")
    69 (export 'process-error)
    7062(autoload 'process-error "run-program")
    71 (export 'process-alive-p)
    72 (autoload 'process-alive-p "run-program")
    73 (export 'process-wait)
    74 (autoload 'process-wait "run-program")
    75 (export 'process-exit-code)
    76 (autoload 'process-exit-code "run-program")
    77 (export 'process-kill)
    78 (autoload 'process-kill "run-program")
    7963
    80 
    81 (export '(grovel-java-definitions compile-system))
    82 (export 'aver)
    83 (export 'collect)
    84 (export 'compile-file-if-needed)
    85 (export 'describe-compiler-policy)
    86 (export 'macroexpand-all)
    87 
    88 (export '*gui-backend*)
    89 (export 'init-gui)
    90 (export 'make-dialog-prompt-stream)
    91 
    92 ;; JVM compiler.
    93 (in-package "JVM")
    94 (export '(jvm-compile-package))
    95 
    96 (in-package "LISP")
    97 (export 'compiler-let)
    9864
    9965
  • trunk/abcl/src/org/armedbear/lisp/aver.lisp

    r11391 r14121  
    3434(in-package "SYSTEM")
    3535
     36(export 'aver)
     37
    3638(defun %failed-aver (expr-as-string)
    3739  (error 'simple-error
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r14116 r14121  
    3333
    3434(require "COMPILER-PASS2")
     35
     36
     37(export 'compile-file-if-needed)
    3538
    3639(defvar *fbound-names*)
  • trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

    r14119 r14121  
    3535(require "COLLECT")
    3636(require "COMPILE-FILE")
     37
     38(export '(grovel-java-definitions-in-file compile-system))
     39
    3740
    3841(defun check-lisp-home ()
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r14111 r14121  
    75597559
    75607560
    7561 (defun jvm-compile-package (package-designator)
    7562   (let ((pkg (if (packagep package-designator)
    7563                  package-designator
    7564                  (find-package package-designator))))
    7565       (dolist (sym (sys::package-symbols pkg))
    7566         (when (fboundp sym)
    7567           (unless (or (special-operator-p sym) (macro-function sym))
    7568             (jvm-compile sym)))))
    7569   t)
    7570 
    75717561(defun initialize-p2-handlers ()
    75727562  (mapc #'install-p2-handler '(declare
  • trunk/abcl/src/org/armedbear/lisp/describe-compiler-policy.lisp

    r11391 r14121  
    3131(in-package "SYSTEM")
    3232
     33(export 'describe-compiler-policy)
     34
    3335(defun describe-compiler-policy ()
    3436  (format t "~&; Compiler policy: safety ~D, space ~D, speed ~D, debug ~D~%"
  • trunk/abcl/src/org/armedbear/lisp/gui.lisp

    r12749 r14121  
    22
    33(require :java)
     4
     5(export '(*gui-backend* init-gui make-dialog-prompt-stream))
     6
    47
    58(defvar *gui-backend* :swing)
     
    1619(defmethod %make-dialog-prompt-stream ((gui-backend (eql :swing)))
    1720  (java:jnew (java:jconstructor
    18         "org.armedbear.lisp.java.swing.SwingDialogPromptStream")))
     21              "org.armedbear.lisp.java.swing.SwingDialogPromptStream")))
    1922
    2023(defmethod %make-dialog-prompt-stream ((gui-backend (eql :awt)))
    2124  (java:jnew (java:jconstructor
    22         "org.armedbear.lisp.java.awt.AwtDialogPromptStream")))
     25              "org.armedbear.lisp.java.awt.AwtDialogPromptStream")))
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r14111 r14121  
    3232(in-package "JVM")
    3333
    34 (export '(compile-defun *catch-errors* jvm-compile-package
    35           derive-compiler-type))
     34(export '(compile-defun *catch-errors* derive-compiler-type))
    3635
    3736(require "JVM-CLASS-FILE")
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r14109 r14121  
    10511051
    10521052(in-package #:ext)
     1053
     1054(export 'macroexpand-all)
     1055
    10531056(defun macroexpand-all (form &optional env)
    10541057  (precompiler:precompile-form form t env))
    10551058
    10561059(in-package #:lisp)
     1060
     1061(export '(compiler-let))
    10571062
    10581063(defmacro compiler-let (bindings &body forms &environment env)
  • trunk/abcl/src/org/armedbear/lisp/run-program.lisp

    r13899 r14121  
    3333
    3434(require "JAVA")
     35
     36(export '(run-program process process-p process-input process-output
     37          process-error process-alive-p process-wait process-exit-code
     38          process-kill))
    3539
    3640;;; Vaguely inspired by sb-ext:run-program in SBCL.
  • trunk/abcl/src/org/armedbear/lisp/run-shell-command.lisp

    r11391 r14121  
    3232(in-package "SYSTEM")
    3333
     34(export '(run-shell-command))
     35
    3436(defun run-shell-command (command &key directory (output *standard-output*))
    3537  (%run-shell-command command directory output))
  • trunk/abcl/src/org/armedbear/lisp/search.lisp

    r12516 r14121  
    3333
    3434(require "EXTENSIBLE-SEQUENCES-BASE")
     35
     36(export '(simple-search))
     37
    3538
    3639;; From CMUCL.
Note: See TracChangeset for help on using the changeset viewer.