;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+(in-package :gacela)
+
(defconstant INFINITY MOST-POSITIVE-LONG-FLOAT)
(defun append-if (new test tree &key (key #'first) (test-if #'equal))