Bug in Berkeley FP primitives

Thread View: net.applic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by ucbvaxbaden Fri, 05 Feb 1982 17:30

#19

Author: ucbvaxbaden
Date: Fri, 05 Feb 1982 17:30

20 lines
759 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads