Minor progress on Lisp functions

resources/count.lsp

@@ -1 +0,0 @@
-(DEFUN COUNT (L) (COND ((EQ '() L) 0) (T (PLUS 1 (COUNT (CDR L))))))

resources/gcd.mexpr.lsp

@@ -1,3 +1,5 @@
 gcd[x;y] = [x>y -> gcd[y;x];
             rem[y;x] = 0 -> x;
-            T -> gcd[rem[y;x];x]]
+            T -> gcd[rem[y;x];x]]
+
+;; gcd[x;y] = [x>y -> gcd[y;x]; rem[y;x] = 0 -> x; T -> gcd[rem[y;x];x]]

resources/length.lsp

@@ -0,0 +1 @@
+(DEFUN LENGTH (L) (COND ((EQ NIL L) 0) (T (ADD1 (LENGTH (CDR L))))))

resources/lisp1.5.lsp

@@ -7,6 +7,7 @@
 ;; Binding all system functions to NIL so that you can see on the OBLIST that
 ;; they exist.
 (ADD1 . NIL)
+(AND . NIL)
 (APPEND . NIL)
 (APPLY . NIL)
 (ATOM . NIL)