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"))