snmsts

require "formula"

class Roswell < Formula
  homepage ""
  url "https://github.com/snmsts/roswell/archive/v0.0.2.11.tar.gz"
  version '0.0.2.11'
  sha1 "02154cf0ea908ccc52af0382c730f3f7304c0c1f"

  depends_on 'libarchive'
  depends_on "autoconf" => :build

snmsts

$ diff -u -r c\:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/ c\:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/
diff -u -r c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/grovel/grovel.lisp c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/grovel/grovel.lisp
--- c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/grovel/grovel.lisp    2014-09-10 05:06:56.000000000 +0900
+++ c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/grovel/grovel.lisp   2014-12-29 01:04:07.059990500 +0900
@@ -279,12 +279,13 @@
            ,@*cc-flags*
            ;; add the cffi directory to the include path to make common.h visible
            ,(format nil "-I~A"
-                    (directory-namestring
+                    (namestring

snmsts

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros +Q -- $0 "$@"
|#
(defun main (&rest argv)
  (declare (ignorable argv))
  #1=(progn (apropos "quick")
            (format t "~&----------------------------------~%"))
  (ros:quicklisp)

snmsts

(ql:quickload :cffi-grovel)

(defparameter *pwd* (make-pathname :name nil :type nil :defaults *load-pathname*))
(defpackage :hoge.ffi)

(with-open-file (out (merge-pathnames "tmp.lisp" *pwd*)
                     :direction :output
                     :if-does-not-exist :create
                     :if-exists :supersede)
  (format out "~{~S~%~}" '((in-package :hoge.ffi)

snmsts

$ ros -l test.lisp -E cl-user::main dump executable hoge
To load "clack":
  Load 1 ASDF system:
    clack
; Loading "clack"
...................
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into hoge:
writing 5824 bytes from the read-only space at 0x20000000
writing 3168 bytes from the static space at 0x20100000

snmsts

$ pwd
/home/vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software

$ ls */bin
clack-20150407-git/bin:
clackup

common-lisp-stat-20140826-git/bin:
GetRepos.sh  cls.lisp

snmsts

;; 1
(defun f (x)
  (loop :with result := 0
     :for i :in x
     :do (incf result i)
     :finally (return result)))

(defun f (x)
  (loop :with result := 0
     :for i :from 0 :to (1- (length x))

snmsts

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -L sbcl-bin -Q -- $0 "$@"
|#

(defun main (&optional $1 &rest argv)
  (declare (ignorable argv))
  (cond ((equal "install" $1)
         (ros:exec '("ros" "-Q" "-s" "qlot" "-e" "(qlot:install)")))

snmsts

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -L sbcl -- $0 "$@"
|#

(ql:quickload :bordeaux-threads)

(defvar *should-finish* nil)
(defvar *finished* nil)

snmsts

$ ls /
Applications
Library
Network
System
Users
Volumes
bin
cores
dev