Very close to working FSUBRs - but not quite there.

resources/lisp1.5.lsp

@@ -25,6 +25,7 @@
         (T (ASSOC X (CDR L)))))
     SUBR (BEOWULF HOST ASSOC))
   (ATOM 32767 SUBR (BEOWULF HOST ATOM))
+  (ATTRIB 32767 SUBR (BEOWULF HOST ATTRIB))
   (CAR 32767 SUBR (BEOWULF HOST CAR))
   (CAAAAR 32767 EXPR (LAMBDA (X) (CAR (CAR (CAR (CAR X))))))
   (CAAADR 32767 EXPR (LAMBDA (X) (CAR (CAR (CAR (CDR X))))))
@@ -55,6 +56,16 @@
   (CDDDR 32767 EXPR (LAMBDA (X) (CDR (CDR (CDR X)))))
   (CDDR 32767 EXPR (LAMBDA (X) (CDR (CDR X))))
   (CDR 32767 SUBR (BEOWULF HOST CDR))
+  (CONC
+    32767
+    FEXPR
+    (LABEL
+      ARGS
+      (COND
+        ((COND
+            ((ONEP (LENGTH ARGS)) ARGS)
+            (T (ATTRIB (CAR ARGS) (APPLY CONC (CDR ARGS) NIL))))
+          ARGS))))
   (CONS 32767 SUBR (BEOWULF HOST CONS))
   (CONSP 32767 SUBR (BEOWULF HOST CONSP))
   (COPY
@@ -188,6 +199,7 @@
     (LAMBDA (N X) (COND ((EQ N 0) NIL) (T (CONS X (REPEAT (SUB1 N) X))))))
   (RPLACA 32767 SUBR (BEOWULF HOST RPLACA))
   (RPLACD 32767 SUBR (BEOWULF HOST RPLACD))
+  (SASSOC 32767 SUBR (BEOWULF BOOTSTRAP SASSOC))
   (SEARCH 32767 EXPR 
     (LAMBDA (X P F U) 
     (COND ((NULL X) (U X)) 

resources/sexpr/conc.lsp

@@ -1 +1,7 @@
-;; TODO
+;; This isn't working but it's really not far off.
+
+(PUT 'CONC 'FEXPR
+    ;; possibly ARGS should be (ARGS)...
+    '(LABEL ARGS
+        (COND ((COND ((ONEP (LENGTH ARGS)) ARGS)
+            (T (ATTRIB (CAR ARGS) (APPLY CONC (CDR ARGS) NIL)))) ARGS))))