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