[mel-base-devel] CLISP Windows Patches

[Chui Tey]

Environment.lisp:
#+(and :clisp :unix)
(defun gethostname ()
  (posix:uname-nodename (posix:uname)))
	
#+(and :clisp :win32)
(ffi:def-call-out c-gethostname
    (:name \"gethostname\")
    (:arguments
        (name (ffi:c-ptr
            (ffi:c-array-max ffi:char 256)) :out :alloca)
        (len ffi:int))
    (:language :stdc)
    (:return-type ffi:int)
    (:library "wsock32.dll"))
	
#+(and :clisp :win32)
(defun gethostname ()
    "Returns the hostname"
    (multiple-value-bind (success name) (c-gethostname 256)
        (if (zerop success)
                 (ext:convert-string-from-bytes name
custom:*FOREIGN-ENCODING*)
            (error (strerr errno)))))


Rfc822.lisp:
                  ((#\space #\tab #-(or clisp abcl openmcl) #\vt) (loop (let
((c (get-char)))
                                                (case c
                                                  ((#\space #\tab #-(or
clisp abcl openmcl) #\vt) nil)

Chui Tey