(defun read-sexps-in-buffer (buffer)

(defun fwoar:read-sexps-in-buffer (buffer)

(defun read-sexps-in-file (fn)

(defun fwoar:read-sexps-in-file (fn)

(defun read-strings-in-file (fn)

(defun fwoar:read-strings-in-file (fn)

(defun op--collect-args (body)

(defun fwoar::op--collect-args (body)

                    (if (null body)
                        args
                      (if (symbolp body)
                          (when (eql ?\_ (elt (symbol-name body) 0))
                            (cons body args))
                        (if (listp body)
                            (append (op--collect-args (car body))
                                    (op--collect-args (cdr body))
                                    ))))))

              (if (null body)
                  args
                (if (symbolp body)
                    (when (eql ?\_ (elt (symbol-name body) 0))
                      (cons body args))
                  (if (listp body)
                      (append (fwoar::op--collect-args (car body))
                              (fwoar::op--collect-args (cdr body))
                              ))))))

(defmacro op (&rest body)
  `(lambda ,(op--collect-args body)

(defmacro fwoar:op (&rest body)
  `(lambda ,(fwoar::op--collect-args body)

(defun blank-line-p ()

(defun fwoar:blank-line-p ()

     (- (line-end-position) (line-beginning-position))))

     (- (line-end-position)
        (line-beginning-position))))

(defun helm-generate-lisp-skeleton ()

(defun fwoar:helm-generate-lisp-skeleton ()

        (:use (remove-if (op (or (eql :cl _)))

        (:use (remove-if (fwoar:op (or (eql :cl _)))

                                 (:use :cl :alexandria :serapeum)
                                 (:export)))))))))

                                           (:use :cl :alexandria :serapeum)
                                           (:export)))))))))

      (read-strings-in-file fn))))

      (fwoar:read-strings-in-file fn))))

                              (car (read-sexps-in-file "~/.pastebin-name"))))

                              (car (fwoar:read-sexps-in-file "~/.pastebin-name"))))

                                    (cadr (read-sexps-in-file "~/.pastebin-name")))))

                                    (cadr (fwoar:read-sexps-in-file "~/.pastebin-name")))))

  (evil-define-key 'normal 'global (kbd "<leader>g") 'helm-generate-lisp-skeleton)
  (evil-define-key 'visual 'global (kbd "<leader>g") 'helm-generate-lisp-skeleton))

  (evil-define-key 'normal 'global (kbd "<leader>g") 'fwoar:helm-generate-lisp-skeleton)
  (evil-define-key 'visual 'global (kbd "<leader>g") 'fwoar:helm-generate-lisp-skeleton))

                      (car (read-sexps-in-file "~/.pastebin-name"))))

                      (car (fwoar:read-sexps-in-file "~/.pastebin-name"))))