stibear

$ make clean && make test-nostdlib
rm -f src/load_piclib.c src/init_contrib.c
rm -f lib/libbenz.so
rm -f extlib/benz/var.o extlib/benz/symbol.o extlib/benz/string.o extlib/benz/gc.o extlib/benz/debug.o extlib/benz/blob.o extlib/benz/data.o extlib/benz/record.o extlib/benz/number.o extlib/benz/char.o extlib/benz/port.o extlib/benz/cont.o extlib/benz/write.o extlib/benz/load.o extlib/benz/file.o extlib/benz/boot.o extlib/benz/dict.o extlib/benz/vector.o extlib/benz/bool.o extlib/benz/proc.o extlib/benz/pair.o extlib/benz/value.o extlib/benz/error.o extlib/benz/read.o extlib/benz/lib.o extlib/benz/state.o extlib/benz/weak.o extlib/benz/eval.o
rm -f src/main.o src/load_piclib.o src/init_contrib.o
rm -f contrib/10.callcc/callcc.o contrib/10.math/math.o contrib/10.roundtrip/emyg_dtoa.o contrib/10.roundtrip/emyg_atod.o contrib/20.r7rs/src/r7rs.o contrib/20.r7rs/src/file.o contrib/20.r7rs/src/load.o contrib/20.r7rs/src/system.o contrib/20.r7rs/src/time.o contrib/30.random/src/random.o contrib/30.random/src/mt19937ar.

stibear

MM-TEST> (test)

*N*=50
SIMPLE-GEMM       0.062
M*M(CLML)         0.069
ON-REGISTER-GEMM  0.031
CACHING-GEMM      0.069

*N*=100
SIMPLE-GEMM       0.497

stibear

$ ros -Q -e '(ql:quickload :puri)' 2>&1 | tee ql_log.txt
To load "puri":
  Install 1 Quicklisp release:
    puri
Downloading http://beta.quicklisp.org/archive/puri/2010-10-06/puri-20101006-git.tgz

   0  downloaded.
   1K downloaded.
   2K downloaded.
   3K downloaded.

stibear

$ ros install sbcl 2>&1 | tee ros_install_sbcl_log2.txt
指定されたパスが見つかりません。
While evaluating the form starting at line 7, column 0
  of #P"C:/msys64/usr/local/share/common-lisp/source/roswell/install+msys.lisp":
Unhandled UIOP/RUN-PROGRAM:SUBPROCESS-ERROR in thread #<SB-THREAD:THREAD
                                                        "main thread" RUNNING
                                                         {1002D80763}>:
  Subprocess (:PROCESS
              #<SB-IMPL::PROCESS
                :EXITED 1>) run with command "C:\\usr\\local\\bin\\ros roswell-internal-use download http://beta.quicklisp.org/archive/closure-common/2010-11-07/closure-common-20101107-git.tgz C:/Users/Wataru/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/archives/closure-common-20101107-git.tgz" exited with error code 1

stibear

$ ros install sbcl 2>&1 | tee ros_install_sbcl_log.txt
指定されたパスが見つかりません。
While evaluating the form starting at line 7, column 0
  of #P"C:/msys64/usr/local/share/common-lisp/source/roswell/install+msys.lisp":
Unhandled UIOP/RUN-PROGRAM:SUBPROCESS-ERROR in thread #<SB-THREAD:THREAD
                                                        "main thread" RUNNING
                                                         {1002D80763}>:
  Subprocess (:PROCESS
              #<SB-IMPL::PROCESS
                :EXITED 1>) run with command "C:\\usr\\local\\bin\\ros roswell-internal-use download http://beta.quicklisp.org/archive/puri/2010-10-06/puri-20101006-git.tgz C:/Users/Wataru/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/archives/puri-20101006-git.tgz" exited with error code 1

stibear

(defparameter *float-format* 'long-float)
(setf *read-default-float-format* *float-format*)

(defun sigmoid (x)
  (/ (1+ (exp (- x)))))

(defun dif-sigmoid (y)
  (* y (- 1 y)))

(defun rand ()

stibear

(define-syntax extract?
  (syntax-rules ()
    ((_ symb body _cont-t _cont-f)
     (letrec-syntax
         ((tr
            (syntax-rules (symb)
              ((_ x symb tail (cont-head symb-l . cont-args) cont-false)
               (cont-head (x . symb-l) . cont-args))
            ((_ d (x . y) tail . rest) ; if body is a composite form,
             (tr x x (y . tail) . rest)) ; look inside

stibear

(import (scheme base))

(define (hoge n)
  (fuga (- n 1)))

(define (fuga n)
  (list n))

stibear

(define-library (eros)
  (import (scheme base)
          (scheme write)
          (srfi 1)
          (srfi 8)
          (picrin macro)
          (picrin attribute)
          (picrin dictionary))

  (define-record-type class

stibear

(use srfi-1)

(define acgt '(#\a #\c #\g #\t))

(define (create n)
  (map list->string
       (let loop ((n n))
         (if (zero? n)
             (list '())
             (append-map