(define (port-valid? p) "Checks if port code is a valid port." ;; CL-Hurd checks whether p is a number, ;; and not whether it is an integer, ;; but I doubt the Hurd has fractional ports. (and (exact-integer? p) (> p 0)))
