(defun read-evaluated-form (&optional (prompt-control nil promptp)
                            &rest prompt-args)
  (apply #'format *query-io*
         (if promptp prompt-control "~&Enter a form to be evaluated: ")
         prompt-args)
  (finish-output *query-io*)
  (list (eval (read *query-io*))))

 (let ((fn (merge-pathnames (make-pathname :directory `(:relative ,conf-dir)
                                           :name filename)
                            (user-homedir-pathname))))
   (when (probe-file fn)
     (load fn)))

  (let ((fn (merge-pathnames (make-pathname :directory `(:relative ,conf-dir)
                                            :name filename
                                            :type "lisp")
                             (user-homedir-pathname))))
    (tagbody
     top
       (restart-case (if (probe-file fn)
                         (load fn)
                         (cerror "skip this init file" "file ~s not found" fn))
         (store-value (value)
           :report (lambda (stream)
                     (format stream "Supply a new value for ~S." filename))
           :interactive read-evaluated-form
           (setf fn value)
           (goto top))))))

(ql:quickload :lw-add-ons)

                   "Move past the next close parenthesis.

  "Move past the next close parenthesis.

                   "Move past the next close parenthesis."
                   (declare (ignore p))
                   (let ((point (editor:current-point)))
                     (editor:with-point ((m point))
                       (cond ((editor::forward-up-list m)
                              (editor:move-point point m)
                              (editor::point-before point)
                              (loop (editor:with-point ((back point))
                                      (editor::back-to-indentation back)
                                      (unless (editor:point= back point)
                                        (return)))
                                    (editor::delete-indentation point))
                              (editor::point-after point))
                             (t (editor:editor-error))))))

  (declare (ignore p))
  (let ((point (editor:current-point)))
    (editor:with-point ((m point))
      (cond ((editor::forward-up-list m)
             (editor:move-point point m)
             (editor::point-before point)
             (loop (editor:with-point ((back point))
                     (editor::back-to-indentation back)
                     (unless (editor:point= back point)
                       (return)))
                   (editor::delete-indentation point))
             (editor::point-after point))
            (t (editor:editor-error))))))

(ql:quickload :lw-add-ons)