This file is Automatically generated by tools/compare-cl-21.lisp on SBCL 1.1.14 at 2014/2/11 14:3 '2 .
symbol | status | Imported/excluded from | type |
---|---|---|---|
alist-hash-table | added | alexandria.0.dev | function |
compose | added | alexandria.0.dev | function |
(mapc #'asdf:load-system '(:iterate :cl21 :alexandria :trivial-cltl2)) | |
(in-package :cl-user) | |
(defpackage :package-diff | |
(:use :cl :iterate :alexandria)) | |
(in-package :package-diff) | |
(defun package-symbols-intersection (package1 package2) |
(in-package :cl-user) | |
(defpackage :a | |
(:use :cl)) | |
(in-package :a) | |
(defun print-square (x) |
(defmacro name lambda-list &body body) | |
(macrolet bindigs &body body) | |
(eval form) | |
(compile name definition) | |
(macroexpand form &optional env) | |
(macroexpand-1 form &optional env) | |
*macroexpand-hook* |
(require :cl21) | |
(in-package :cl21-user) | |
;; C は何らかの、処理系独特の最適化が行われる | |
;; 関数の例だと考えてください | |
(defun C-fun (x) | |
(print (* 10 x))) |
(defmacro with-boolean-options (bindings before after &body body) | |
(assert (typep before 'symbol)) | |
(assert (typep after 'symbol)) | |
`(let ((,after ,before)) | |
(let ,(mapcar | |
(lambda (bind) | |
(ematch bind | |
((list (and var (type symbol)) | |
(and str (type string))) | |
`(,var |
(defun make-image (&optional repl) | |
(print (bt:all-threads)) | |
(lparallel:end-kernel :wait t) | |
(sb-ext:gc :full t) | |
(if repl | |
(sb-ext:save-lisp-and-die "repl-image" | |
:toplevel | |
(lambda () | |
(in-package :pddl.component-planner-test) | |
(sb-impl::toplevel-init)) |
;; X.lisp | |
;; outfile のはじめに現在時間を付け加えるだけのスクリプト | |
(defparameter now (get-universal-time)) | |
;; <- 一回だけ評価されるようにしたい。すべてのファイルで同じようにしたい。 | |
;; ファイルごとに複数回評価されると、ファイルごとに追加される時間が異なってしまう。 | |
(tagbody | |
start |
(defun event-p (x) t) ;; constantly t | |
(defun key-p (x) t) ;; constantly t | |
;; w/o defpattern | |
(match event | |
((and (sdl:event- (type (eq :key-down-event))) | |
;;^^^^^^^^^^ this specify the container type | |
;;^^^^ this is a slot | |
;; ^^^^^^^^^^^^^^^^^^ and this specifies the type of the slot. | |
(sdl::key- (key (eq :sdl-key-z)) state))) |
(defun run-sleep (n) | |
(sb-ext:run-program | |
"sleep" (list (princ-to-string n)) | |
:search t :wait nil :output t :error :output)) | |
;; assume fiveam | |
(test async-shell | |
;; pass! |