Skip to content
Snippets Groups Projects
Commit db12154d authored by Raymond Toy's avatar Raymond Toy
Browse files

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

expected.
parent 11ecbb80
No related branches found
No related tags found
No related merge requests found
...@@ -294,6 +294,9 @@ ...@@ -294,6 +294,9 @@
"UNIX-FCHMOD" "UNIX-FCHMOD"
"UNIX-CREAT" "UNIX-CREAT"
"UNIX-UTIMES" "UNIX-UTIMES"
;; Tests
"UNIX-SYMLINK"
)) ))
(defpackage "FORMAT") (defpackage "FORMAT")
......
...@@ -1884,6 +1884,14 @@ ...@@ -1884,6 +1884,14 @@
nfds (frob rdfds rdf) (frob wrfds wrf) (frob xpfds xpf) nfds (frob rdfds rdf) (frob wrfds wrf) (frob xpfds xpf)
(if to-secs (alien-sap (addr tv)) (int-sap 0)))))) (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 (def-alien-type nil
(struct timeval (struct timeval
(tv-sec #-linux time-t #+linux int) ; seconds (tv-sec #-linux time-t #+linux int) ; seconds
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment