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@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