[cmucl-cvs] CMUCL commit: src/code (exports.lisp)

[Raymond Toy]

    Date: Thursday, December 9, 2010 @ 09:01:01
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: exports.lisp

Export some UNIX symbols for FreeBSD to get rid of a build warning.


--------------+
 exports.lisp |   19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)


Index: src/code/exports.lisp
diff -u src/code/exports.lisp:1.302 src/code/exports.lisp:1.303
--- src/code/exports.lisp:1.302	Wed Nov 10 14:51:23 2010
+++ src/code/exports.lisp	Thu Dec  9 09:01:01 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.302 2010-11-10 19:51:23 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.303 2010-12-09 14:01:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -338,6 +338,23 @@
 	   "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")
+  #+freebsd
+  (:export "GROUP-INFO"
+	   "GROUP-INFO-GID"
+	   "GROUP-INFO-MEMBERS"
+	   "GROUP-INFO-NAME"
+	   "UNIX-GETGRGID"
+	   "UNIX-GETGRNAM"
+	   "UNIX-GETPWNAM"
+	   "UNIX-GETPWUID"
+	   "USER-INFO"
+	   "USER-INFO-DIR"
+	   "USER-INFO-GECOS"
+	   "USER-INFO-GID"
+	   "USER-INFO-NAME"
+	   "USER-INFO-PASSWORD"
+	   "USER-INFO-SHELL"
+	   "USER-INFO-UID")
   #+ppc
   (:export "UNIX-GETPWUID"
 	   "USER-INFO"