134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
-
-
-
-
-
-
-
|
(current-process-id)
ipaddrstr portnum 0 'live 'http)
(print "INFO: Trying to start server on " ipaddrstr ":" portnum)
;; This starts the spiffy server
(start-server port: portnum)
(print "INFO: server has been stopped")))
(define (http-transport:mk-signature)
(message-digest-string (md5-primitive)
(with-output-to-string
(lambda ()
(write (list (current-directory)
(argv)))))))
|