Aucbvax.6089
net.applic
utcsrgv!utzoo!decvax!ucbvax!baden
Fri Feb  5 17:30:29 1982
Bug in Berkeley FP primitives
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

-----------------------------------------------------------------
 gopher://quux.org/ conversion by John Goerzen <jgoerzen@complete.org>
 of http://communication.ucsd.edu/A-News/


This Usenet Oldnews Archive
article may be copied and distributed freely, provided:

1. There is no money collected for the text(s) of the articles.

2. The following notice remains appended to each copy:

The Usenet Oldnews Archive: Compilation Copyright (C) 1981, 1996 
 Bruce Jones, Henry Spencer, David Wiseman.