[bugfix] preamble was deleted, [add]generate-client-functions-for-app

1 files changed, 5 insertions, 3 deletions

diff --git a/lazybones-client.lisp b/lazybones-client.lisp
index 87f5e90..955ed6d 100644
--- a/lazybones-client.lisp
+++ b/lazybones-client.lisp
@@ -166,6 +166,9 @@ makes a request to the endpoint EP."
 (defun client-lisp-file-name (app)
   (format nil "~a.lisp" (string-downcase (app-client-package-name app))))
 
+(defun generate-client-functions-for-app (app)
+  (mapcar 'generate-defun-for-endpoint (lazybones::app-endpoints app)))
+
 (defun generate-client-system (directory app)
   (assert (uiop:directory-exists-p directory))
 
@@ -177,10 +180,9 @@ makes a request to the endpoint EP."
    (with-output-to-string (*standard-output*)
      (princ (generate-defpackage-for-client-of-app app))
      (princ #\newline) (princ #\newline)
-     (princ +preamble+)
      (princ #\newline) (princ #\newline)
-     (dolist (form (generate-client-functions-for-app app))
-       (print form)
+     (dolist (defun-string (generate-client-functions-for-app app))
+       (princ defun-string)
        (princ #\newline) (princ #\newline)))
    (merge-pathnames (client-lisp-file-name app) directory))
   :ok)