Skip to content
Snippets Groups Projects
Commit 335ca24f authored by emarsden's avatar emarsden
Browse files

 - various package-related cleanups. PROFILE and CLX packages use
   COMMON-LISP instead of LISP.
parent 6ae83779
No related branches found
No related tags found
No related merge requests found
......@@ -12,14 +12,14 @@
;;; written prior permission.
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/package.lisp,v 1.5 1999/03/16 23:37:47 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/package.lisp,v 1.6 2004/03/23 12:16:47 emarsden Exp $")
;;; The ANSI Common Lisp way
(common-lisp:in-package :common-lisp-user)
(defpackage xlib
(:use common-lisp)
(defpackage :xlib
(:use :common-lisp)
(:size 3000)
(:export
*version* access-control access-error access-hosts
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.228 2003/11/05 15:25:37 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.229 2004/03/23 12:16:47 emarsden Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -156,7 +156,7 @@
(use-package '("EXTENSIONS" "LISP") "SYSTEM")
(use-package '("SYSTEM" "EXTENSIONS" "LISP") "ALIEN")
(use-package '("LISP") "ALIEN-INTERNALS")
(use-package '("LISP") "PROFILE")
(use-package '("COMMON-LISP") "PROFILE")
(use-package '("EXTENSIONS" "COMMON-LISP") "COMMON-LISP-USER")
(use-package '("ALIEN-INTERNALS" "LISP" "EXTENSIONS" "SYSTEM" "BIGNUM")
"KERNEL")
......
......@@ -7,7 +7,7 @@
;;; contact Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.8 2003/04/11 12:09:10 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.9 2004/03/23 12:16:49 emarsden Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -69,7 +69,7 @@
(ext:connect-to-inet-socket host (+ *xt-tcp-port*
(unix:unix-getuid)))))
(handler-case
(ext::connect-to-unix-socket
(ext:connect-to-unix-socket
(if pid
(format nil "/tmp/.motif_socket-p~D" pid)
(format nil "/tmp/.motif_socket-u~D" (unix:unix-getuid))))
......
......@@ -3,7 +3,7 @@
;;; **********************************************************************
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.28 2003/11/25 22:07:29 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.29 2004/03/23 12:16:48 emarsden Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -14,7 +14,7 @@
(when (find-package "XLIB")
(rename-package (find-package "XLIB") "OLD-XLIB"))
(make-package "XLIB" :use '("LISP")))
(make-package "XLIB" :use '("COMMON-LISP")))
#+(and (not pcl) (not no-pcl-clx))
(progn
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment