[closure-cvs] CVS closure/src/glisp
dlichteblau
dlichteblau at common-lisp.net
Tue Jan 2 12:50:40 UTC 2007
Update of /project/closure/cvsroot/closure/src/glisp
In directory clnet:/tmp/cvs-serv14680
Modified Files:
dep-acl.lisp dep-clisp.lisp dep-cmucl.lisp dep-openmcl.lisp
dep-sbcl.lisp dep-scl.lisp package.lisp
Log Message:
removed all top-level calls to EXPORT in favour of the defpackage
--- /project/closure/cvsroot/closure/src/glisp/dep-acl.lisp 2007/01/02 12:43:08 1.5
+++ /project/closure/cvsroot/closure/src/glisp/dep-acl.lisp 2007/01/02 12:50:39 1.6
@@ -26,11 +26,6 @@
;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-(export 'glisp::read-byte-sequence :glisp)
-(export 'glisp::read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-(export 'glisp::getenv :glisp)
-
(defun glisp::read-byte-sequence (&rest ap)
(apply #'read-sequence ap))
--- /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp 2007/01/02 12:43:08 1.5
+++ /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp 2007/01/02 12:50:39 1.6
@@ -30,14 +30,6 @@
(setq lisp:*load-paths* '(#P"./"))
-(import 'lisp:read-byte-sequence :glisp)
-(export 'lisp:read-byte-sequence :glisp)
-(import 'lisp:read-char-sequence :glisp)
-(export 'lisp:read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-(export 'glisp::make-server-socket :glisp)
-
-
(defmacro glisp::with-timeout ((&rest ignore) &body body)
(declare (ignore ignore))
`(progn
@@ -48,6 +40,7 @@
(lisp:socket-connect port hostname)
:byte))
+(export 'glisp::make-server-socket :glisp)
(defun glisp:make-server-socket (port)
(lisp:socket-server port))
--- /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp 2007/01/02 12:43:08 1.5
+++ /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp 2007/01/02 12:50:39 1.6
@@ -26,15 +26,6 @@
;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-(export 'glisp::read-byte-sequence :glisp)
-(export 'glisp::read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-
-(export 'glisp::getenv :glisp)
-
-(export 'glisp::make-server-socket :glisp)
-(export 'glisp::close-server-socket :glisp)
-
(defun glisp::read-byte-sequence (&rest ap)
(apply #'read-sequence ap))
@@ -85,6 +76,7 @@
element-type
port)
+(export 'glisp::make-server-socket :glisp)
(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8)))
(make-server-socket-struct :fd (ext:create-inet-listener port)
:element-type element-type
@@ -101,6 +93,7 @@
(t
:char))))
+(export 'glisp::close-server-socket :glisp)
(defun glisp::close-server-socket (socket)
(unix:unix-close (server-socket-fd socket)))
--- /project/closure/cvsroot/closure/src/glisp/dep-openmcl.lisp 2007/01/02 12:47:30 1.4
+++ /project/closure/cvsroot/closure/src/glisp/dep-openmcl.lisp 2007/01/02 12:50:39 1.5
@@ -26,15 +26,6 @@
;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-(export 'glisp::read-byte-sequence :glisp)
-(export 'glisp::read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-
-(export 'glisp::getenv :glisp)
-
-(export 'glisp::make-server-socket :glisp)
-(export 'glisp::close-server-socket :glisp)
-
(defun glisp::read-byte-sequence (&rest ap)
(apply #'read-sequence ap))
@@ -61,6 +52,7 @@
#||
+(export 'glisp::make-server-socket :glisp)
(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8)))
(make-server-socket-struct :fd (ext:create-inet-listener port)
:element-type element-type
@@ -78,6 +70,7 @@
(t
:char))))
+(export 'glisp::close-server-socket :glisp)
(defun glisp::close-server-socket (socket)
(unix:unix-close (server-socket-fd socket)))
||#
--- /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2006/12/31 15:42:40 1.5
+++ /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2007/01/02 12:50:39 1.6
@@ -26,15 +26,6 @@
;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-(export 'glisp::read-byte-sequence :glisp)
-(export 'glisp::read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-
-(export 'glisp::getenv :glisp)
-
-(export 'glisp::make-server-socket :glisp)
-(export 'glisp::close-server-socket :glisp)
-
(defun glisp::read-byte-sequence (&rest ap)
(apply #'read-sequence ap))
@@ -67,6 +58,7 @@
#||
+(export 'glisp::make-server-socket :glisp)
(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8)))
(make-server-socket-struct :fd (ext:create-inet-listener port)
:element-type element-type
@@ -84,6 +76,7 @@
(t
:char))))
+(export 'glisp::close-server-socket :glisp)
(defun glisp::close-server-socket (socket)
(unix:unix-close (server-socket-fd socket)))
||#
--- /project/closure/cvsroot/closure/src/glisp/dep-scl.lisp 2007/01/02 12:43:08 1.3
+++ /project/closure/cvsroot/closure/src/glisp/dep-scl.lisp 2007/01/02 12:50:39 1.4
@@ -26,12 +26,6 @@
;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-(export 'glisp::read-byte-sequence :glisp)
-(export 'glisp::read-char-sequence :glisp)
-(export 'glisp::run-unix-shell-command :glisp)
-
-(export 'glisp::getenv :glisp)
-
(defun glisp::read-byte-sequence (&rest ap)
(apply #'read-sequence ap))
--- /project/closure/cvsroot/closure/src/glisp/package.lisp 2006/12/31 15:42:40 1.8
+++ /project/closure/cvsroot/closure/src/glisp/package.lisp 2007/01/02 12:50:39 1.9
@@ -119,7 +119,13 @@
;; match.lisp
"DEFINE-MATCH-MACRO"
"IF-MATCH"
- "GSTREAM-AS-STRING"))
+ "GSTREAM-AS-STRING"
+
+ ;; dep-*
+ "READ-BYTE-SEQUENCE"
+ "READ-CHAR-SEQUENCE"
+ "RUN-UNIX-SHELL-COMMAND"
+ "GETENV"))
(defpackage "GLUSER"
(:use "CL" "GLISP"))
More information about the Closure-cvs
mailing list