From 251a76738ebc5ce42dbe1cef15d4b7d800ccfebf Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 16 Oct 2004 23:49:05 +0000
Subject: [PATCH] Export some symbols from the unix package that we export
 there.

---
 code/exports.lisp | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 8aacab0cd..3a52e9c69 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -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.236 2004/09/24 14:59:53 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.237 2004/10/16 23:49:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -329,7 +329,23 @@
 	   "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID"
 	   "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID"
 	   "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL"
-	   "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS"))
+	   "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS")
+  #+ppc
+  (:export "UNIX-GETPWUID"
+	   "USER-INFO"
+	   "USER-INFO-SHELL"
+	   "USER-INFO-GECOS"
+	   "UNIX-GETPWNAM"
+	   "GROUP-INFO-NAME"
+	   "GROUP-INFO-MEMBERS"
+	   "USER-INFO-NAME"
+	   "USER-INFO-PASSWORD"
+	   "GROUP-INFO"
+	   "USER-INFO-UID"
+	   "USER-INFO-DIR"
+	   "USER-INFO-GID"
+	   "GROUP-INFO-GID")
+  )
   
 (defpackage "FORMAT")
 
-- 
GitLab