cl-ipp

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:
M
ipp.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"