cl-ipp

Internet Printing Protocol (IPP) for Common Lisp
git clone https://logand.com/git/cl-ipp.git/
Log | Files | Refs

commit d383fa57abf1c5b27b3a56ae7a80686129c03770
parent 0cd14153e2fdbc7a178eadb62286283de7331283
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  7 Aug 2013 09:13:10 +0200

no closure needed for ipp-client

Diffstat:
Mipp.lisp | 26++++++++++++--------------
1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/ipp.lisp b/ipp.lisp @@ -329,15 +329,14 @@ ;;(wget "http://localhost:631/printers/" :response-file "/tmp/a.html") ;; wget|curl|lisp-http-client driver/backend -(defun make-ipp-client () - (lambda (printer-uri request-file response-file) - (wget printer-uri - :request-file request-file - :response-file response-file - :content-type "application/ipp"))) +(defun ipp-client (printer-uri request-file response-file) + (wget printer-uri + :request-file request-file + :response-file response-file + :content-type "application/ipp")) #+nil -(let ((ipp::*ipp-client* (make-ipp-client))) +(let ((ipp::*ipp-client* 'ipp-client)) (ipp::print-job "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat" @@ -367,15 +366,14 @@ ;;(curl "http://localhost:631/printers/" :response-file "/tmp/a.html") ;; curl|curl|lisp-http-client driver/backend -(defun make-ipp-client () - (lambda (printer-uri request-file response-file) - (curl printer-uri - :request-file request-file - :response-file response-file - :content-type "application/ipp"))) +(defun ipp-client (printer-uri request-file response-file) + (curl printer-uri + :request-file request-file + :response-file response-file + :content-type "application/ipp")) #+nil -(let ((ipp::*ipp-client* (make-ipp-client))) +(let ((ipp::*ipp-client* 'ipp-client)) (ipp::print-job "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat"