guicho271828

; run with /usr/local/bin/sbcl --no-sysinit --no-userinit --script codeiq.lisp

(defun read-and-print-until-eof (stream char)
  (declare (ignore char))
  (let ((c (read-char stream nil nil)))
    (if c
	(progn (write-char c)
	       (read-and-print-until-eof stream char))
	(sb-ext:exit))))

guicho271828

(ql:quickload :alexandria)
(ql:quickload :inferior-shell)
(ql:quickload :cl-csv)
(ql:quickload :osicat)
(in-package :cl-user)
(use-package :alexandria)
(use-package :inferior-shell)
(use-package :cl-csv)
(use-package :osicat) ;; 2 conflict

guicho271828

(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)

guicho271828

(in-package :cl-user)

(defpackage :a
  (:use :cl))

(in-package :a)

(defun print-square (x)

guicho271828

This file is Automatically generated by tools/compare-cl-21.lisp on SBCL 1.1.14 at 2014/2/11 14:3 '2 .

Added/Removed symbols

symbol	status	Imported/excluded from	type
alist-hash-table	added	alexandria.0.dev	function
compose	added	alexandria.0.dev	function

guicho271828

(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*

guicho271828

 
(require :cl21)
(in-package :cl21-user)

;; C は何らかの、処理系独特の最適化が行われる
;; 関数の例だと考えてください

(defun C-fun (x)
  (print (* 10 x)))

guicho271828

(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

guicho271828

(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))

guicho271828

;; X.lisp
;; outfile のはじめに現在時間を付け加えるだけのスクリプト


(defparameter now (get-universal-time))
;; <- 一回だけ評価されるようにしたい。すべてのファイルで同じようにしたい。
;; ファイルごとに複数回評価されると、ファイルごとに追加される時間が異なってしまう。

(tagbody
 start