adh

Keybase proof

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:

adh

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)

adh

$ FOO='() { bla; }' bash
$ echo "$FOO"

$ exit
$ FOO='() { bla; }' dash
$ echo "$FOO"           
() { bla; }
$ 

adh

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]);
      }

adh

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

adh

$ ./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)>

adh

$ ./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)>

adh

]=> (+ 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

adh

  /\___/\    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)>

adh

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