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

(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"))
A-M baby 2013-04-10 21:29:02 -07:00			`(defun get-host-name ()`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`#+(or sbcl ccl) (machine-instance)`
A-M baby 2013-04-10 21:29:02 -07:00			`#+clisp (let ((s (machine-instance))) (subseq s 0 (position #\Space s)))`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`#-(or sbcl ccl clisp) (error "get-host-name not implemented"))`