windows works again and also alists working now

bin/alist.slime

@@ -40,7 +40,7 @@
              (error "key was not found in alist"))
             ((= (caar associations) key)
              (cdar associations))
-            (else (alist-get-intern (rest alist) key))))
+            (else (alist-get-intern (rest associations) key))))
     (alist-get-intern associations key)))
 
 

bin/cxr.slime

@@ -18,7 +18,7 @@
   (car (caar seq)))
 
 (define (caadr seq)
-  (caar (cdr seq)))
+  (car (cadr seq)))
 
 (define (cadar seq)
   (car (cdr (car seq))))
@@ -33,7 +33,7 @@
   (cdr (car (cdr seq))))
 
 (define (cddar seq)
-  (cddr (car seq)))
+  (cdr (cdar seq)))
 
 (define (cdddr seq)
   (cdr (cddr seq)))

bin/tests/alists.slime

@@ -37,7 +37,6 @@
 ;;       key1: value1)
 
 (assert (= (length (first a)) 3))
-(pprint-alist a)
 (assert (= (alist-get a 'key1) 'value4))
 
 (alist-remove! a 'key1)