cl-ipp

commit 06ca8cf654d5a699b2f79311ec862d14d82cb084
parent d383fa57abf1c5b27b3a56ae7a80686129c03770
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  7 Aug 2013 09:15:12 +0200

a few exports added

Diffstat:
M
ipp.lisp
 | 
41
++++++++++++++++++++++-------------------

1 file changed, 22 insertions(+), 19 deletions(-)
diff --git a/ipp.lisp b/ipp.lisp
@@ -21,7 +21,8 @@
 ;;; DEALINGS IN THE SOFTWARE.
 
 (defpackage :ipp
-  (:use :cl))
+  (:use :cl)
+  (:export :print-job))
 
 (in-package :ipp)
 
@@ -310,7 +311,8 @@
            :job-media-sheets ,job-media-sheets))))
 
 (defpackage :ipp.wget
-  (:use :cl))
+  (:use :cl)
+  (:export :ipp-client))
 
 (in-package :ipp.wget)
 
@@ -337,17 +339,18 @@
 
 #+nil
 (let ((ipp::*ipp-client* 'ipp-client))
-  (ipp::print-job "http://localhost:631/printers/Virtual_PDF_Printer"
-                  "request2.dat"
-                  "response2.dat"
-                  "test.txt"
-                  314
-                  "utf-8"
-                  "en"
-                  :requesting-user-name "tomas"))
+  (ipp:print-job "http://localhost:631/printers/Virtual_PDF_Printer"
+                 "request2.dat"
+                 "response2.dat"
+                 "test.txt"
+                 314
+                 "utf-8"
+                 "en"
+                 :requesting-user-name "tomas"))
 
 (defpackage :ipp.curl
-  (:use :cl))
+  (:use :cl)
+  (:export :ipp-client))
 
 (in-package :ipp.curl)
 
@@ -374,11 +377,11 @@
 
 #+nil
 (let ((ipp::*ipp-client* 'ipp-client))
-  (ipp::print-job "http://localhost:631/printers/Virtual_PDF_Printer"
-                  "request2.dat"
-                  "response2.dat"
-                  "test.txt"
-                  314
-                  "utf-8"
-                  "en"
-                  :requesting-user-name "tomas"))
+  (ipp:print-job "http://localhost:631/printers/Virtual_PDF_Printer"
+                 "request2.dat"
+                 "response2.dat"
+                 "test.txt"
+                 314
+                 "utf-8"
+                 "en"
+                 :requesting-user-name "tomas"))