I hereby claim:
- I am adh on github.
- I am adh (https://keybase.io/adh) on keybase.
- I have a public key whose fingerprint is 8F41 48A4 6D99 AED8 24B2 AFD7 4328 6C3B 9ABA 6EA4
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
dfsch_object_t *dfsch_car(dfsch_object_t * pair) | |
{ | |
dfsch_object_t *p = | |
((((((size_t) ((pair))) & 0x07) == 0x02) | |
|| ((((size_t) ((pair))) & 0x03) == | |
0x03)) ? (pair) : dfsch_assert_instance((pair), | |
(&dfsch_pair_type))); | |
return ((((((size_t) (p)) & 0x03) == | |
0x03) ? ((dfsch_pair_t | |
*) (((((size_t) |
$ FOO='() { bla; }' bash | |
$ echo "$FOO" | |
$ exit | |
$ FOO='() { bla; }' dash | |
$ echo "$FOO" | |
() { bla; } | |
$ |
static void hexdump(unsigned char* buf, size_t len){ | |
int i; | |
for(;;){ | |
fprintf(stderr, " "); | |
for (i = 0; i < 16; i++){ | |
if (len <= i){ | |
fprintf(stderr, " "); | |
} else{ | |
fprintf(stderr, "%02hhx ", buf[i]); | |
} |
Unhandled serious condition! | |
#<error 0x1ad0a80 :object (dfsch%implementation:name . #<environment 0x1ac4000 >) :message "Unbound variable"> | |
EVAL (test-toplevel) () | |
@ main.scm:23 | |
EVAL (when-toplevel (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))))) () | |
@ ../lib-scm/dfsch-unit.scm:267 | |
EVAL (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests |
$ ./dfsch-repl -r introspect | |
/\___/\ dfsch version 0.4.0-dev | |
( o o ) (rel-0.3.0-1310-g60bdd37) [Feb 12 2012 13:38:31] | |
== * == dfsch is free software, and you are welcome to redistribute it | |
) ( under certain conditions; see file COPYING for details. | |
]=> (define (foo x y) (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))) | |
#<standard-function 0xa852d0 foo(x y)> | |
]=> (add-function-breakpoint! foo) | |
#<standard-function 0xa852d0 foo(x y)> |
$ ./dfsch-repl -r introspect | |
/\___/\ dfsch version 0.4.0-dev | |
( o o ) (rel-0.3.0-1310-g60bdd37) [Feb 12 2012 13:38:31] | |
== * == dfsch is free software, and you are welcome to redistribute it | |
) ( under certain conditions; see file COPYING for details. | |
]=> (define (foo x y) (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))) | |
#<standard-function 0x12b0aa0 foo(x y)> | |
]=> (add-function-breakpoint! foo) | |
#<standard-function 0x12b0aa0 foo(x y)> |
]=> (+ 5 6) | |
breakpoint on (+ 5 6): | |
Local variables: | |
pathname-extension: #<primitive 0x7ff087182240 pathname_extension> | |
lookup-in-environment: #<primitive 0x7ff08718cfc0 lookup_in_environment> | |
destructuring-bind: #<form 0x7ff08717efa0 destructuring_bind> | |
find-package: #<primitive 0x7ff08717ca40 find_package> | |
define-generic-function: #<macro 0x7ff08718e2c0 %macro_define_generic_function> | |
most-negative-fixnum: -1152921504606846976 |
/\___/\ dfsch version 0.4.0-dev | |
( o o ) (rel-0.3.0-1300-gef083bd) [Feb 10 2012 08:46:38] | |
== * == dfsch is free software, and you are welcome to redistribute it | |
) ( under certain conditions; see file COPYING for details. | |
]=> (define (fact x) | |
..> (if (< x 2) | |
..> 1 | |
..> (* x (fact (1- x))))) | |
#<standard-function 0x1d23aa0 fact(x)> |
;; Remove role list from list of class options | |
(set! class-opts (plist-remove-keys class-opts '(:roles))) | |
;; Evaluate list of roles in outer context | |
(set! roles (eval-list roles (%macro-expansion-environment))) | |
;; Extend used slot and options lists by matching lists in used roles | |
;; Also remove roles that conflict with superclass roles | |
(set! roles (map* (lambda (role-object) | |
(let ((role (assert-instance role-object <role>))) |