Changeset 14106

Timestamp:

08/17/12 10:45:00 (8 years ago)

Author:

ehuelsmann

Message:

Move exports from the THREADS package to threads.lisp.
Move sockets related exports to socket.lisp, fixing symbol references

to refer to the EXTENSIONS package instead of SYSTEM.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• autoloads.lisp (modified) (1 diff)
• ed.lisp (modified) (1 diff)
• socket.lisp (modified) (2 diffs)
• threads.lisp (modified) (1 diff)

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

@@ -85 +85 @@
 (autoload 'process-kill "run-program")
 
-(export 'make-socket)
-(export 'make-server-socket)
-(export 'server-socket-close)
-(export 'socket-accept)
-(export 'socket-close)
-(export 'get-socket-stream)
-(export 'socket-peer-port)
-(export 'socket-local-port)
-(export 'socket-local-address)
-(export 'socket-peer-address)
-
-(in-package "THREADS")
-
-(export '(make-mailbox mailbox-send mailbox-empty-p
-          mailbox-read mailbox-peek))
-(export '(make-thread-lock with-thread-lock))
-(export '(make-mutex get-mutex release-mutex with-mutex))
-
-
-(in-package "EXTENSIONS")
 
 (export '(grovel-java-definitions compile-system))

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

@@ -58 +58 @@
     (when (probe-file portfile)
       (let* ((port (with-open-file (s portfile) (read s nil nil)))
-             (socket (and (integerp port) (make-socket "127.0.0.1" port))))
-        (setf stream (and socket (get-socket-stream socket)))))
+             (socket (and (integerp port) (ext:make-socket "127.0.0.1" port))))
+        (setf stream (and socket (ext:get-socket-stream socket)))))
     (unwind-protect
      (cond ((stringp what)

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

@@ -30 +30 @@
 ;;; exception statement from your version.
 
-(in-package "SYSTEM")
+(in-package "EXTENSIONS")
+
+(export '(make-socket make-server-socket server-socket-close socket-accept
+          socket-close get-socket-stream socket-peer-port socket-local-port
+          socket-local-address socket-peer-address))
+
 
 (defun get-socket-stream (socket &key (element-type 'character) (external-format :default))
@@ -43 +48 @@
                 :format-control
                 ":ELEMENT-TYPE must be CHARACTER or (UNSIGNED-BYTE 8).")))
-  (%socket-stream socket element-type external-format))
+  (sys::%socket-stream socket element-type external-format))
 
 (defun make-socket (host port)
-  (%make-socket host port))
+  (sys::%make-socket host port))
 
 (defun make-server-socket (port)
-  (%make-server-socket port))
+  (sys::%make-server-socket port))
 
 (defun socket-accept (socket)
-  (%socket-accept socket))
+  (sys::%socket-accept socket))
 
 (defun socket-close (socket)
-  (%socket-close socket))
+  (sys::%socket-close socket))
 
 (defun server-socket-close (socket)
-  (%server-socket-close socket))
+  (sys::%server-socket-close socket))
 
 (declaim (inline %socket-address %socket-port))

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

@@ -32 +32 @@
 
 (in-package #:threads)
+
+
+(export '(make-mailbox mailbox-send mailbox-empty-p
+          mailbox-read mailbox-peek
+          make-thread-lock with-thread-lock
+          make-mutex get-mutex release-mutex with-mutex))