(legit:clone git-url
                 (ensure-directories-exist target))))

    (unless (probe-file target)
      (legit:clone git-url
                   (ensure-directories-exist target)))
    (directory (merge-pathnames (make-pathname :directory (list :relative :wild-inferiors)
                                               :name :wild
                                               :type "asd")
                                target))))

           (trivial-ssh:key "git" "Users/edwlan/.ssh/id_ed25519"))
      (libssh2:with-execute (s c "info")
        (let ((libssh2:*channel-read-zero-as-eof* t))
          (loop for line = (read-line s nil)
                while line
                when (serapeum:string-prefix-p " " line)
                  collect line))))))

         (trivial-ssh:key "git" "Users/edwlan/.ssh/id_ed25519"))
        (libssh2:with-execute (s c "info")
          (let ((libssh2:*channel-read-zero-as-eof* t))
            (loop for line = (read-line s nil)
                  while line
                  when (serapeum:string-prefix-p " " line)
                    collect line))))))

(defun fwoar-proj (coordinate)

(defun gf (coordinate)

      (load quicklisp-init)))

      (load quicklisp-init))
    nil)

  (require :sb-aclrepl)
  (when (and (interactive-stream-p *terminal-io*) 
             (find-package 'sb-aclrepl))
    (push :aclrepl cl:*features*))
  (asdf:load-asd (truename "~/.sbcl.asd"))
  (ql:quickload :fwoar-sbcl)
  nil)

    (ql:quickload :cffi)
    (ql:quickload :cffi-toolchain)
    nil)
#.(progn
    (push (format nil
                  "-I~a"
                  (namestring
                    (merge-pathnames (make-pathname
                                       :directory '(:relative
                                                     ".nix-profile"
                                                     "include"))
                                     (user-homedir-pathname))))
          cffi-toolchain:*cc-flags*)
    nil)
(push (merge-pathnames (make-pathname :directory '(:relative ".nix-profile" "lib"))
                       (user-homedir-pathname))
      cffi:*foreign-library-directories*)
#.(progn
    (require :sb-aclrepl)
    (when (and (interactive-stream-p *terminal-io*)
               (find-package 'sb-aclrepl))
      (push :aclrepl cl:*features*))
    (asdf:load-asd (truename "~/.sbcl.asd"))
    (ql:quickload :fwoar-sbcl)
    nil)

  (:export :*term-size*)
  #.(append '(:mix :cl)
           (mapcar #'package-name (package-use-list :cl-user))
           '(:alexandria :serapeum :fw.lu)))

      (:export :*term-size*)
    #.(append '(:mix :cl)
              (mapcar #'package-name (package-use-list :cl-user))
              '(:alexandria :serapeum :fw.lu)))

                   (cffi:with-foreign-slots ((ws_row ws_col) ptr (:struct winsize))
                     (list ws_row ws_col))
                   (format t "~&error~%"))))))

                     (cffi:with-foreign-slots ((ws_row ws_col) ptr (:struct winsize))
                       (list ws_row ws_col))
                     (format t "~&error~%"))))))

 (when (member "--linedit" sb-ext:*posix-argv* :test 'equal)
   (when (interactive-stream-p *terminal-io*)
     (trace sb-unix:unix-isatty)
     (when (= 1 (sb-unix:unix-isatty 0))
       #-(and darwin arm64)
       (destructuring-bind (height width) (get-term-size)
         (defparameter fwoar-user::*term-size* (list height width))
         (setf sb-ext:*posix-argv* (remove "--no-linedit" sb-ext:*posix-argv* :test 'equal)
               *print-right-margin* (- width 10))))
     (require :sb-aclrepl)
     (require :sb-introspect)
     
     (require :linedit)
     (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t))))

  (when (member "--linedit" sb-ext:*posix-argv* :test 'equal)
    (when (interactive-stream-p *terminal-io*)
      (trace sb-unix:unix-isatty)
      (when (= 1 (sb-unix:unix-isatty 0))
        #-(and darwin arm64)
        (destructuring-bind (height width) (get-term-size)
          (defparameter fwoar-user::*term-size* (list height width))
          (setf sb-ext:*posix-argv* (remove "--no-linedit" sb-ext:*posix-argv* :test 'equal)
                *print-right-margin* (- width 10))))
      (require :sb-aclrepl)
      (require :sb-introspect)
      (require :linedit)
      (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t))))

                                                       (car (sb-introspect:find-definition-sources-by-name
                                                              f :function)))))

                                                      (car (sb-introspect:find-definition-sources-by-name
                                                            f :function)))))

(sb-ext:set-sbcl-source-location 
  (merge-pathnames (make-pathname :directory '(:relative "sbcl-source" "sbcl")
                                  :defaults #1=(user-homedir-pathname))
                   #1#))

(sb-ext:set-sbcl-source-location
 (merge-pathnames (make-pathname :directory '(:relative "sbcl-source" "sbcl")
                                 :defaults #1=(user-homedir-pathname))
                  #1#))

               :data-lens

               :serapeum)

               :printv
               :serapeum
               :trivial-ssh)