Data commit

Task/Hostname/Common-Lisp/hostname-1.lisp

@@ -0,0 +1,4 @@
+(defun get-host-name ()
+    #+(or sbcl ccl) (machine-instance)
+    #+clisp (let ((s (machine-instance))) (subseq s 0 (position #\Space s)))
+    #-(or sbcl ccl clisp) (error "get-host-name not implemented"))

Task/Hostname/Common-Lisp/hostname-2.lisp

@@ -0,0 +1,8 @@
+(cffi:defcfun ("gethostname" c-gethostname) :int
+  (buf :pointer) (len :unsigned-long))
+
+(defun get-hostname ()
+  (cffi:with-foreign-object (buf :char 256)
+    (unless (zerop (c-gethostname buf 256))
+      (error "Can't get hostname"))
+    (values (cffi:foreign-string-to-lisp buf))))

Task/Hostname/Common-Lisp/hostname-3.lisp

@@ -0,0 +1,2 @@
+BOA> (get-hostname)
+"aurora"