5 lines
207 B
Common Lisp
5 lines
207 B
Common 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"))
|