Standard Declarations

17

Transducers

(DEFINE-TRANSDUCER tdcr/known-url->

(lambda (infochunk)

(let* ((url (infochunk/data infochunk))

(url-protocol (url/protocol url))

(url-host (string-downcase

(url/host-name url)))

(url-port (url/port url)))

(let ((new-infochunk

(make-infochunk

(list url-protocol url-host url-port)

'((known webserver)))))

(ANNOUNCE-AND-LINK new-infochunk))))

)

Previous slide

Next slide

Back to first slide

View graphic version