guicho271828

*~
*.out
random_generators_speed

guicho271828

3bgl-shader/walker.lisp:(defwalker cl-walker (catch tag &rest forms)
3bgl-shader/walker.lisp:  `(catch ,(@ tag) ,@(@@ forms)))
3bgl-shader/walker.lisp:(defwalker cl-walker (throw tag result-form)
3bgl-shader/walker.lisp:  `(throw ,(@ tag) ,(@ result-form)))
3bz/deflate.lisp:          (catch :exit-loop
3bz/deflate.lisp:                    (throw :exit-loop :eoi)))
3bz/deflate.lisp:                    (throw :exit-loop :eoo))))
agnostic-lizard/debugger-prototype.lisp:  (catch 'debugger-hook-result
agnostic-lizard/examples.lisp:         (throw :eval-check-failed "Form expansion changed behaviour")))))
agnostic-lizard/examples.lisp:       (throw :lexenv-check-fail "Form expansion changed behaviour"))))

guicho271828

;; This also gets converted into a jump table
(defun fn (x)
  (if (eql x #\a)
      :a
      (if (eql x #\b)
          :b
          (if (eql x #\c)
              :c
              (if (eql x #\d)
                  :d)))))

guicho271828

;; -*- mode : lisp -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 4 Op-blocks world
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (domain BLOCKS)
  (:requirements :strips)
  (:predicates (on ?x ?y)
	       (ontable ?x)
	       (clear ?x)

guicho271828

総額36万ぐらいを見ています ショック オーリンズそのままの場合+10万

(別件: 37型プラズマテレビ 無料で譲ります。詳細は↓)

NCEC H17 (2005年) モデル (マイチェン前)

買ったときの値段	値段

guicho271828

./configure
Switching to directory `/home/guicho/repos/c-or-cpp/mkcl/src' to continue configuration.
checking build system type... x86_64-unknown-linux-gnu
checking host system type... x86_64-unknown-linux-gnu
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... o

guicho271828

; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 1)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 2)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 3)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 4)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 5)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 6)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 7)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 8)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 9)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 10)) -> T

guicho271828

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@" 2>/dev/null
|#

; Refer to the demostuff file for definitions and descriptions.
(load "demostuff")
(defun main (&rest argv)
  (declare (ignorable argv))

guicho271828

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  #+quicklisp (ql:quickload '(:plump :uiop :trivia :clss :iterate :alexandria) :silent t)
  )

guicho271828

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  #+quicklisp (ql:quickload '(:alexandria :trivia :iterate) :silent t))

(defpackage :ros.script.case.3724474528