[Cmucl-cvs] [git] CMU Common Lisp branch rtoy-unix-core updated. snapshot-2014-11-18-gdb12154

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, rtoy-unix-core has been updated
       via  db12154da8871000bdfd64e4b11e0a54b9f36d07 (commit)
      from  11ecbb802bbf4758df3e4f0e45faeb912bcc1e72 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit db12154da8871000bdfd64e4b11e0a54b9f36d07
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Nov 18 21:35:46 2014 -0800

    Add UNIX-SYMLINK. This allows the testsuite to run. Tests behave as
    expected.

diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index 197af66..4bd2140 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -294,6 +294,9 @@
 	   "UNIX-FCHMOD"
 	   "UNIX-CREAT"
 	   "UNIX-UTIMES"
+
+	   ;; Tests
+	   "UNIX-SYMLINK"
 	   ))
   
 (defpackage "FORMAT")
diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 968194c..7ccf98f 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -1884,6 +1884,14 @@
 	       nfds (frob rdfds rdf) (frob wrfds wrf) (frob xpfds xpf)
 	       (if to-secs (alien-sap (addr tv)) (int-sap 0))))))
 
+(defun unix-symlink (name1 name2)
+  _N"Unix-symlink creates a symbolic link named name2 to the file
+   named name1.  NIL and an error number is returned if the call
+   is unsuccessful."
+  (declare (type unix-pathname name1 name2))
+  (void-syscall ("symlink" c-string c-string)
+		(%name->file name1) (%name->file name2)))
+
 (def-alien-type nil
   (struct timeval
     (tv-sec #-linux time-t #+linux int)		; seconds

-----------------------------------------------------------------------

Summary of changes:
 src/code/exports.lisp | 3 +++
 src/code/unix.lisp    | 8 ++++++++
 2 files changed, 11 insertions(+)


hooks/post-receive
-- 
CMU Common Lisp