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 <
[email protected]>
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.
