🚀 go-pugleaf

I recently discovered a conceptual bug in the code for the append left (apndl)
and append right primitivies.  For those who have the FP interpreter, you
should replace the functions apndl$fp and apndr$fp in the file prim_fp.l
by the following:

(defun apndl$fp (x)
  (cond ((and (dtpr x) (eq 2 (length x)) (listp (cadr x)))
	 (cons (car x) (cdr x)))
	(t (*throw 'bottom$up '?))))


(defun apndr$fp (x)
  (cond ((and (dtpr x) (eq 2 (length x)) (listp (car x)))
	 (append (car x) (list (cdr x))))
	(t (*throw 'bottom$up '?))))


Enjoy,

Scott Baden